config/doom: fix dragon-drop

This commit is contained in:
xeruf 2022-11-06 22:49:43 +01:00
parent 23ed1c08b5
commit 0885c8ab23
1 changed files with 9 additions and 5 deletions

View File

@ -79,11 +79,15 @@ Version 2019-11-04 2021-02-16"
(defun xf/dragon ()
"Share file from current buffer via dragon."
(interactive)
; TODO somehow fails in image-mode
(apply 'call-process
`("dragon-drop" nil nil nil
"-a" "-x"
,@(or (dired-get-marked-files) (buffer-file-name) (image-dired-original-file-name) default-directory)))
(apply 'start-process
`("dragon" nil
"dragon-drop" "-a" "-x"
,@(dired-get-marked-files)
,(unless (dired-get-marked-files)
(or (buffer-file-name)
(image-dired-original-file-name)
default-directory)
)))
)
(defun xf/org-journal-current ()