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

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

[elpa] externals/denote 29ed5c3449 2/3: Add denote--writable-and-support


From: ELPA Syncer
Subject: [elpa] externals/denote 29ed5c3449 2/3: Add denote--writable-and-supported-p helper
Date: Thu, 11 Aug 2022 01:57:34 -0400 (EDT)

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

    Add denote--writable-and-supported-p helper
---
 denote.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/denote.el b/denote.el
index edd3790f72..1474b33ed6 100644
--- a/denote.el
+++ b/denote.el
@@ -441,6 +441,12 @@ trailing hyphen."
   "Return non-nil if FILE has supported extension."
   (string-match-p (format "%s\\(.gpg\\)?\\'" denote--extension-regexp) file))
 
+(defun denote--writable-and-supported-p (file)
+  "Return non-nil if FILE is writable and has supported extension."
+  (and (file-regular-p file-name)
+       (file-writable-p file-name)
+       (denote--file-supported-extension-p file-name)))
+
 (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."



reply via email to

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