app/calendar: minor indentation refactor

This commit is contained in:
Henrik Lissner 2018-04-02 05:50:07 -04:00
parent f6f2c92373
commit 7282553d2d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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))