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 () (defun xf/dragon ()
"Share file from current buffer via dragon." "Share file from current buffer via dragon."
(interactive) (interactive)
; TODO somehow fails in image-mode (apply 'start-process
(apply 'call-process `("dragon" nil
`("dragon-drop" nil nil nil "dragon-drop" "-a" "-x"
"-a" "-x" ,@(dired-get-marked-files)
,@(or (dired-get-marked-files) (buffer-file-name) (image-dired-original-file-name) default-directory))) ,(unless (dired-get-marked-files)
(or (buffer-file-name)
(image-dired-original-file-name)
default-directory)
)))
) )
(defun xf/org-journal-current () (defun xf/org-journal-current ()