about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-03-30 12:31:26 -0500
committerCase Duckworth2021-03-30 12:31:26 -0500
commit0905fab8ee3e72e3dd7d5d47f4dc5dc5bef40be7 (patch)
tree4cf43172b07133ed528f7cebaf55cc595b018ba1
parentSet all fonts on all possible systems (diff)
downloademacs-0905fab8ee3e72e3dd7d5d47f4dc5dc5bef40be7.tar.gz
emacs-0905fab8ee3e72e3dd7d5d47f4dc5dc5bef40be7.zip
Add `:setq-default' macro to save a little load time
-rw-r--r--init.el49
1 files changed, 31 insertions, 18 deletions
diff --git a/init.el b/init.el index f7db5e0..9fd7840 100644 --- a/init.el +++ b/init.el
@@ -39,6 +39,18 @@
39 (car recipe) 39 (car recipe)
40 recipe)))) 40 recipe))))
41 41
42;; Set options using `setq-default', instead of `customize-set-variable'
43;; From what I can tell, `customize-set-variable' loads "all the dependencies
44;; for each SYMBOL it sets (see `custom-load-symbol'). Since I don't want to do
45;; that all the time, here's `:set'. DON'T USE THIS HARDLY EVER. Honestly, I
46;; might want to do a `:option-after' instead (with `:after-loaded' set to t)...
47(setup-define :setq-default
48 (lambda (variable value)
49 `(setq-default ,variable ,value))
50 :documentation "Set options with `setq-default'. USE SPARINGLY!"
51 :debug '(sexp form)
52 :repeatable t)
53
42;; Bind keys to `acdw/map' 54;; Bind keys to `acdw/map'
43(setup-define :acdw/map 55(setup-define :acdw/map
44 (lambda (key command) 56 (lambda (key command)
@@ -244,19 +256,19 @@
244 w32-pass-apps-to-system nil 256 w32-pass-apps-to-system nil
245 w32-apps-modifier 'hyper) 257 w32-apps-modifier 'hyper)
246 258
247;; Dired 259;;; Dired
248(setup dired 260(setup dired
249 (:option dired-recursive-copies 'always 261 (:setq-default dired-recursive-copies 'always
250 dired-recursive-deletes 'always 262 dired-recursive-deletes 'always
251 delete-by-moving-to-trash t 263 delete-by-moving-to-trash t
252 dired-listing-switches "-Al" 264 dired-listing-switches "-Al"
253 ls-lisp-dirs-first t 265 ls-lisp-dirs-first t
254 dired-ls-F-marks-symlinks t 266 dired-ls-F-marks-symlinks t
255 dired-no-confirm '(byte-compile 267 dired-no-confirm '(byte-compile
256 chgrp chmod chown copy 268 chgrp chmod chown copy
257 hardlink load move 269 hardlink load move
258 shell touch symlink) 270 shell touch symlink)
259 dired-dwim-target t) 271 dired-dwim-target t)
260 (:also-load dired-x) 272 (:also-load dired-x)
261 (:hook dired-hide-details-mode 273 (:hook dired-hide-details-mode
262 hl-line-mode) 274 hl-line-mode)
@@ -268,12 +280,13 @@
268 (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")) 280 (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox"))
269 281
270(setup browse-url 282(setup browse-url
271 (:option browse-url-browser-function 'eww-browse-url 283 (:setq-default browse-url-browser-function 'eww-browse-url
272 browse-url-secondary-browser-function (if (executable-find "firefox") 284 browse-url-secondary-browser-function
273 'browse-url-firefox 285 (if (executable-find "firefox")
274 'browse-url-default-browser) 286 'browse-url-firefox
275 browse-url-new-window-flag t 287 'browse-url-default-browser)
276 browse-url-firefox-new-window-is-tab t)) 288 browse-url-new-window-flag t
289 browse-url-firefox-new-window-is-tab t))
277 290
278(setup shr 291(setup shr
279 (:option shr-width fill-column 292 (:option shr-width fill-column