2017-02-23 12:32:15 -05:00
|
|
|
;;; lang/org/autoload/capture.el
|
2017-02-19 19:01:47 -05:00
|
|
|
|
2017-04-22 01:49:44 -04:00
|
|
|
;;;###autoload
|
|
|
|
|
(defun +org-capture (&optional key string)
|
|
|
|
|
"Initializes the current frame as a pop-up `org-capture' frame."
|
|
|
|
|
(interactive)
|
|
|
|
|
(let ((key (or key "n"))
|
|
|
|
|
(string (unless (string-empty-p string) string)))
|
|
|
|
|
(if string
|
|
|
|
|
(org-capture-string string key)
|
|
|
|
|
(org-capture nil key))))
|
