dotfiles-misc/gavinok.stump-conf
1
0
Fork 0
mirror of https://github.com/Gavinok/stump-conf.git synced 2026-09-10 07:26:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

slynk of course

Browse source
This commit is contained in:
Gavin Jaeger-Freeborn 2022-03-06 12:01:34 -07:00
parent 8c1ab1e44a
commit ab1df880ba
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
config
View file

@ -22,6 +22,26 @@
(let ((which-out (string-trim '(#\ #\linefeed) (run-shell-command (concat "which " name) t))))
(unless (string-equal "" which-out) which-out)))
(load "~/.cache/quicklisp/setup.lisp")
;;; SLY setup
(ql:quickload :slynk)
(defparameter *stumpwm-slynk-session* nil)
(defcommand start-slynk () ()
(handler-case
(defparameter *stumpwm-slynk-session*
(slynk:create-server
:dont-close t
:port slynk::default-server-port))
(error (c)
(format *error-output* "Error starting slynk: ~a~%" c))))
(defcommand restart-slynk () ()
"Restart Slynk and reload source.
This is needed if Sly updates while StumpWM is running"
(slynk:stop-server slynk::default-server-port)
(slynk:create-server :port slynk::default-server-port
:dont-close t))
;;; Theme
(setf *colors*
'("#000000" ;black