app/calendar: general refactor

modules/app/calendar/autoload.el

@@ -14,11 +14,13 @@
 
 ;;;###autoload
 (defun +calendar/quit ()
+  "TODO"
   (interactive)
   (+workspace/delete "Calendar"))
 
 ;;;###autoload
 (defun +calendar/open-calendar ()
+  "TODO"
   (interactive)
   (cfw:open-calendar-buffer
    ;; :custom-map cfw:my-cal-map
@@ -27,3 +29,17 @@
     (cfw:org-create-source (doom-color 'fg))  ; orgmode source
     )))
 
+;;;###autoload
+(defun +calendar*cfw:render-button (title command &optional state)
+    "render-button
+ TITLE
+ COMMAND
+ STATE"
+    (let ((text (concat " " title " "))
+          (keymap (make-sparse-keymap)))
+      (cfw:rt text (if state 'cfw:face-toolbar-button-on
+                     'cfw:face-toolbar-button-off))
+      (define-key keymap [mouse-1] command)
+      (cfw:tp text 'keymap keymap)
+      (cfw:tp text 'mouse-face 'highlight)
+      text))