mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
dac6e05b87
In the interest of slimming down Doom's core (as we near v3), I've deprecated these macros. They doesn't really need to exist. Sure, the alternatives aren't as ergonomic or elegant, but they're good enough that we don't need these trivial wrappers. Their local uses have been refactored out as well.
86 lines
3.3 KiB
EmacsLisp
86 lines
3.3 KiB
EmacsLisp
;;; ui/ligatures/autoload/ligatures.el -*- lexical-binding: t; -*-
|
|
|
|
;; DEPRECATED
|
|
;;;###autodef
|
|
(define-obsolete-function-alias 'set-pretty-symbols! 'set-ligatures! "3.0.0")
|
|
|
|
;;;###autodef
|
|
(defun set-ligatures! (modes &rest plist)
|
|
"Associates string patterns with icons in certain major-modes.
|
|
|
|
MODES is a major mode symbol or a list of them.
|
|
PLIST is a property list whose keys must match keys in
|
|
`+ligatures-extra-symbols', and whose values are strings representing the text
|
|
to be replaced with that symbol.
|
|
|
|
If the car of PLIST is nil, then unset any
|
|
pretty symbols and ligatures previously defined for MODES.
|
|
|
|
For example, the rule for emacs-lisp-mode is very simple:
|
|
|
|
(after! elisp-mode
|
|
(set-ligatures! \\='emacs-lisp-mode
|
|
:lambda \"lambda\"))
|
|
|
|
This will replace any instances of \"lambda\" in emacs-lisp-mode with the symbol
|
|
associated with :lambda in `+ligatures-extra-symbols'.
|
|
|
|
Pretty symbols can be unset by passing `nil':
|
|
|
|
(after! rustic
|
|
(set-ligatures! \\='rustic-mode nil))
|
|
|
|
Note that this will keep all ligatures in `+ligatures-prog-mode-list' active, as
|
|
`emacs-lisp-mode' is derived from `prog-mode'."
|
|
(declare (indent defun))
|
|
(if (null (car-safe plist))
|
|
(dolist (mode (ensure-list modes))
|
|
(setf (alist-get mode +ligatures-extra-alist nil t) nil))
|
|
(let ((results))
|
|
(while plist
|
|
(let ((key (pop plist)))
|
|
(when-let (char (plist-get +ligatures-extra-symbols key))
|
|
(push (cons (pop plist) char) results))))
|
|
(dolist (mode (ensure-list modes))
|
|
(setf (alist-get mode +ligatures-extra-alist)
|
|
(if-let* ((old-results (alist-get mode +ligatures-extra-alist)))
|
|
(dolist (cell results old-results)
|
|
(setf (alist-get (car cell) old-results) (cdr cell)))
|
|
results))))))
|
|
|
|
;;;###autodef
|
|
(defun set-font-ligatures! (modes &rest ligatures)
|
|
"Associates string patterns with ligatures in certain major-modes.
|
|
|
|
MODES is a major mode symbol or a list of them.
|
|
LIGATURES is a list of ligatures that should be handled by the font,
|
|
like \"==\" or \"-->\". LIGATURES is a list of strings.
|
|
|
|
For example, the rule for emacs-lisp-mode is very simple:
|
|
|
|
(set-font-ligatures! \\='emacs-lisp-mode \"->\")
|
|
|
|
This will ligate \"->\" into the arrow of choice according to your font.
|
|
|
|
All font ligatures for emacs-lisp-mode can be unset with:
|
|
|
|
(set-font-ligatures! \\='emacs-lisp-mode nil)
|
|
|
|
However, ligatures for any parent modes (like `prog-mode') will still be in
|
|
effect, as `emacs-lisp-mode' is derived from `prog-mode'."
|
|
(declare (indent defun))
|
|
(after! ligature
|
|
(if (or (null ligatures) (equal ligatures '(nil)))
|
|
(dolist (table ligature-composition-table)
|
|
(let ((modes (ensure-list modes))
|
|
(tmodes (car table)))
|
|
(cond ((and (listp tmodes) (cl-intersection modes tmodes))
|
|
(let ((tmodes (cl-nset-difference tmodes modes)))
|
|
(setq ligature-composition-table
|
|
(if tmodes
|
|
(cons tmodes (cdr table))
|
|
(delete table ligature-composition-table)))))
|
|
((memq tmodes modes)
|
|
(setq ligature-composition-table (delete table ligature-composition-table))))))
|
|
(ligature-set-ligatures modes ligatures))))
|