Remove the Rasmus segment

1 files changed, 1 insertions, 89 deletions

@@ -1046,99 +1046,11 @@ For right now, I’m /just/ using Anzu – I don’t like parts of =isearch= but
 
 ** 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)
+  (add-hook 'prog-mode-hook #'prettify-symbols-mode)
 #+end_src
 
 ** Parentheses