emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
modules/config/default/+bindings.el
View file

@ -230,7 +230,7 @@
(:desc "notes" :prefix "n"
:desc "Find file in notes" :n "n" #'+default/find-in-notes
:desc "Browse notes" :n "N" #'+default/browse-notes
:desc "Org capture" :n "x" #'+org-capture/open
:desc "Org capture" :n "x" #'org-capture
:desc "Browse mode notes" :n "m" #'+org/browse-notes-for-major-mode
:desc "Browse project notes" :n "p" #'+org/browse-notes-for-project)

17
modules/lang/org/autoload/org-capture.el
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