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

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

[elpa] externals/denote ee5fba669d 1/4: Move convenience functions into


From: ELPA Syncer
Subject: [elpa] externals/denote ee5fba669d 1/4: Move convenience functions into their own section
Date: Fri, 29 Jul 2022 04:57:28 -0400 (EDT)

branch: externals/denote
commit ee5fba669d83a470c4455fccb6cfd6c729215032
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>

    Move convenience functions into their own section
---
 denote.el | 64 ++++++++++++++++++++++++++++++++-------------------------------
 1 file changed, 33 insertions(+), 31 deletions(-)

diff --git a/denote.el b/denote.el
index ab64acd592..37697c2102 100644
--- a/denote.el
+++ b/denote.el
@@ -781,8 +781,6 @@ When called from Lisp, all arguments are optional.
     (denote--prepare-note (or title "") keywords date id directory file-type)
     (denote--keywords-add-to-history keywords)))
 
-(defalias 'denote-create-note (symbol-function 'denote))
-
 ;;;;; The `denote-type' command
 
 (defvar denote--file-type-history nil
@@ -806,19 +804,6 @@ here for clarity."
     filetype)
    (t (user-error "`%s' is not a symbol or string" filetype))))
 
-;;;###autoload
-(defun denote-type ()
-  "Create note while prompting for a file type.
-
-This is the equivalent to calling `denote' when `denote-prompts'
-is set to \\='(file-type title keywords)."
-  (declare (interactive-only t))
-  (interactive)
-  (let ((denote-prompts '(file-type title keywords)))
-    (call-interactively #'denote)))
-
-(defalias 'denote-create-note-using-type (symbol-function 'denote-type))
-
 ;;;;; The `denote-date' command
 
 (defvar denote--date-history nil
@@ -883,22 +868,6 @@ where the former does not read dates without a time 
component."
       (user-error "`%s' already exists; aborting new note creation" identifier)
     t))
 
-;;;###autoload
-(defun denote-date ()
-  "Create note while prompting for a date.
-
-The date can be in YEAR-MONTH-DAY notation like 2022-06-30 or
-that plus the time: 2022-06-16 14:30
-
-This is the equivalent to calling `denote' when `denote-prompts'
-is set to \\='(date title keywords)."
-  (declare (interactive-only t))
-  (interactive)
-  (let ((denote-prompts '(date title keywords)))
-    (call-interactively #'denote)))
-
-(defalias 'denote-create-note-using-date (symbol-function 'denote-date))
-
 ;;;;; The `denote-subdirectory' command
 
 (defvar denote--subdir-history nil
@@ -933,6 +902,39 @@ is set to \\='(date title keywords)."
          (dirs (push root subdirs)))
     (denote--subdirs-completion-table dirs)))
 
+;;;;; Convenience functions
+
+(defalias 'denote-create-note (symbol-function 'denote))
+
+;;;###autoload
+(defun denote-type ()
+  "Create note while prompting for a file type.
+
+This is the equivalent to calling `denote' when `denote-prompts'
+is set to \\='(file-type title keywords)."
+  (declare (interactive-only t))
+  (interactive)
+  (let ((denote-prompts '(file-type title keywords)))
+    (call-interactively #'denote)))
+
+(defalias 'denote-create-note-using-type (symbol-function 'denote-type))
+
+;;;###autoload
+(defun denote-date ()
+  "Create note while prompting for a date.
+
+The date can be in YEAR-MONTH-DAY notation like 2022-06-30 or
+that plus the time: 2022-06-16 14:30
+
+This is the equivalent to calling `denote' when `denote-prompts'
+is set to \\='(date title keywords)."
+  (declare (interactive-only t))
+  (interactive)
+  (let ((denote-prompts '(date title keywords)))
+    (call-interactively #'denote)))
+
+(defalias 'denote-create-note-using-date (symbol-function 'denote-date))
+
 ;;;###autoload
 (defun denote-subdirectory ()
   "Create note while prompting for a subdirectory.



reply via email to

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