From c0069f400e52a0508ae46382dad3e81175ecc7b3 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Fri, 5 Jan 2024 01:21:21 +0100
Subject: [PATCH] .

---
 home/emacs/init.el | 63 +++++++++++++++++++++++-----------------------
 1 file changed, 32 insertions(+), 31 deletions(-)

diff --git a/home/emacs/init.el b/home/emacs/init.el
index cd43ba2..9af7bb8 100644
--- a/home/emacs/init.el
+++ b/home/emacs/init.el
@@ -231,32 +231,32 @@
    :config
     (unicode-fonts-setup))
 
-(use-package ligature
-  :config
-  (ligature-set-ligatures
-   't
-   '(";;"
-     ;; SS01
-     "==" "===" "=/=" "!=" "!==" "/=" "/==" "~~" "=~" "!~"
-     ;; SS02
-     ">=" "<="
-     ;; SS03
-     "->" "<-" "=>" "<!--" "-->" "<~" "<~~" "~>" "~~>" "<~>"
-     ;; SS04
-     "</" "/>" "</>" "/\\" "\\/"
-     ;; SS05
-     "|>" "<|"
-     ;; SS06
-     "##" "###"
-     ;; SS07
-     "***" "/*" "*/" "/*/" "(*" "*)" "(*)"
-     ;; SS08
-     ".=" ".-" "..<"
-     ;; CALT
-     "//" "///" "&&" "!!" "??" "?." "?:" "||" "::" ":::" ";;" ".." "..." "=!=" "#=" ":=" "=:" "=:="
-     ":>" ">:" "<:" ":<" "..=" "..-"
-     ))
-  (global-ligature-mode nil))
+;; (use-package ligature
+;;   :config
+;;   (ligature-set-ligatures
+;;    't
+;;    '(";;"
+;;      ;; SS01
+;;      "==" "===" "=/=" "!=" "!==" "/=" "/==" "~~" "=~" "!~"
+;;      ;; SS02
+;;      ">=" "<="
+;;      ;; SS03
+;;      "->" "<-" "=>" "<!--" "-->" "<~" "<~~" "~>" "~~>" "<~>"
+;;      ;; SS04
+;;      "</" "/>" "</>" "/\\" "\\/"
+;;      ;; SS05
+;;      "|>" "<|"
+;;      ;; SS06
+;;      "##" "###"
+;;      ;; SS07
+;;      "***" "/*" "*/" "/*/" "(*" "*)" "(*)"
+;;      ;; SS08
+;;      ".=" ".-" "..<"
+;;      ;; CALT
+;;      "//" "///" "&&" "!!" "??" "?." "?:" "||" "::" ":::" ";;" ".." "..." "=!=" "#=" ":=" "=:" "=:="
+;;      ":>" ">:" "<:" ":<" "..=" "..-"
+;;      ))
+;;   (global-ligature-mode nil))
 
 (set-frame-parameter nil 'alpha-background 90)
 (add-to-list 'default-frame-alist '(alpha-background . 90))
@@ -631,6 +631,7 @@ Point must be at the beginning of balanced expression (sexp)."
                                    #'cc/barf-forward))
   :hook
   clojure-ts-mode
+  clojure-mode
   emacs-lisp-mode
   scheme-mode)
 
@@ -804,11 +805,11 @@ Point must be at the beginning of balanced expression (sexp)."
   :hook
   (clojure-mode . (lambda ()
                     (setq-local prettify-symbols-alist
-                                '(("(fn " . "(λ ")
-                                  ("(comp " . "(∘ ")
-                                  ("(and " . "(∧ ")
-                                  ("(or " . "(∨ ")
-                                  ("(not " . "(¬ "))))))
+                                '(("fn" . "λ")
+                                  ("comp" . "∘")
+                                  ("and" . "∧")
+                                  ("or" . "∨")
+                                  ("not" . "¬"))))))
 
 (use-package cider
 ;;  :elpaca (:host github :repo "clojure-emacs/cider" :tag "v1.12.0")