[elpa] externals/denote 01618516ff 07/27: Refine denote--file-name-relative-to-denote-directory

[ELPA Syncer]

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

    Refine denote--file-name-relative-to-denote-directory
---
 denote.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 58ea9ed912..f57ce463e0 100644
--- a/denote.el
+++ b/denote.el
@@ -317,9 +317,11 @@ FILE is relative to the variable `denote-directory'."
 (defun denote--file-name-relative-to-denote-directory (file)
   "Return file name of FILE relative to the variable `denote-directory'.
 FILE must be an absolute path."
-  (if (and (file-name-absolute-p file)
-           (string-prefix-p (denote-directory) file))
-    (substring-no-properties file (length (denote-directory)))))
+  (if-let* ((dir (denote-directory))
+            ((file-name-absolute-p file))
+            ((string-prefix-p dir file)))
+      (substring-no-properties file (length dir))
+    file))
 
 (defun denote--current-file-is-note-p ()
   "Return non-nil if current file likely is a Denote note."