app/calendar: minor indentation refactor
This commit is contained in:
parent
f6f2c92373
commit
7282553d2d
1 changed files with 9 additions and 9 deletions
|
@ -45,15 +45,15 @@
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +calendar*cfw:render-button (title command &optional state)
|
(defun +calendar*cfw:render-button (title command &optional state)
|
||||||
"render-button
|
"render-button
|
||||||
TITLE
|
TITLE
|
||||||
COMMAND
|
COMMAND
|
||||||
STATE"
|
STATE"
|
||||||
(let ((text (concat " " title " "))
|
(let ((text (concat " " title " "))
|
||||||
(keymap (make-sparse-keymap)))
|
(keymap (make-sparse-keymap)))
|
||||||
(cfw:rt text (if state 'cfw:face-toolbar-button-on
|
(cfw:rt text (if state 'cfw:face-toolbar-button-on
|
||||||
'cfw:face-toolbar-button-off))
|
'cfw:face-toolbar-button-off))
|
||||||
(define-key keymap [mouse-1] command)
|
(define-key keymap [mouse-1] command)
|
||||||
(cfw:tp text 'keymap keymap)
|
(cfw:tp text 'keymap keymap)
|
||||||
(cfw:tp text 'mouse-face 'highlight)
|
(cfw:tp text 'mouse-face 'highlight)
|
||||||
text))
|
text))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue