[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote c4d76bdd55 1/3: Add denote--file-supported-exten
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote c4d76bdd55 1/3: Add denote--file-supported-extension-p helper |
Date: |
Thu, 11 Aug 2022 01:57:34 -0400 (EDT) |
branch: externals/denote
commit c4d76bdd552ac2795176866f5cca5075cc814683
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add denote--file-supported-extension-p helper
---
denote.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/denote.el b/denote.el
index 1fa8ae5dc4..edd3790f72 100644
--- a/denote.el
+++ b/denote.el
@@ -437,6 +437,10 @@ trailing hyphen."
file-name)
(not (string-match-p "[#~]\\'" file)))))
+(defun denote--file-supported-extension-p (file)
+ "Return non-nil if FILE has supported extension."
+ (string-match-p (format "%s\\(.gpg\\)?\\'" denote--extension-regexp) file))
+
(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."