diff options
Diffstat (limited to 'lisp/appearance.el')
| -rw-r--r-- | lisp/appearance.el | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/lisp/appearance.el b/lisp/appearance.el index 973564a..51766a5 100644 --- a/lisp/appearance.el +++ b/lisp/appearance.el @@ -33,60 +33,6 @@ (global-prettify-symbols-mode t) -;; This is snippet was taken verbatim from Emacs StackExchange [1] to enable -;; `prettify-symbols in Org source code blocks. Sadly, I can't think of a way to -;; implement this as advice. -;; -;; [1]: https://emacs.stackexchange.com/questions/17283/is-it-possible-to-get-prettified-symbols-in-org-mode-source-blocks - -(defun org-src-font-lock-fontify-block (lang start end) - "Fontify code block. -This function is called by emacs automatic fontification, as long -as `org-src-fontify-natively' is non-nil." - (let ((lang-mode (org-src-get-lang-mode lang))) - (when (fboundp lang-mode) - (let ((string (buffer-substring-no-properties start end)) - (modified (buffer-modified-p)) - (org-buffer (current-buffer))) - (remove-text-properties start end '(face nil)) - (with-current-buffer - (get-buffer-create - (format " *org-src-fontification:%s*" lang-mode)) - (let ((inhibit-modification-hooks nil)) - (erase-buffer) - ;; Add string and a final space to ensure property change. - (insert string " ")) - (unless (eq major-mode lang-mode) (funcall lang-mode)) - (org-font-lock-ensure) - (let ((pos (point-min)) next) - (while (setq next (next-property-change pos)) - ;; Handle additional properties from font-lock, so as to - ;; preserve, e.g., composition. - (dolist (prop (cons 'face font-lock-extra-managed-props)) - (let ((new-prop (get-text-property pos prop))) - (put-text-property - (+ start (1- pos)) (1- (+ start next)) prop new-prop - org-buffer))) - (setq pos next)) - ;; Addition: also copy 'composition info for prettified symbols - (setq pos (point-min)) - (while (setq next (next-single-property-change pos 'composition)) - (put-text-property - (+ start (1- pos)) (1- (+ start next)) 'composition - (get-text-property pos 'composition) org-buffer) - (setq pos next))) - ;; End addition - ) - ;; Add Org faces. - (let ((src-face (nth 1 (assoc-string lang org-src-block-faces t)))) - (when (or (facep src-face) (listp src-face)) - (font-lock-append-text-property start end 'face src-face)) - (font-lock-append-text-property start end 'face 'org-block)) - (add-text-properties - start end - '(font-lock-fontified t fontified t font-lock-multiline t)) - (set-buffer-modified-p modified))))) - ;; Choose a fallback with size comparible to Terminus so that we don't break ;; vterm. (set-fontset-font "fontset-default" 'unicode (font-spec :size 10 :name "DejaVu Sans")) |