From 9ec99f30ffe727a2512657aa5cc4ca56380180c2 Mon Sep 17 00:00:00 2001 From: techpoet Date: Thu, 14 May 2020 18:08:37 +0200 Subject: [PATCH 1/2] org link complete function added - new function def--org-link-complete - extending org-link type "deft" --- deft.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/deft.el b/deft.el index 5da224c..949ee5f 100644 --- a/deft.el +++ b/deft.el @@ -1776,7 +1776,8 @@ Otherwise, quick create a new file." (with-eval-after-load 'org (if (fboundp 'org-link-set-parameters) (org-link-set-parameters - "deft" :follow 'deft--org-follow-link :store 'org-deft-store-link) + "deft" :follow 'deft--org-follow-link :store 'org-deft-store-link + :complete 'deft--org-complete) (org-add-link-type "Deft" (lambda (handle) @@ -1788,6 +1789,10 @@ Otherwise, quick create a new file." (org-open-file-with-emacs (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)))) + ;;; Mode definition (defun deft-show-version () From 918007c23314541184d72e01f245fdde973b53bc Mon Sep 17 00:00:00 2001 From: techpoet Date: Sat, 22 Aug 2020 14:26:40 +0200 Subject: [PATCH 2/2] org-link: remove leading '/' from file name - modify deft_find_files_no_prefix - remove substring handling in org-link --- deft.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/deft.el b/deft.el index 949ee5f..13fac54 100644 --- a/deft.el +++ b/deft.el @@ -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)) @@ -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