eeb1312e30cc

Merge.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 09 Sep 2019 10:09:33 -0400
parents 20c80d3ca2b3 (current diff) b31a16ffe5a1 (diff)
children e5fe3d20c01c
branches/tags (none)
files stumpwmrc

Changes

--- a/stumpwmrc	Mon Sep 09 10:07:19 2019 -0400
+++ b/stumpwmrc	Mon Sep 09 10:09:33 2019 -0400
@@ -59,12 +59,14 @@
   (stumpwm::tile-group-current-frame (current-group)))
 
 
-(defun debug-log (&rest args)
+(defun debug-log (string &rest args)
   (with-open-file (s "/home/sjl/stumpwm.debug.log"
                      :direction :output
                      :if-exists :append
                      :if-does-not-exist :create)
-    (apply #'format s args)))
+    (apply #'format s string args)
+    (fresh-line s))
+  (first args))
 
 
 (defun keywordize (string)
@@ -558,6 +560,7 @@
   ("F34" "prev-in-frame"))
 
 
+
 ;; (stumpwm::unbind-remapped-keys)
 (define-remapped-keys
   '(("st-256color"