pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

check the plaintext-objects folder

Browse source
This commit is contained in:
Benson Chu 2023-12-29 07:19:45 -06:00
parent 78ce7e21c5
commit a78a402b8f
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/org-config/my-plaintext-files.el
View file

@ -31,20 +31,25 @@
(when my/is-plaintext-mega-folder
(ec/load-or-ask-file 'my/plaintext-mega-folder "Where's the megasync directory? "))
(defvar my/plaintext-object-folder nil)
(when my/has-plaintext-object-folder
(ec/load-or-ask-file 'my/plaintext-object-folder "Where's the plaintext-object folder? "))
(defun my/plaintext-file (str)
(let ((result (expand-file-name str my/plaintext-folder)))
(if (file-exists-p result)
result
(when my/is-plaintext-mega-folder
(let ((folder (expand-file-name str my/plaintext-mega-folder)))
(or (and (file-exists-p folder)
folder)
result))))))
(let ((result (expand-file-name str my/plaintext-folder))
(mega-folder
(when my/is-plaintext-mega-folder
(expand-file-name str my/plaintext-mega-folder)))
(object-folder
(when my/has-plaintext-object-folder
(expand-file-name str my/plaintext-object-folder))))
(cond ((file-exists-p result)
result)
((and object-folder
(file-exists-p object-folder))
object-folder)
((and mega-folder
(file-exists-p mega-folder))
mega-folder))))
;; (defun my/plaintext-file (str)
;; (if-let ((result (expand-file-name str my/plaintext-migration-folder))