From e88ef5ccf89e8a10287783a4a513b654ee7b6c0b Mon Sep 17 00:00:00 2001 From: Juan Placencia Date: Fri, 30 Jul 2021 09:49:19 -0500 Subject: [PATCH] Graphviz and org-babel integration fixes --- uno/modules/doc/org.org | 6 ++++++ uno/modules/lang/graphviz.org | 10 ++++++++++ 2 files changed, 16 insertions(+) diff --git a/uno/modules/doc/org.org b/uno/modules/doc/org.org index 77ece8b..2c791f4 100644 --- a/uno/modules/doc/org.org +++ b/uno/modules/doc/org.org @@ -24,11 +24,13 @@ Define Org document package. (org-hide-emphasis-markers t) (org-src-window-setup 'current-window) :hook + (org-babel-after-execute . uno/doc/org/after-execute-inline-images) (org-mode . toggle-truncate-lines) (org-mode . uno/doc/org/theme) :general (uno-mode-leader-define :keymaps 'org-mode-map + uno-mode-leader-key '(org-ctrl-c-ctrl-c :which-key "C-c C-c") "i" '(:ignore t :which-key "Insert") "il" '(org-insert-link :which-key "Set link") "it" '(org-set-tags-command :which-key "Set tags") @@ -40,6 +42,10 @@ Define Org document package. uno-mode-leader-key '(org-edit-src-exit :which-key "Save") "k" '(org-edit-src-abort :which-key "Cancel")) :init + (defun uno/doc/org/after-execute-inline-images () + "Ensure inline images remain visible after org babel execute." + (when org-inline-image-overlays + (org-redisplay-inline-images))) (defun uno/doc/org/theme () "Customize face heights for org-mode." (when (display-graphic-p) diff --git a/uno/modules/lang/graphviz.org b/uno/modules/lang/graphviz.org index 23c8a23..ce3bd57 100644 --- a/uno/modules/lang/graphviz.org +++ b/uno/modules/lang/graphviz.org @@ -33,3 +33,13 @@ Define Graphviz language package. (graphviz-turn-on-live-preview) (graphviz-dot-preview))))) #+END_SRC + +** Org Babel +#+BEGIN_SRC emacs-lisp + (use-package graphviz-dot-mode + :after (uno-lang-graphviz org) + :config + (org-babel-do-load-languages + 'org-babel-load-languages + '((dot . t)))) +#+END_SRC