Prettify symbols

1 files changed, 97 insertions, 0 deletions

@@ -1020,6 +1020,103 @@ For right now, I’m /just/ using Anzu – I don’t like parts of =isearch= but
 
 * Programming
 
+** Prettify symbols
+
+*** A bit from Rasmus
+
+    from [[https://pank.eu/blog/pretty-babel-src-blocks.html#coderef-symbol][Rasmus Roulund]], via [[https://alhassy.github.io/emacs.d/index.html#Making-Block-Delimiters-Less-Intrusive][Musa Al-hassy]].
+
+    #+begin_src emacs-lisp
+      (defvar-local rasmus/org-at-src-begin -1
+        "Variable that holds whether last position was a ")
+
+      (defvar rasmus/ob-header-symbol ?☰
+        "Symbol used for babel headers")
+
+      (defun rasmus/org-prettify-src--update ()
+        (let ((case-fold-search t)
+              (re "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*")
+              found)
+          (save-excursion
+            (goto-char (point-min))
+            (while (re-search-forward re nil t)
+              (goto-char (match-end 0))
+              (let ((args (org-trim
+                           (buffer-substring-no-properties (point)
+                                                           (line-end-position)))))
+                (when (org-string-nw-p args)
+                  (let ((new-cell (cons args rasmus/ob-header-symbol)))
+                    (cl-pushnew new-cell prettify-symbols-alist :test #'equal)
+                    (cl-pushnew new-cell found :test #'equal)))))
+            (setq prettify-symbols-alist
+                  (cl-set-difference prettify-symbols-alist
+                                     (cl-set-difference
+                                      (cl-remove-if-not
+                                       (lambda (elm)
+                                         (eq (cdr elm) rasmus/ob-header-symbol))
+                                       prettify-symbols-alist)
+                                      found :test #'equal)))
+            ;; Clean up old font-lock-keywords.
+            (font-lock-remove-keywords nil prettify-symbols--keywords)
+            (setq prettify-symbols--keywords (prettify-symbols--make-keywords))
+            (font-lock-add-keywords nil prettify-symbols--keywords)
+            (while (re-search-forward re nil t)
+              (font-lock-flush (line-beginning-position) (line-end-position))))))
+
+      (defun rasmus/org-prettify-src ()
+        "Hide src options via `prettify-symbols-mode'.
+
+        `prettify-symbols-mode' is used because it has uncollpasing. It's
+        may not be efficient."
+        (let* ((case-fold-search t)
+               (at-src-block (save-excursion
+                               (beginning-of-line)
+                               (looking-at "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*"))))
+          ;; Test if we moved out of a block.
+          (when (or (and rasmus/org-at-src-begin
+                         (not at-src-block))
+                    ;; File was just opened.
+                    (eq rasmus/org-at-src-begin -1))
+            (rasmus/org-prettify-src--update))
+          ;; Remove composition if at line; doesn't work properly.
+          ;; (when at-src-block
+          ;;   (with-silent-modifications
+          ;;     (remove-text-properties (match-end 0)
+          ;;                             (1+ (line-end-position))
+          ;;                             '(composition))))
+          (setq rasmus/org-at-src-begin at-src-block)))
+
+      (defun rasmus/org-prettify-symbols ()
+        (mapc (apply-partially 'add-to-list 'prettify-symbols-alist)
+              (cl-reduce 'append
+                         (mapcar (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
+                                 `(("#+begin_src" . ?✎) ;; ➤ 🖝 ➟ ➤ ✎
+                                   ("#+end_src"   . ?⏹) ;; □
+                                   ("#+header:" . ,rasmus/ob-header-symbol)
+                                   ("#+begin_quote" . ?»)
+                                   ("#+end_quote" . ?«)))))
+        (turn-on-prettify-symbols-mode)
+        (add-hook 'post-command-hook 'rasmus/org-prettify-src t t))
+    #+end_src
+
+*** Regular prettify-symbols-mode
+
+#+begin_src emacs-lisp
+  (cuss prettify-symbols-unprettify-at-point 'right-edge
+    "Unprettify a symbol when inside it or next to it.")
+
+  (defun acdw/org-mode-prettify ()
+    "Prettify `org-mode'."
+    (append '(("[ ]" . ?□) ("[X]" . ?☑) ("[-]" . ?◐)
+              ("#begin_src" . ?🖬) ("#BEGIN_SRC" . ?🖬)
+              ("#end_src" . ?■) ("#END_SRC" . ?■))
+            prettify-symbols-alist))
+
+  (add-hook 'org-mode-hook #'acdw/org-mode-prettify)
+
+  (global-prettify-symbols-mode +1)
+#+end_src
+
 ** Parentheses
 
 *** Smart parentheses