[Org] Code to make frame for spontaneous capturing
This commit is contained in:
parent
3459213765
commit
5b64a89943
3
init.el
3
init.el
|
@ -595,7 +595,8 @@
|
||||||
db/org-timestamp-difference
|
db/org-timestamp-difference
|
||||||
db/read-clockline
|
db/read-clockline
|
||||||
db/org-capture-code-snippet
|
db/org-capture-code-snippet
|
||||||
hydra-org-clock/body))
|
hydra-org-clock/body
|
||||||
|
db/make-org-capture-frame))
|
||||||
|
|
||||||
(use-package org
|
(use-package org
|
||||||
:commands (org-store-link)
|
:commands (org-store-link)
|
||||||
|
|
|
@ -235,6 +235,28 @@ In ~%s~:
|
||||||
org-src-mode
|
org-src-mode
|
||||||
code-snippet))))
|
code-snippet))))
|
||||||
|
|
||||||
|
;; Make capture frame, made for being called via emacsclient
|
||||||
|
;; https://cestlaz.github.io/posts/using-emacs-24-capture-2/
|
||||||
|
|
||||||
|
(defun db/make-org-capture-frame ()
|
||||||
|
"Create a new frame for capturing."
|
||||||
|
(interactive)
|
||||||
|
(make-frame '((name . "capture")))
|
||||||
|
(select-frame-by-name "capture")
|
||||||
|
(delete-other-windows)
|
||||||
|
(let ((org-capture-after-finalize-hook org-capture-after-finalize-hook))
|
||||||
|
(org-capture)))
|
||||||
|
|
||||||
|
(defun db/delete-frame-if-capture (&rest r)
|
||||||
|
"If current frame was made for a capture, close after done."
|
||||||
|
(ignore r)
|
||||||
|
(when (equal (frame-parameter nil 'name)
|
||||||
|
"capture")
|
||||||
|
(delete-frame)))
|
||||||
|
|
||||||
|
(advice-add 'org-capture-finalize
|
||||||
|
:after #'db/delete-frame-if-capture)
|
||||||
|
|
||||||
|
|
||||||
;;; Refiling
|
;;; Refiling
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue