From 17a116cd6c7d7a9bbe4394dc1f0965ca0fdfffff Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 2 Jan 2021 22:51:31 -0600
Subject: Prettify symbols

---
 config.org | 97 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)

(limited to 'config.org')

diff --git a/config.org b/config.org
index c346ade..e0eed32 100644
--- a/config.org
+++ b/config.org
@@ -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
-- 
cgit 1.4.1-21-gabe81