marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show ansi-color in org babel results

Browse source
This commit is contained in:
Marcus Kammer 2024-09-09 13:56:01 +02:00
parent 2d03e4550b
commit 27dd0a2552
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
bundle/bundle--mk.el
View file

@ -493,5 +493,16 @@ an ALIAS and SERVICE as arguments and call
(mk/define-remote-log-function "survey" "syslog") (mk/define-remote-log-function "survey" "syslog")
(mk/define-remote-log-function "pihole" "pihole" "pihole.log") (mk/define-remote-log-function "pihole" "pihole" "pihole.log")
(defun mk/babel-ansi ()
(when-let ((beg (org-babel-where-is-src-block-result nil nil)))
(save-excursion
(goto-char beg)
(when (looking-at org-babel-result-regexp)
(let ((end (org-babel-result-end))
(ansi-color-context-region nil))
(ansi-color-apply-on-region beg end))))))
(add-hook 'org-babel-after-execute-hook 'mk/babel-ansi)
(provide 'bundle-mk) (provide 'bundle-mk)
;;; bundle-mk.el ends here ;;; bundle-mk.el ends here