Skip to content

remove leading '/' in deft_find_files_no_prefix #85

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ghost wants to merge 4 commits into
base: master
Choose a base branch
from
Open

remove leading '/' in deft_find_files_no_prefix #85

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
9ec99f3
org link complete function added
May 14, 2020
918007c
org-link: remove leading '/' from file name
Aug 22, 2020
7e2d38f
Merge remote-tracking branch 'upstream/master'
Aug 22, 2020
c66abb9
Merge branch 'master' into tp_fix_ff_no_prefix
Aug 22, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions deft.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1000,7 +1000,7 @@ See `deft-find-files'."
(defun deft-find-all-files-no-prefix ()
"List files in Deft directory with the Deft directory prefix removed.
See `deft-find-files' and `deft-find-all-files'."
(let* ((dir (expand-file-name deft-directory))
(let* ((dir (expand-file-name (concat deft-directory "/")))
(files (mapcar (lambda (f) (replace-regexp-in-string dir "" f))
(deft-find-all-files))))
files))
Expand Down Expand Up @@ -1790,8 +1790,8 @@ Otherwise, quick create a new file."
(expand-file-name handle deft-directory)))

(defun deft--org-complete ()
(let ((file (completing-read "file" (deft-find-all-files-no-prefix))))
(concat "deft:" (substring file 1))))
(let ((file (completing-read "File: " (deft-find-all-files-no-prefix))))
(concat "deft:" file)))

;;; Mode definition

Expand Down