Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
iplayer-el.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9abb065
)
(ab)use mode-line-process to display preset in the mode line
author
Christophe Rhodes
<csr21@cantab.net>
Tue, 24 Apr 2012 11:33:41 +0000
(12:33 +0100)
committer
Christophe Rhodes
<csr21@cantab.net>
Tue, 24 Apr 2012 11:33:41 +0000
(12:33 +0100)
iplayer.el
patch
|
blob
|
history
diff --git
a/iplayer.el
b/iplayer.el
index aaa913ae0f41ae532c8cf2a1615c44962c216ad3..68d3a01190c95b22d37211623fa80b3168721478 100644
(file)
--- a/
iplayer.el
+++ b/
iplayer.el
@@
-64,7
+64,9
@@
((= (length keys) 1)
(let ((channel (cdr (assoc keys presets))))
(if channel
- (iplayer-channel (format "^%s$" channel))
+ (progn
+ (setq mode-line-process (format "[%s]" channel))
+ (iplayer-channel (format "^%s$" channel)))
(error "no preset for key %s" keys)))))))
(defun iplayer-channel (channel)
@@
-101,6
+103,7
@@
(defun iplayer ()
(interactive)
+ (setq mode-line-process nil)
(display-iplayer-tree (get-iplayer-tree)))
(provide 'iplayer)