77e4cc4d58
:feature was a "catch-all" category. Many of its modules fit better in other categories, so they've been moved: - feature/debugger -> tools/debugger - feature/evil -> editor/evil - feature/eval -> tools/eval - feature/lookup -> tools/lookup - feature/snippets -> editor/snippets - feature/file-templates -> editor/file-templates - feature/workspaces -> ui/workspaces More potential changes in the future: - A new :term category for terminal emulation modules (eshell, term and vterm). - A new :os category for modules dedicated to os-specific functionality. The :tools macos module would fit here, but so would modules for nixos and arch. - A new :services category for web-service integration, like wakatime, twitter, elfeed, gist and pastebin services.
61 lines
1.7 KiB
EmacsLisp
61 lines
1.7 KiB
EmacsLisp
;;; app/calendar/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +calendar--wconf nil)
|
|
|
|
(defun +calendar--init ()
|
|
(if-let* ((win (cl-loop for win in (doom-visible-windows)
|
|
if (string-match-p "^\\*cfw:" (buffer-name (window-buffer win)))
|
|
return win)))
|
|
(select-window win)
|
|
(call-interactively +calendar-open-function)))
|
|
|
|
;;;###autoload
|
|
(defun =calendar ()
|
|
"Activate (or switch to) `calendar' in its workspace."
|
|
(interactive)
|
|
(if (featurep! :ui workspaces)
|
|
(progn
|
|
(+workspace-switch "Calendar" t)
|
|
(doom/switch-to-scratch-buffer)
|
|
(+calendar--init)
|
|
(+workspace/display))
|
|
(setq +calendar--wconf (current-window-configuration))
|
|
(delete-other-windows)
|
|
(switch-to-buffer (doom-fallback-buffer))
|
|
(+calendar--init)))
|
|
|
|
;;;###autoload
|
|
(defun +calendar/quit ()
|
|
"TODO"
|
|
(interactive)
|
|
(if (featurep! :ui workspaces)
|
|
(+workspace/delete "Calendar")
|
|
(doom-kill-matching-buffers "^\\*cfw:")
|
|
(set-window-configuration +calendar--wconf)
|
|
(setq +calendar--wconf nil)))
|
|
|
|
;;;###autoload
|
|
(defun +calendar/open-calendar ()
|
|
"TODO"
|
|
(interactive)
|
|
(cfw:open-calendar-buffer
|
|
;; :custom-map cfw:my-cal-map
|
|
:contents-sources
|
|
(list
|
|
(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))
|