emmet/nixos-config
0
1
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Forked org-krita

Browse Source
This commit is contained in:
Emmet
2024-04-13 15:01:51 -05:00
parent 46387c6f57
commit 7888439a8d
4 changed files with 10 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
user/app/doom-emacs/doom.org
View File

@ -514,26 +514,8 @@ same directory as the org-buffer and insert a link to this file."
(add-load-path! "~/.emacs.d/org-krita")
(require 'org-krita)
(add-hook 'org-mode-hook 'org-krita-mode)
(defun org-krita-show-link (link)
(org-krita-hide-link link)
(let* ((start (org-element-property :begin link))
(end (org-element-property :end link))
(overlay (make-overlay (+ start 0) (+ end 0)))
(kra-path (org-element-property :path link)))
(overlay-put overlay 'display (create-image (org-krita-extract-png kra-path) 'png t :scale 0.5))
(push (cons kra-path overlay) org-krita-overlays)))
(defun org-krita-edit (path &optional full-mode)
"Edit given PATH in krita canvasonly mode.
If FULL-MODE is not null, run full krita."
(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 kra-path))
(org-krita-add-watcher kra-path))))
(setq org-krita-extract-filename "preview.png")
(setq org-krita-scale 1)
#+END_SRC
*** Copy Links/Files into Clipboard