commit 4c78bf9b597cda30da83b76951916708b685dc57
parent 65a6ebf9f225761d386568df769a83d1ef2094b2
Author: Vincent Demeester <vincent@sbr.pm>
Date: Fri, 14 Aug 2020 12:09:51 +0200
tools/emacs: move sbr/ to vde/
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
3 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el
@@ -57,12 +57,12 @@
(setq-default custom-safe-themes t)
(setq-default custom--inhibit-theme-enable nil)
- (defun sbr/before-load-theme (&rest args)
+ (defun vde/before-load-theme (&rest args)
"Clear existing theme settings instead of layering them.
Ignores `ARGS'."
(mapc #'disable-theme custom-enabled-themes))
- (advice-add 'load-theme :before #'sbr/before-load-theme))
+ (advice-add 'load-theme :before #'vde/before-load-theme))
;; -UseTheme
;; UseWindowDivider
@@ -87,7 +87,7 @@ Ignores `ARGS'."
(setq-default tab-bar-tab-hints nil)
(setq-default tab-bar-tab-name-function 'tab-bar-tab-name-all)
- (defun sbr/icomplete-tab-bar-tab-dwim ()
+ (defun vde/icomplete-tab-bar-tab-dwim ()
"Do-What-I-Mean function for getting to a `tab-bar-mode' tab.
If no other tab exists, create one and switch to it. If there is
one other tab (so two in total) switch to it without further
@@ -104,7 +104,7 @@ questions. Else use completion to select the tab to switch to."
(tab-bar-switch-to-tab
(completing-read "Select tab: " tabs nil t))))))
- :bind (("C-x t t" . sbr/icomplete-tab-bar-tab-dwim)
+ :bind (("C-x t t" . vde/icomplete-tab-bar-tab-dwim)
("C-x t s" . tab-switcher)))
;; -UseTabbar
diff --git a/tools/emacs/config/config-editing.el b/tools/emacs/config/config-editing.el
@@ -69,16 +69,16 @@
;; UseWhitespace
(use-package whitespace
- :commands (whitespace-mode sbr/toggle-invisibles)
+ :commands (whitespace-mode vde/toggle-invisibles)
:config
(setq-default whitespace-style '(face tabs spaces trailing space-before-tab newline indentation empty space-after-tab space-mark tab-mark newline-mark))
- (defun sbr/toggle-invisibles ()
+ (defun vde/toggle-invisibles ()
"Toggles the display of indentation and space characters."
(interactive)
(if (bound-and-true-p whitespace-mode)
(whitespace-mode -1)
(whitespace-mode)))
- :bind ("<f6>" . sbr/toggle-invisibles))
+ :bind ("<f6>" . vde/toggle-invisibles))
;; -UseWhitespace
;; UseExpandRegion
@@ -127,13 +127,13 @@
:hook (prog-mode . display-line-numbers-mode)
:config
(setq-default display-line-numbers-type 'relative)
- (defun sbr/toggle-line-numbers ()
+ (defun vde/toggle-line-numbers ()
"Toggles the display of line numbers. Applies to all buffers."
(interactive)
(if (bound-and-true-p display-line-numbers-mode)
(display-line-numbers-mode -1)
(display-line-numbers-mode)))
- :bind ("<f7>" . sbr/toggle-line-numbers))
+ :bind ("<f7>" . vde/toggle-line-numbers))
(add-hook 'prog-mode-hook 'toggle-truncate-lines)
diff --git a/tools/emacs/early-init.el b/tools/emacs/early-init.el
@@ -92,9 +92,9 @@
(advice-add #'load-theme :after #'contrib/run-after-load-theme-hook)
(require 'modus-operandi-theme)
-(defun sbr/modus-operandi ()
+(defun vde/modus-operandi ()
"Enable some Modus Operandi variables and load the theme.
-This is used internally by `sbr/modus-themes-toggle'."
+This is used internally by `vde/modus-themes-toggle'."
(setq modus-operandi-theme-slanted-constructs t
modus-operandi-theme-bold-constructs t
modus-operandi-theme-visible-fringes nil
@@ -111,7 +111,7 @@ This is used internally by `sbr/modus-themes-toggle'."
modus-operandi-theme-scale-4 1.2)
(load-theme 'modus-operandi t))
-(defun sbr/modus-operandi-custom ()
+(defun vde/modus-operandi-custom ()
"Customize modus-operandi theme"
(if (member 'modus-operandi custom-enabled-themes)
(modus-operandi-theme-with-color-variables ; this macro allows us to access the colour palette
@@ -124,8 +124,8 @@ This is used internally by `sbr/modus-themes-toggle'."
`(whitespace-indentation ((,class (:background "#ffffff" :foreground "#cccccc"))))
))))
-(add-hook 'contrib/after-load-theme-hook 'sbr/modus-operandi-custom)
-(sbr/modus-operandi)
+(add-hook 'contrib/after-load-theme-hook 'vde/modus-operandi-custom)
+(vde/modus-operandi)
(defconst font-height 130
"Default font-height to use.")