Add modules/lang/org (WIP)
This commit is contained in:
parent
c3159b5649
commit
941f3abc6f
10 changed files with 912 additions and 0 deletions
18
modules/lang/org/autoload/capture.el
Normal file
18
modules/lang/org/autoload/capture.el
Normal file
|
@ -0,0 +1,18 @@
|
|||
;;; emacs/org/autoload/capture.el
|
||||
|
||||
;;;###autoload
|
||||
(defun +org/capture (&optional template string)
|
||||
"Run `org-capture' in a new, disposable popup frame."
|
||||
(interactive)
|
||||
(let ((org-capture-entry (org-capture-select-template template)))
|
||||
(cond ((equal org-capture-entry "C")
|
||||
(find-file (expand-file-name "module-org-notes.el" doom-modules-dir))
|
||||
(re-search-forward "^\\s-+(setq org-capture-templates" (point-max) t)
|
||||
(recenter))
|
||||
((not (equal org-capture-entry "q"))
|
||||
(let ((frame (make-frame '((name . "org-capture") (height . 15) (width . 80)))))
|
||||
(with-selected-frame frame
|
||||
(if string
|
||||
(org-capture-string string)
|
||||
(org-capture))))))))
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue