emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 4dda46835e 3/4: Re-indent section in the manual


From: ELPA Syncer
Subject: [elpa] externals/denote 4dda46835e 3/4: Re-indent section in the manual
Date: Thu, 1 Jun 2023 15:57:41 -0400 (EDT)

branch: externals/denote
commit 4dda46835ec7c826dac6baac5bdeb917036a1fa1
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Re-indent section in the manual
---
 README.org | 58 +++++++++++++++++++++++++++++-----------------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

diff --git a/README.org b/README.org
index 2674a7e0ce..96f033a48a 100644
--- a/README.org
+++ b/README.org
@@ -2304,35 +2304,35 @@ file.  The contents of the subtree become the contents 
of the new note
 and are removed from the old one.
 
 #+begin_src emacs-lisp
-  (defun my-denote-org-extract-subtree ()
-    "Create new Denote note using current Org subtree.
-  Make the new note use the Org file type, regardless of the value
-  of `denote-file-type'.
-
-  Use the subtree title as the note's title.  If available, use the
-  tags of the heading are used as note keywords.
-
-  Delete the original subtree."
-    (interactive)
-    (if-let ((text (org-get-entry))
-             (heading (org-get-heading :no-tags :no-todo :no-priority 
:no-comment)))
-        (let ((element (org-element-at-point))
-              (tags (org-get-tags)))
-          (delete-region (org-entry-beginning-position)
-                         (save-excursion (org-end-of-subtree t) (point)))
-          (denote heading
-                  tags
-                  'org
-                  nil
-                  (or
-                   ;; Check PROPERTIES drawer for :created: or :date:
-                   (org-element-property :CREATED element)
-                   (org-element-property :DATE element)
-                   ;; Check the subtree for CLOSED
-                   (org-element-property :raw-value
-                                         (org-element-property :closed 
element))))
-          (insert text))
-      (user-error "No subtree to extract; aborting")))
+(defun my-denote-org-extract-subtree ()
+  "Create new Denote note using current Org subtree.
+Make the new note use the Org file type, regardless of the value
+of `denote-file-type'.
+
+Use the subtree title as the note's title.  If available, use the
+tags of the heading are used as note keywords.
+
+Delete the original subtree."
+  (interactive)
+  (if-let ((text (org-get-entry))
+           (heading (org-get-heading :no-tags :no-todo :no-priority 
:no-comment)))
+      (let ((element (org-element-at-point))
+            (tags (org-get-tags)))
+        (delete-region (org-entry-beginning-position)
+                       (save-excursion (org-end-of-subtree t) (point)))
+        (denote heading
+                tags
+                'org
+                nil
+                (or
+                 ;; Check PROPERTIES drawer for :created: or :date:
+                 (org-element-property :CREATED element)
+                 (org-element-property :DATE element)
+                 ;; Check the subtree for CLOSED
+                 (org-element-property :raw-value
+                                       (org-element-property :closed 
element))))
+        (insert text))
+    (user-error "No subtree to extract; aborting")))
 #+end_src
 
 Have a different workflow?  Feel welcome to discuss it in any of our



reply via email to

[Prev in Thread] Current Thread [Next in Thread]