b31a16ffe5a1

Merge.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 09 Sep 2019 10:08:45 -0400
parents b99b818e2725 (diff) cbfc3c8ecf62 (current diff)
children eeb1312e30cc
branches/tags (none)
files stumpwmrc

Changes

--- a/stumpwmrc	Wed Aug 28 09:51:22 2019 -0400
+++ b/stumpwmrc	Mon Sep 09 10:08:45 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)
@@ -550,6 +552,7 @@
   ("F34" "prev-in-frame"))
 
 
+
 ;; (stumpwm::unbind-remapped-keys)
 (define-remapped-keys
   '(("st-256color"