emacs/niri: Add convenient capture shortcutwayland

1 files changed, 21 insertions, 0 deletions

diff --git a/gui/conf/init.el b/gui/conf/init.el
index fc5e344..1c96458 100644
--- a/gui/conf/init.el
+++ b/gui/conf/init.el
@@ -248,6 +248,27 @@
      "* %:description\n%:link %U"
      :immediate-finish t)))
 
+(defcustom custom/org-capture-frame-name "**Capture**"
+  :type 'string)
+
+(defun custom/org-capture-frame (template)
+  (interactive '(nil))
+  (if (not (equal custom/org-capture-frame-name (frame-parameter nil 'name)))
+      (make-frame '((name . custom/org-capture-frame-name))))
+  (select-frame-by-name custom/org-capture-frame-name)
+  (delete-other-windows)
+  (defun org-capture-after-finalize-clean-up ()
+    "Clean up after `org-capture' finalizes.
+    We delete the dedicated frame and removing advice."
+    (advice-remove 'org-capture-place-template 'delete-other-windows)
+    (remove-hook 'org-capture-after-finalize-hook 'org-capture-after-finalize-clean-up)
+    (select-frame-by-name custom/org-capture-frame-name)
+    (delete-frame nil t))
+  (add-hook 'org-capture-mode-hook 'evil-insert-state)
+  (add-hook 'org-capture-after-finalize-hook 'org-capture-after-finalize-clean-up)
+  (advice-add #'org-capture-place-template :after 'delete-other-windows)
+  (org-capture nil template))
+
 (setq org-agenda-custom-commands
   '(("p" "Priorities Dashboard"
      ((tags-todo "+PRIORITY=\"A\""