dev: merge from master

This commit is contained in:
Matt Nish-Lapidus 2024-08-27 09:52:50 -04:00
commit 06976a85a0
13 changed files with 58 additions and 39 deletions

View file

@ -31,8 +31,8 @@ playback.")
(format (format "%%%ds | %%s" +irc-left-padding)
(concat "*** " left) right))
(define-obsolete-variable-alias '+irc-notifications-watch-strings 'circe-notifications-watch-strings "v3.0.0")
(define-obsolete-variable-alias '+irc-time-stamp-format 'lui-time-stamp-format "v3.0.0")
(define-obsolete-variable-alias '+irc-notifications-watch-strings 'circe-notifications-watch-strings "3.0.0")
(define-obsolete-variable-alias '+irc-time-stamp-format 'lui-time-stamp-format "3.0.0")
;;

View file

@ -140,7 +140,7 @@ TAB/S-TAB.")
(setq dabbrev-friend-buffer-function #'+dabbrev-friend-buffer-p
dabbrev-ignored-buffer-regexps
'("\\` "
"\\(TAGS\\|tags\\|ETAGS\\|etags\\|GTAGS\\|GRTAGS\\|GPATH\\)\\(<[0-9]+>\\)?")
"\\(?:\\(?:[EG]?\\|GR\\)TAGS\\|e?tags\\|GPATH\\)\\(<[0-9]+>\\)?")
dabbrev-upcase-means-case-search t)
(add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
(add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)

View file

@ -1,13 +1,5 @@
;;; editor/evil/config.el -*- lexical-binding: t; -*-
(defvar +evil-repeat-keys (cons ";" ",")
"The keys to use for universal repeating motions.
This is a cons cell whose CAR is the key for repeating a motion forward, and
whose CDR is for repeating backward. They should both be `kbd'-able strings.
Set this to `nil' to disable universal-repeating on these keys.")
(defvar +evil-want-o/O-to-continue-comments t
"If non-nil, the o/O keys will continue comment lines if the point is on a
line with a linewise comment.")

View file

@ -1,10 +1,5 @@
;;; editor/fold/autoload/hideshow.el -*- lexical-binding: t; -*-
(defface +fold-hideshow-folded-face
`((t (:inherit font-lock-comment-face :weight light)))
"Face to hightlight `hideshow' overlays."
:group 'doom-themes)
;;;###autoload
(defun +fold-hideshow-haml-forward-sexp-fn (arg)
(haml-forward-sexp arg)
@ -30,7 +25,8 @@
'empty-line
'vimish-fold-fringe))))
(overlay-put
ov 'display (propertize " [...] " 'face '+fold-hideshow-folded-face))))
ov 'display (propertize +fold-ellipsis
'face '+fold-hideshow-folded-face))))
;;

View file

@ -1,5 +1,22 @@
;;; editor/fold/config.el -*- lexical-binding: t; -*-
(defcustom +fold-ellipsis " [...] "
"The ellipsis to show for ellided regions (folds).
`org-ellipsis', `truncate-string-ellipsis', and `ts-fold-replacement' are set to
this."
:type 'string
:group '+fold)
(defface +fold-hideshow-folded-face
`((t (:inherit font-lock-comment-face :weight light)))
"Face to hightlight `hideshow' overlays."
:group 'doom-themes)
;;
;;; Global config
(when (modulep! :editor evil)
;; Add vimish-fold, outline-mode & hideshow support to folding commands
(define-key! 'global
@ -18,9 +35,15 @@
"zd" #'vimish-fold-delete
"zE" #'vimish-fold-delete-all)))
(after! org
(setq org-ellipsis +fold-ellipsis))
(after! mule-util
(setq truncate-string-ellipsis +fold-ellipsis))
;;
;; Packages
;;; Packages
(use-package! hideshow ; built-in
:commands (hs-toggle-hiding
@ -91,11 +114,5 @@
:when (modulep! :tools tree-sitter)
:after tree-sitter
:config
;; we want to use our own face so we nullify this one to have no effect and
;; make it more similar to hideshows
(custom-set-faces! '(ts-fold-replacement-face :foreground unspecified
:box nil
:inherit font-lock-comment-face
:weight light))
(setq ts-fold-replacement " [...] ")
(setq ts-fold-replacement +fold-ellipsis)
(global-ts-fold-mode +1))

View file

@ -486,7 +486,8 @@ Made for `org-tab-first-hook'."
(evil-emacs-state-p))
(or (and (bound-and-true-p yas--tables)
(gethash major-mode yas--tables))
(progn (yas-reload-all) t))
(with-memoization (get 'yas-reload-all 'reloaded)
(always (yas-reload-all))))
(yas--templates-for-key-at-point))
(yas-expand)
t)

View file

@ -9,8 +9,15 @@
;;; Packages
(use-package! rustic
:mode ("\\.rs\\'" . rust-mode)
:mode ("\\.rs\\'" . rustic-mode)
:preface
;; HACK: `rust-mode' and `rustic' add entries to `auto-mode-alist', but
;; package load order makes which gets precedence unpredictable. By removing
;; them early, we rely on the `:mode' directives above to re-insert them
;; with the correct order.
(setq auto-mode-alist (assoc-delete-all "\\.rs\\'" auto-mode-alist))
;; HACK `rustic' sets up some things too early. I'd rather disable it and let
;; our respective modules standardize how they're initialized.
(setq rustic-lsp-client nil)

View file

@ -63,11 +63,11 @@ font.")
(defvar +ligatures-prog-mode-list nil
"A list of ligatures to enable in all `prog-mode' buffers.")
(make-obsolete-variable '+ligatures-prog-mode-list "Use `+ligatures-alist' instead" "v3.0.0")
(make-obsolete-variable '+ligatures-prog-mode-list "Use `+ligatures-alist' instead" "3.0.0")
(defvar +ligatures-all-modes-list nil
"A list of ligatures to enable in all buffers.")
(make-obsolete-variable '+ligatures-all-modes-list "Use `+ligatures-alist' instead" "v3.0.0")
(make-obsolete-variable '+ligatures-all-modes-list "Use `+ligatures-alist' instead" "3.0.0")
(defvar +ligatures-extra-alist '((t))
"A map of major modes to symbol lists (for `prettify-symbols-alist').")