diff --git a/config.org b/config.org index 02aac5f..23ca878 100644 --- a/config.org +++ b/config.org @@ -57,23 +57,6 @@ needs to be set up to install them if they aren't already. (load-theme 'spacemacs-light t) #+end_src -** Font - - I am addicted to programming ligatures but Fira Code (my preferred - ligature font) requires some hackery to display properly; this is - defined in [[file:fira-code-mode/fira-code-mode.el][fira-code-mode.el]] so first we load that. - - #+begin_src emacs-lisp - (add-to-list 'load-path "/home/cdo/.emacs.d/fira-code-mode") - (require 'fira-code-mode) - #+end_src - - And then make sure that mode is enabled for any =prog-mode= buffer. - - #+begin_src emacs-lisp - (add-hook 'prog-mode-hook 'fira-code-mode) - #+end_src - * Org-mode I use a couple non-standard bits and pieces, but not a whole bunch. I diff --git a/fira-code-mode/fira-code-mode.el b/fira-code-mode/fira-code-mode.el deleted file mode 100644 index 695a211..0000000 --- a/fira-code-mode/fira-code-mode.el +++ /dev/null @@ -1,57 +0,0 @@ -(defun fira-code-mode--make-alist (list) - "Generate prettify-symbols alist from LIST." - (let ((idx -1)) - (mapcar - (lambda (s) - (setq idx (1+ idx)) - (let* ((code (+ #Xe100 idx)) - (width (string-width s)) - (prefix ()) - (suffix '(?\s (Br . Br))) - (n 1)) - (while (< n width) - (setq prefix (append prefix '(?\s (Br . Bl)))) - (setq n (1+ n))) - (cons s (append prefix suffix (list (decode-char 'ucs code)))))) - list))) - -(defconst fira-code-mode--ligatures - '("www" "**" "***" "**/" "*>" "*/" "\\\\" "\\\\\\" - "{-" "[]" "::" ":::" ":=" "!!" "!=" "!==" "-}" - "--" "---" "-->" "->" "->>" "-<" "-<<" "-~" - "#{" "#[" "##" "###" "####" "#(" "#?" "#_" "#_(" - ".-" ".=" ".." "..<" "..." "?=" "??" ";;" "/*" - "/**" "/=" "/==" "/>" "//" "///" "&&" "||" "||=" - "|=" "|>" "^=" "$>" "++" "+++" "+>" "=:=" "==" - "===" "==>" "=>" "=>>" "<=" "=<<" "=/=" ">-" ">=" - ">=>" ">>" ">>-" ">>=" ">>>" "<*" "<*>" "<|" "<|>" - "<$" "<$>" "