diff options
| author | Case Duckworth | 2021-03-01 14:44:43 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-03-01 14:44:43 -0600 |
| commit | c40c07e0b9debab2bf364a7a487e87d135a742fc (patch) | |
| tree | fbc8f7fb86c22577cd8246c2c1a229fa3e30a8f1 /init.el | |
| parent | Re-indent (diff) | |
| download | emacs-c40c07e0b9debab2bf364a7a487e87d135a742fc.tar.gz emacs-c40c07e0b9debab2bf364a7a487e87d135a742fc.zip | |
Add custom-file
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 36 |
1 files changed, 26 insertions, 10 deletions
| diff --git a/init.el b/init.el index 2eef38e..6fc296b 100644 --- a/init.el +++ b/init.el | |||
| @@ -26,26 +26,42 @@ | |||
| 26 | calendar-location-name "Baton Rouge, LA" | 26 | calendar-location-name "Baton Rouge, LA" |
| 27 | calendar-latitude 30.4 | 27 | calendar-latitude 30.4 |
| 28 | calendar-longitude -91.1 | 28 | calendar-longitude -91.1 |
| 29 | calendar-date-style 'iso) | 29 | calendar-date-style 'iso |
| 30 | custom-file (expand-file-name "custom.el" acdw/etc-dir)) | ||
| 30 | 31 | ||
| 31 | ;; Load newer files first | 32 | ;; Load newer files first |
| 32 | (setq-default load-prefer-newer t) | 33 | (setq-default load-prefer-newer t) |
| 33 | 34 | ||
| 34 | ;; Make C-z more useful | 35 | ;; No littering |
| 35 | (defvar acdw/leader | 36 | (use-package no-littering |
| 36 | (let ((map (make-sparse-keymap)) | 37 | :demand |
| 37 | (c-z (global-key-binding "\C-z"))) | 38 | :init (setq no-littering-etc-directory acdw/etc-dir |
| 38 | (global-unset-key "\C-z") | 39 | no-littering-var-directory acdw/var-dir)) |
| 39 | (global-set-key "\C-z" map) | ||
| 40 | (define-key map "\C-z" c-z) | ||
| 41 | map) | ||
| 42 | "A leader key for apps and stuff.") | ||
| 43 | 40 | ||
| 44 | (defun when-unfocused (func &rest args) | 41 | (defun when-unfocused (func &rest args) |
| 45 | "Run FUNC with ARGS iff all frames are out of focus." | 42 | "Run FUNC with ARGS iff all frames are out of focus." |
| 46 | (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list))) | 43 | (when (seq-every-p #'null (mapcar #'frame-focus-state (frame-list))) |
| 47 | (apply func args))) | 44 | (apply func args))) |
| 48 | 45 | ||
| 46 | (define-minor-mode acdw/reading-mode | ||
| 47 | "Make reading comfier." | ||
| 48 | :lighter " Read" | ||
| 49 | (if acdw/reading-mode | ||
| 50 | (progn ;; turn on | ||
| 51 | (text-scale-increase +1) | ||
| 52 | (display-fill-column-indicator-mode -1) | ||
| 53 | (dolist (func '(visual-fill-column-mode | ||
| 54 | iscroll-mode)) | ||
| 55 | (when (fboundp func) | ||
| 56 | (funcall func +1)))) | ||
| 57 | (progn ;; turn off | ||
| 58 | (text-scale-increase 0) | ||
| 59 | (display-fill-column-indicator-mode +1) | ||
| 60 | (dolist (func '(visual-fill-column-mode | ||
| 61 | iscroll-mode)) | ||
| 62 | (when (fboundp func) | ||
| 63 | (funcall func -1)))))) | ||
| 64 | |||
| 49 | ;; Dialogs & alerts | 65 | ;; Dialogs & alerts |
| 50 | (setq-default use-dialog-box nil) ; Don't use a dialog box | 66 | (setq-default use-dialog-box nil) ; Don't use a dialog box |
| 51 | (fset 'yes-or-no-p #'y-or-n-p) | 67 | (fset 'yes-or-no-p #'y-or-n-p) |