summaryrefslogtreecommitdiff
path: root/org-fc.el
diff options
context:
space:
mode:
Diffstat (limited to 'org-fc.el')
-rw-r--r--org-fc.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/org-fc.el b/org-fc.el
index 4dddaf8..c688e4a 100644
--- a/org-fc.el
+++ b/org-fc.el
@@ -270,6 +270,14 @@ Used to calculate the time needed for reviewing a card.")
;;; Helper Functions
+(defun org-fc-member-p (path)
+ "Check if PATH is member of one of the `org-fc-directories'."
+ (setq path (expand-file-name path))
+ (and (string= (file-name-extension file) "org")
+ (cl-some
+ (lambda (dir) (string-prefix-p (expand-file-name dir) path))
+ org-fc-directories)))
+
(defun org-fc-noop ()
"Noop-function.")