1 Nov 2010 16:12
[STUMP] [PATCH] Right-justification of mode line elements
Nils Anspach <idnkmn <at> googlemail.com>
2010-11-01 15:12:04 GMT
2010-11-01 15:12:04 GMT
Hello list,
attached is a patch which allows for text elements of the mode line
(and those of the message window, if that is required) to be
right-justified.
For this to work you have to put a '^>' into the respective format
command, for instance:
(setf *screen-mode-line-format*
(list "[%n:%h] %v^>"
'(:eval (run-shell-command "echo -n `date +'%a %e-%b %R'`"
t))))
It also works in case of multiple lines of text. Everything after '^>'
up to the end of the respective line is right-justified. The next line
then starts left-justified again.
Nils
---
diff --git a/color.lisp b/color.lisp
index 5885861..425feb7 100644
--- a/color.lisp
+++ b/color.lisp
<at> <at> -193,13 +193,15 <at> <at> then call (update-color-map).")
(loop for s in strings
;; We need this so we can track the row for each element
for i from 0 to (length strings)
- do (let ((x 0) (off 0))
(Continue reading)
RSS Feed