diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 810957b0..9104b867 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -493,5 +493,16 @@ an ALIAS and SERVICE as arguments and call (mk/define-remote-log-function "survey" "syslog") (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) ;;; bundle-mk.el ends here