summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Isom <kyle@imap.cc>2017-10-26 20:03:52 -0700
committerKyle Isom <kyle@imap.cc>2017-10-26 20:05:59 -0700
commite4face53f45254ca7fdf82179aa6aa94ec1aa8c8 (patch)
treec516011fc637b061d824755413f27ec23626161d
parente6fbe2f8c2bf4d7735937bd6cd07ecf345748e28 (diff)
downloadhome-e4face53f45254ca7fdf82179aa6aa94ec1aa8c8.tar.gz
home-e4face53f45254ca7fdf82179aa6aa94ec1aa8c8.tar.bz2
home-e4face53f45254ca7fdf82179aa6aa94ec1aa8c8.zip
Add (commented-out) swank pieces to stumpwm config.
-rw-r--r--.stumpwmrc43
1 files changed, 21 insertions, 22 deletions
diff --git a/.stumpwmrc b/.stumpwmrc
index 5944549..3169502 100644
--- a/.stumpwmrc
+++ b/.stumpwmrc
@@ -1,25 +1,3 @@
-(ql:quickload :swank)
-(let ((server-running nil))
- (defcommand swank () ()
- "Toggle the swank server on/off"
- (if server-running
- (progn
- (swank:stop-server 4005)
- (echo-string
- (current-screen)
- "Stopping swank.")
- (setf server-running nil))
- (progn
- (swank:create-server :port 4005
- :style swank:*communication-style*
- :dont-close t)
- (echo-string
- (current-screen)
- "Starting swank. M-x slime-connect RET RET, then (in-packqage stumpwm).")
- (setf server-running t)))))
-
-(define-key *root-map* (kbd "C-s") "swank")
-
(setf *frame-number-map* "1234567890")
(run-commands
"gnewbg G2"
@@ -33,6 +11,27 @@
(kbd (format nil "M-~a" i))
(format nil "gselect ~a" i)))
+;;; (let ((server-running nil))
+;;; (defcommand swank () ()
+;;; "Toggle the swank server on/off"
+;;; (if server-running
+;;; (progn
+;;; (swank:stop-server 4005)
+;;; (echo-string
+;;; (current-screen)
+;;; "Stopping swank.")
+;;; (setf server-running nil))
+;;; (progn
+;;; (swank:create-server :port 4005
+;;; :style swank:*communication-style*
+;;; :dont-close t)
+;;; (echo-string
+;;; (current-screen)
+;;; "Starting swank. M-x slime-connect RET RET, then (in-packqage stumpwm).")
+;;; (setf server-running t)))))
+
+(define-key *root-map* (kbd "C-s") "swank")
+
(defparameter *xscreensaver* "/usr/bin/xscreensaver-command")
(defcommand lock () ()
"Lock the screen using xscreensaver."