blob: 11db1ee3519376acd00c3a0953a73aeb2e1f1662 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
;; Path Functions
(require 'xdg)
(defun my/cache-file-name (name)
(expand-file-name name (concat (xdg-cache-home) "/emacs")))
(defun my/data-file-name (name)
(expand-file-name name (concat (xdg-data-home) "/emacs")))
;; Search Helpers
(defun my/isearch-region (&rest _args)
"Pull the contents of the region into the search string if it
is active."
(when (use-region-p)
(deactivate-mark)
(isearch-yank-string (buffer-substring-no-properties
(region-beginning) (region-end)))))
(defun my/swiper (&optional swiper-all)
"Call ‘swiper’ (‘swiper-all’ when prefixed) with the contents
of the region if it is active."
(interactive "P")
(if (use-region-p)
(let ((initial-input (buffer-substring-no-properties
(region-beginning) (region-end))))
(deactivate-mark)
(if swiper-all (swiper-all initial-input) (swiper initial-input)))
(if swiper-all (swiper-all) (swiper))))
;; Theme Functions
(defun my/macos-dark-p ()
"Returns non-nil if macOS is currently in dark mode, nil otherwise."
(interactive)
(string= (shell-command-to-string "defaults read -g AppleInterfaceStyle")
"Dark\n"))
(defun my/maybe-switch-theme (light-theme dark-theme enable-dark-theme-p)
"Switch between themes.
If ENABLE-DARK-THEME-P returns a non-nil value, then DARK-THEME
is enabled and LIGHT-THEME is disabled, unless DARK-THEME is
already enabled, undefined, or nil. The opposite happens if
ENABLE-DARK-THEME-P returns nil, unless if LIGHT-THEME is nil, in
which case only DARK-THEME is disabled, and nothing else is
enabled."
(if (funcall enable-dark-theme-p)
(when (and (custom-theme-p dark-theme)
(not (custom-theme-enabled-p dark-theme)))
(enable-theme dark-theme)
(disable-theme light-theme))
(if (and (not light-theme) (custom-theme-enabled-p dark-theme))
(disable-theme dark-theme)
(when (and (custom-theme-p light-theme)
(not (custom-theme-enabled-p light-theme)))
(enable-theme light-theme)
(disable-theme dark-theme)))))
;; “Window Management” Functions
(defun my/center-frame (&optional frame)
"Center FRAME."
(interactive)
(modify-frame-parameters frame '((left . 0.5) (top . 0.5))))
(defun my/disable-frame-modes ()
"Disable select frame modes where appropriate."
(dolist (mode '(menu-bar-mode scroll-bar-mode tool-bar-mode))
(when (and (fboundp mode) (symbol-value mode)) (funcall mode -1))))
(defun my/focus-frame (&optional frame)
"Focus FRAME."
(interactive)
(delete-other-windows)
(modify-frame-parameters frame '((fullscreen . fullheight)
(left . 0.5)
(width . 100))))
;; Misc. Stuff
(defun my/display-startup-time ()
"Displays a message saying how long it took Emacs to load."
(message "Emacs loaded in %.2f seconds with %d garbage collections done."
(float-time (time-subtract after-init-time before-init-time))
gcs-done))
(defmacro my/with-add-hook (hook &rest body)
(declare (indent 1) (debug t))
`(add-hook ,hook #'(lambda () ,@body)))
|
