awesome-emacs/org-krita
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make default full krita mode instead of canvasonly

Browse Source
This commit is contained in:
Emmet
2024-04-13 14:41:24 -05:00
parent f44b5f276d
commit 1e4e8f3391
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-krita.el
View File

@@ -149,15 +149,15 @@ Argument _BACKEND refers to export backend."
(unless (alist-get kra-path org-krita-watchers nil nil #'string-equal)
(push (cons kra-path desc) org-krita-watchers))))
(defun org-krita-edit (path &optional full-mode)
"Edit given PATH in krita canvasonly mode.
(defun org-krita-edit (path &optional canvasonly-mode)
"Edit given PATH in krita.
If FULL-MODE is not null, run full krita."
If CANVASONLY-MODE is not null, run krita in canvasonly mode."
(let ((kra-path (expand-file-name path)))
(when (f-exists-p kra-path)
(if full-mode
(call-process org-krita-executable nil 0 nil kra-path)
(call-process org-krita-executable nil 0 nil "--canvasonly" "--nosplash" kra-path))
(if canvasonly-mode
(call-process org-krita-executable nil 0 nil "--canvasonly" "--nosplash" kra-path)
(call-process org-krita-executable nil 0 "--nosplash" nil kra-path))
(org-krita-add-watcher kra-path))))
(defun org-krita-hide-link (link)