From 3a5273f5b3f206c641412439dc90c7f3bb015ed1 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sun, 9 Mar 2025 21:40:37 +0200
Subject: prog-mode: Remove prettification

While it's cool, it fucked with indentation sometimes and sometimes made me confused.
---
 init.el | 44 --------------------------------------------
 1 file changed, 44 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index cd6f0cd..cd1808e 100644
--- a/init.el
+++ b/init.el
@@ -573,50 +573,6 @@
                          :repo "Kaali/pico8-mode")
   :mode "\\.p8\\'")
 
-(use-package prog-mode
-  :straight '(prog-mode :type built-in)
-  :preface
-  (defun prepend-prettify (items)
-    (setq prettify-symbols-alist (append items prettify-symbols-alist))
-    (prettify-symbols-mode -1)
-    (prettify-symbols-mode +1))
-  (defun prettify-prog-mode ()
-    (prepend-prettify '((">=" . ?≥)
-                        ("<=" . ?≤))))
-  (defun prettify-cc-modes ()
-    (prepend-prettify '(("->"     . ?→)
-                        ("<<"     . ?≪)
-                        (">>"     . ?≫)
-                        ("=="     . (?= (tc . bc) ??))
-                        ("!="     . (?≠ (tc . bc) ??))
-                        ("^"      . ?⊕)
-                        ("&&"     . ?∧)
-                        ("||"     . ?∨)
-                        ("<<="    . (?≪ (cr . cl) ?=))
-                        (">>="    . (?≫ (cr . cl) ?=))
-                        ("&="     . (?∩ (cr . cl) ?=))
-                        ("|="     . (?∪ (cr . cl) ?=))
-                        ("^="     . (?⊕ (cr . cl) ?=))
-                        ("bool"   . ?𝔹)
-                        ("_Bool"  . ?𝔹)
-                        ("int"    . ?ℤ)
-                        ("float"  . ?ℚ)
-                        ("true"   . ?𝕋)
-                        ("_True"  . ?𝕋)
-                        ("false"  . ?𝔽)
-                        ("_False" . ?𝔽))))
-  (defun prettify-lisp-modes ()
-    (prepend-prettify '(("lambda"  . ?λ)
-                        ("lambda*" . (?λ (cr . Bc) ?⋆))
-                        ("->"      . ?→)
-                        ("=>"      . ?⇒))))
-  :hook (c-mode-common . prettify-cc-modes)
-  :hook (c-ts-base-mode . prettify-cc-modes)
-  :hook (emacs-lisp-mode . prettify-lisp-modes)
-  :hook (lisp-mode . prettify-lisp-modes)
-  :hook (prog-mode . prettify-prog-mode)
-  :hook (scheme-mode . prettify-lisp-modes))
-
 ;; use-package project
 (require 'arkta-project)
 
-- 
cgit v1.2.3