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

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

[elpa] externals/denote 147901f971 072/355: Rename 'denote--directory' t


From: ELPA Syncer
Subject: [elpa] externals/denote 147901f971 072/355: Rename 'denote--directory' to 'denote-directory'
Date: Sun, 26 Jun 2022 23:58:02 -0400 (EDT)

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

    Rename 'denote--directory' to 'denote-directory'
---
 denote-link.el | 10 +++++-----
 denote.el      |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/denote-link.el b/denote-link.el
index 40256ea850..a1c0489b05 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -73,14 +73,14 @@ Both are supplied by `denote-link'."
 
 (defun denote-link--retrieve-value (note regexp)
   "Return REGEXP value from NOTE."
-  (let ((default-directory (denote--directory)))
+  (let ((default-directory (denote-directory)))
     (with-temp-buffer
       (insert-file-contents-literally note)
       (denote-link--find-key-value-pair regexp))))
 
 (defun denote-link--read-file-prompt ()
   "Prompt for regular file in `denote-directory'."
-  (read-file-name "Select note: " (denote--directory)
+  (read-file-name "Select note: " (denote-directory)
                   nil t nil #'file-regular-p)) ; Includes backup files.  Maybe 
we can remove them?
 
 ;;;###autoload
@@ -88,7 +88,7 @@ Both are supplied by `denote-link'."
   "Create Org link to TARGET note in `denote-directory'.
 Run `denote-link-insert-functions' afterwards."
   (interactive (list (denote-link--read-file-prompt)))
-  (let* ((dir (denote--directory))
+  (let* ((dir (denote-directory))
          (target-id (cdr (denote-link--retrieve-value target 
denote-link--identifier-regexp)))
          (target-name (string-remove-prefix
                        dir (cdr (denote-link--retrieve-value target 
denote-link--filename-regexp))))
@@ -109,7 +109,7 @@ This heading is appended to a file when another links to 
it.")
 
 (defun denote-link-backlink (target-file origin-link)
   "Insert ORIGIN-LINK to TARGET-FILE."
-  (let ((default-directory (denote--directory))
+  (let ((default-directory (denote-directory))
         (heading denote-link-backlink-heading)
         heading-point)
     (with-current-buffer (find-file-noselect target-file)
@@ -128,7 +128,7 @@ This heading is appended to a file when another links to 
it.")
 (defun denote-link-clear-stale-backlinks ()
   "Delete backlinks that no longer point to files."
   (interactive)
-  (let ((default-directory (denote--directory)))
+  (let ((default-directory (denote-directory)))
     (save-excursion
       (goto-char (point-min))
       (when (re-search-forward denote-link-backlink-heading nil t))
diff --git a/denote.el b/denote.el
index edd20b0e2c..80f4191812 100644
--- a/denote.el
+++ b/denote.el
@@ -126,7 +126,7 @@ specifiers."
 
 ;;;; File helper functions
 
-(defun denote--directory ()
+(defun denote-directory ()
   "Valid name format for `denote-directory'."
   (let ((path denote-directory))
     (unless (file-directory-p path)
@@ -192,7 +192,7 @@ With optional N, search in the Nth line from point."
 
 (defun denote--directory-files ()
   "List `denote-directory' files, assuming flat directory."
-  (let* ((dir (denote--directory))
+  (let* ((dir (denote-directory))
          (default-directory dir))
     (seq-remove
      (lambda (file)



reply via email to

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