diff options
| -rw-r--r-- | init.el | 49 |
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 |