Permalink
Browse files

Return strings from window-map-number and group-map-number.

  • Loading branch information...
1 parent 84fb714 commit 931adde28a82d2f158b89e2566ea1f0698b06872 @dangerousben committed Nov 19, 2011
Showing with 7 additions and 6 deletions.
  1. +1 −1 command.lisp
  2. +1 −1 group.lisp
  3. +5 −4 window.lisp
View
@@ -413,7 +413,7 @@ then describes the symbol."
(defun select-group (screen query)
"Attempt to match string QUERY against group number or partial name."
(labels ((match-num (grp)
- (string-equal (princ-to-string (group-map-number grp)) query))
+ (string-equal (group-map-number grp) query))
(match-whole (grp)
(string-equal (group-name grp) query))
(match-partial (grp)
View
@@ -111,7 +111,7 @@ otherwise specified."
(if (and (>= index 0)
(< index (length *group-number-map*)))
(format nil "~:[~;-~]~a" (minusp num) (elt *group-number-map* index))
- num)))
+ (princ-to-string num))))
(defun fmt-group-status (group)
(let ((screen (group-screen group)))
View
@@ -253,10 +253,11 @@ _NET_WM_STATE_DEMANDS_ATTENTION set"
:data data))
(defun window-map-number (window)
- (let ((num (window-number window)))
- (or (and (< num (length *window-number-map*))
- (elt *window-number-map* num))
- num)))
+ (princ-to-string
+ (let ((num (window-number window)))
+ (or (and (< num (length *window-number-map*))
+ (elt *window-number-map* num))
+ num))))
(defun fmt-window-status (window)
(let ((group (window-group window)))

0 comments on commit 931adde

Please sign in to comment.