.

home/emacs/init.el

@@ -231,32 +231,32 @@
    :config
     (unicode-fonts-setup))
 
-(use-package ligature
+;; (use-package ligature
-  :config
+;;   :config
-  (ligature-set-ligatures
+;;   (ligature-set-ligatures
-   't
+;;    't
-   '(";;"
+;;    '(";;"
-     ;; SS01
+;;      ;; SS01
-     "==" "===" "=/=" "!=" "!==" "/=" "/==" "~~" "=~" "!~"
+;;      "==" "===" "=/=" "!=" "!==" "/=" "/==" "~~" "=~" "!~"
-     ;; SS02
+;;      ;; SS02
-     ">=" "<="
+;;      ">=" "<="
-     ;; SS03
+;;      ;; SS03
-     "->" "<-" "=>" "<!--" "-->" "<~" "<~~" "~>" "~~>" "<~>"
+;;      "->" "<-" "=>" "<!--" "-->" "<~" "<~~" "~>" "~~>" "<~>"
-     ;; SS04
+;;      ;; SS04
-     "</" "/>" "</>" "/\\" "\\/"
+;;      "</" "/>" "</>" "/\\" "\\/"
-     ;; SS05
+;;      ;; SS05
-     "|>" "<|"
+;;      "|>" "<|"
-     ;; SS06
+;;      ;; SS06
-     "##" "###"
+;;      "##" "###"
-     ;; SS07
+;;      ;; SS07
-     "***" "/*" "*/" "/*/" "(*" "*)" "(*)"
+;;      "***" "/*" "*/" "/*/" "(*" "*)" "(*)"
-     ;; SS08
+;;      ;; SS08
-     ".=" ".-" "..<"
+;;      ".=" ".-" "..<"
-     ;; CALT
+;;      ;; CALT
-     "//" "///" "&&" "!!" "??" "?." "?:" "||" "::" ":::" ";;" ".." "..." "=!=" "#=" ":=" "=:" "=:="
+;;      "//" "///" "&&" "!!" "??" "?." "?:" "||" "::" ":::" ";;" ".." "..." "=!=" "#=" ":=" "=:" "=:="
-     ":>" ">:" "<:" ":<" "..=" "..-"
+;;      ":>" ">:" "<:" ":<" "..=" "..-"
-     ))
+;;      ))
-  (global-ligature-mode nil))
+;;   (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 " . "(λ ")
+                                '(("fn" . "λ")
-                                  ("(comp " . "(∘ ")
+                                  ("comp" . "∘")
-                                  ("(and " . "(∧ ")
+                                  ("and" . "∧")
-                                  ("(or " . "(∨ ")
+                                  ("or" . "∨")
-                                  ("(not " . "(¬ "))))))
+                                  ("not" . "¬"))))))
 
 (use-package cider
 ;;  :elpaca (:host github :repo "clojure-emacs/cider" :tag "v1.12.0")