|
|
|
@ -161,11 +161,11 @@ |
|
|
|
(s (substring vc-mode (+ (length backend) 1) (+ (length backend) 2))) |
|
|
|
(s (substring vc-mode (+ (length backend) 1) (+ (length backend) 2))) |
|
|
|
(status (cond ((equal s "-") "") ((equal s ":") "!") (t s)))) |
|
|
|
(status (cond ((equal s "-") "") ((equal s ":") "!") (t s)))) |
|
|
|
(concat "·" branch status))) |
|
|
|
(concat "·" branch status))) |
|
|
|
face font-lock-comment-face)))) |
|
|
|
face magit-branch-local)))) |
|
|
|
(put 'wilder-buffer-vc-mode-line 'risky-local-variable t) |
|
|
|
(put 'wilder-buffer-vc-mode-line 'risky-local-variable t) |
|
|
|
|
|
|
|
|
|
|
|
(defvar wilder-position |
|
|
|
(defvar wilder-position |
|
|
|
'("[%p,%I] " )) |
|
|
|
'("[%p·%I] " )) |
|
|
|
|
|
|
|
|
|
|
|
(put 'wilder-position 'risky-local-variable t) |
|
|
|
(put 'wilder-position 'risky-local-variable t) |
|
|
|
|
|
|
|
|
|
|
|
@ -173,7 +173,6 @@ |
|
|
|
'("%e" |
|
|
|
'("%e" |
|
|
|
mode-line-front-space |
|
|
|
mode-line-front-space |
|
|
|
mode-line-mule-info |
|
|
|
mode-line-mule-info |
|
|
|
mode-line-client |
|
|
|
|
|
|
|
mode-line-modified |
|
|
|
mode-line-modified |
|
|
|
mode-line-remote |
|
|
|
mode-line-remote |
|
|
|
mode-line-frame-identification |
|
|
|
mode-line-frame-identification |
|
|
|
@ -193,12 +192,14 @@ |
|
|
|
(abbrev-mode . "") |
|
|
|
(abbrev-mode . "") |
|
|
|
(auto-fill-function . "") |
|
|
|
(auto-fill-function . "") |
|
|
|
(global-disable-mouse-mode . "") |
|
|
|
(global-disable-mouse-mode . "") |
|
|
|
|
|
|
|
(auto-revert-mode . "") |
|
|
|
;; Major modes |
|
|
|
;; Major modes |
|
|
|
(lisp-interaction-mode . "λ") |
|
|
|
(lisp-interaction-mode . "λ") |
|
|
|
(hi-lock-mode . "") |
|
|
|
(hi-lock-mode . "") |
|
|
|
(python-mode . "Py") |
|
|
|
(python-mode . "Py") |
|
|
|
(emacs-lisp-mode . "EL") |
|
|
|
(emacs-lisp-mode . "EL") |
|
|
|
(TeX-latex-mode . "LaTeχ") |
|
|
|
(tex-mode . "χ") |
|
|
|
|
|
|
|
(latex-mode . "χ") |
|
|
|
(org-mode . "Ω") |
|
|
|
(org-mode . "Ω") |
|
|
|
(org-agenda-mode . "Ω:Agenda")) |
|
|
|
(org-agenda-mode . "Ω:Agenda")) |
|
|
|
"Alist for `clean-mode-line'. |
|
|
|
"Alist for `clean-mode-line'. |
|
|
|
|