[elpa] externals/denote 7674c6f854 170/355: Retrieve identifier from filename alone

[ELPA Syncer]

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

    Retrieve identifier from filename alone
---
 denote-retrieve.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/denote-retrieve.el b/denote-retrieve.el
index 105956d0b9..79e3cb5fe7 100644
--- a/denote-retrieve.el
+++ b/denote-retrieve.el
@@ -44,6 +44,14 @@ group 1.")
 The match that needs to be extracted is explicityly marked as
 group 1.")
 
+(defun denote-retrieve--filename-identifier (file)
+  "Extract identifier from FILE name."
+  (if (file-exists-p file)
+      (progn
+        (string-match denote--id-regexp file)
+        (match-string 0 file))
+    (error "Cannot find `%s' as a file" file)))
+
 (defun denote-retrieve--search (regexp)
   "Search for REGEXP in the current buffer."
   (save-excursion