[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.