lang/org: replace +org-capture/open with org-capture

This commit is contained in:
Henrik Lissner 2018-03-14 17:25:25 -04:00
parent ccaf5eabbd
commit c0e5152b8f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 1 additions and 18 deletions

View file

@ -1,23 +1,6 @@
;;; lang/org/autoload/org-capture.el -*- lexical-binding: t; -*-
;;;###if (featurep! +capture)
;;;###autoload
(defun +org-capture/open (&optional string key)
"Sends STRING, the current selection or prompted input to `org-capture'.
Uses the capture template specified by KEY. Otherwise, prompts you for one."
(interactive)
(let ((key (or key "n")))
(if-let* ((string (cond ((not (equal string ""))
string)
((region-active-p)
(buffer-substring-no-properties
(region-beginning)
(region-end))))))
(org-capture-string string key)
(org-capture nil key))))
;; --- External frame ---------------------
(defvar +org-capture-window-params