config/doom: fix dragon-drop
This commit is contained in:
parent
23ed1c08b5
commit
0885c8ab23
|
@ -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 ()
|
||||||
|
|
Loading…
Reference in New Issue