diff options
-rw-r--r-- | README.md | 51 |
1 files changed, 47 insertions, 4 deletions
diff --git a/README.md b/README.md index bf0f77e..5d6c99e 100644 --- a/README.md +++ b/README.md | |||
@@ -213,6 +213,12 @@ from [EmacsWiki](https://www.emacswiki.org/emacs/AlarmBell#h5o-3). | |||
213 | ### Frames | 213 | ### Frames |
214 | 214 | ||
215 | 215 | ||
216 | #### Frame titles | ||
217 | |||
218 | (cuss frame-title-format (concat invocation-name "@" system-name | ||
219 | ": %b %+%+ %f")) | ||
220 | |||
221 | |||
216 | #### Fringes | 222 | #### Fringes |
217 | 223 | ||
218 | (cuss indicate-empty-lines t | 224 | (cuss indicate-empty-lines t |
@@ -225,8 +231,12 @@ from [EmacsWiki](https://www.emacswiki.org/emacs/AlarmBell#h5o-3). | |||
225 | (cuss visual-line-fringe-indicators '(left-curly-arrow nil) | 231 | (cuss visual-line-fringe-indicators '(left-curly-arrow nil) |
226 | "Indicate continuing lines with a curly arrow in the left fringe.") | 232 | "Indicate continuing lines with a curly arrow in the left fringe.") |
227 | 233 | ||
228 | (set-fringe-bitmap-face 'left-curly-arrow | 234 | ;; redefine the `left-curly-arrow' indicator to be less distracting. |
229 | '((t :inherit 'comment))) | 235 | (define-fringe-bitmap 'left-curly-arrow |
236 | [#b11000000 | ||
237 | #b01100000 | ||
238 | #b00110000 | ||
239 | #b00011000]) | ||
230 | 240 | ||
231 | 241 | ||
232 | #### Minibuffer | 242 | #### Minibuffer |
@@ -256,9 +266,18 @@ from [EmacsWiki](https://www.emacswiki.org/emacs/AlarmBell#h5o-3). | |||
256 | (winner-mode +1)) | 266 | (winner-mode +1)) |
257 | 267 | ||
258 | 268 | ||
259 | #### Switch windows | 269 | #### Switch windows or buffers if one window |
260 | 270 | ||
261 | (global-set-key (kbd "M-o") #'other-window) | 271 | from [u/astoff1](https://www.reddit.com/r/emacs/comments/kz347f/what_parts_of_your_config_do_you_like_best/gjlnp2c/). |
272 | |||
273 | (defun acdw/other-window-or-buffer () | ||
274 | "Switch to other window, or previous buffer." | ||
275 | (interactive) | ||
276 | (if (eq (count-windows) 1) | ||
277 | (switch-to-buffer nil) | ||
278 | (other-window 1))) | ||
279 | |||
280 | (global-set-key (kbd "M-o") #'acdw/other-window-or-buffer) | ||
262 | 281 | ||
263 | 282 | ||
264 | #### Pop-up windows | 283 | #### Pop-up windows |
@@ -929,6 +948,10 @@ I’ve pretty much cribbed this from [recentf-remove-sudo-tramp-prefix](https:// | |||
929 | 948 | ||
930 | (cuss yank-pop-change-selection t | 949 | (cuss yank-pop-change-selection t |
931 | "Update the X selection when rotating the kill ring.") | 950 | "Update the X selection when rotating the kill ring.") |
951 | |||
952 | (cuss x-select-enable-clipboard t) | ||
953 | (cuss x-select-enable-primary t) | ||
954 | (cuss mouse-drag-copy-region t) | ||
932 | 955 | ||
933 | 956 | ||
934 | #### Don’t append the same thing twice to the kill-ring | 957 | #### Don’t append the same thing twice to the kill-ring |
@@ -996,6 +1019,18 @@ I’ve pretty much cribbed this from [recentf-remove-sudo-tramp-prefix](https:// | |||
996 | (global-set-key (kbd "C-=") #'er/expand-region) | 1019 | (global-set-key (kbd "C-=") #'er/expand-region) |
997 | 1020 | ||
998 | 1021 | ||
1022 | ### Move where I mean | ||
1023 | |||
1024 | (straight-use-package 'mwim) | ||
1025 | (require 'mwim) | ||
1026 | |||
1027 | (cuss mwim-beginning-of-line-function 'beginning-of-visual-line) | ||
1028 | (cuss mwim-end-of-line-function 'end-of-visual-line) | ||
1029 | |||
1030 | (global-set-key (kbd "C-a") #'mwim-beginning) | ||
1031 | (global-set-key (kbd "C-e") #'mwim-end) | ||
1032 | |||
1033 | |||
999 | # Programming | 1034 | # Programming |
1000 | 1035 | ||
1001 | 1036 | ||
@@ -1071,6 +1106,11 @@ I’ve pretty much cribbed this from [recentf-remove-sudo-tramp-prefix](https:// | |||
1071 | ## Language-specific packages | 1106 | ## Language-specific packages |
1072 | 1107 | ||
1073 | 1108 | ||
1109 | ### Executable scripts | ||
1110 | |||
1111 | (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p) | ||
1112 | |||
1113 | |||
1074 | ### Emacs lisp | 1114 | ### Emacs lisp |
1075 | 1115 | ||
1076 | (cuss eval-expression-print-length nil | 1116 | (cuss eval-expression-print-length nil |
@@ -1313,6 +1353,9 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m | |||
1313 | "Maximum level of headlines to export /as/ a headline.") | 1353 | "Maximum level of headlines to export /as/ a headline.") |
1314 | 1354 | ||
1315 | 1355 | ||
1356 | #### TODO configure `mwim` to work with Org mode | ||
1357 | |||
1358 | |||
1316 | #### Tags | 1359 | #### Tags |
1317 | 1360 | ||
1318 | (cuss org-tags-column 0 | 1361 | (cuss org-tags-column 0 |