Big refactor
This commit is contained in:
parent
85abc71bc2
commit
9b1789697d
|
@ -224,7 +224,14 @@ package. This macro is not repeatable."
|
||||||
:repeatable nil
|
:repeatable nil
|
||||||
:shorthand (lambda (sexp)
|
:shorthand (lambda (sexp)
|
||||||
(let ((recipe (cadr sexp)))
|
(let ((recipe (cadr sexp)))
|
||||||
(if (consp recipe) (car recipe) recipe)))))
|
(if (consp recipe) (car recipe) recipe))))
|
||||||
|
;; Hotfix
|
||||||
|
(setup-define :file-match
|
||||||
|
(lambda (pat)
|
||||||
|
`(add-to-list 'auto-mode-alist (cons ,pat ',(setup-get 'mode))))
|
||||||
|
:documentation "Associate the current mode with files that match PAT."
|
||||||
|
:debug '(form)
|
||||||
|
:repeatable t))
|
||||||
|
|
||||||
;;; `no-littering'
|
;;; `no-littering'
|
||||||
(setup (:straight no-littering)
|
(setup (:straight no-littering)
|
||||||
|
|
|
@ -173,6 +173,11 @@ is, if point < mark."
|
||||||
(if-let ((backend (vc-backend buffer-file-name)))
|
(if-let ((backend (vc-backend buffer-file-name)))
|
||||||
(substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))))
|
(substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))))
|
||||||
|
|
||||||
|
(defun acdw-modeline/wc ()
|
||||||
|
"Display current `wc-buffer-stats'."
|
||||||
|
(when (bound-and-true-p wc-mode)
|
||||||
|
(or wc-buffer-stats "[w]")))
|
||||||
|
|
||||||
(defun acdw-modeline/winum ()
|
(defun acdw-modeline/winum ()
|
||||||
"Show the `winum' number of the current window in the modeline.
|
"Show the `winum' number of the current window in the modeline.
|
||||||
Only shows if there is more than one window."
|
Only shows if there is more than one window."
|
||||||
|
|
Loading…
Reference in New Issue