about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-01 17:55:18 -0500
committerCase Duckworth2021-04-01 17:55:48 -0500
commitd04a3bbd78f80299d31a67795a78ed45e6de33b5 (patch)
treeaea377d522ddd55f89a41f8f3c19ca18814a8393
parentChange method of init-time message (diff)
downloademacs-d04a3bbd78f80299d31a67795a78ed45e6de33b5.tar.gz
emacs-d04a3bbd78f80299d31a67795a78ed45e6de33b5.zip
Move MS Windows settings above Etc settings and add some
Most are from https://depp.brause.cc/dotemacs/.
-rw-r--r--init.el29
1 files changed, 19 insertions, 10 deletions
diff --git a/init.el b/init.el index e385e4a..3ae414c 100644 --- a/init.el +++ b/init.el
@@ -261,15 +261,6 @@
261 (remove-function after-focus-change-function 261 (remove-function after-focus-change-function
262 'hook--setup-fonts))) 262 'hook--setup-fonts)))
263 263
264;;;; MS Windows
265(setc w32-allow-system-shell t
266 w32-pass-lwindow-to-system nil
267 w32-lwindow-modifier 'super
268 w32-pass-rwindow-to-system nil
269 w32-rwindow-modifier 'super
270 w32-pass-apps-to-system nil
271 w32-apps-modifier 'hyper)
272
273;;;; Dired 264;;;; Dired
274(setup dired 265(setup dired
275 (:setq-default dired-recursive-copies 'always 266 (:setq-default dired-recursive-copies 'always
@@ -352,6 +343,20 @@
352 (add-hook 'text-mode-hook #'flyspell-mode) 343 (add-hook 'text-mode-hook #'flyspell-mode)
353 (add-hook 'prog-mode-hook #'flyspell-prog-mode)) 344 (add-hook 'prog-mode-hook #'flyspell-prog-mode))
354 345
346;;;; MS Windows
347(when (eq acdw/system :work)
348 (setc w32-allow-system-shell t
349 w32-pass-lwindow-to-system nil
350 w32-lwindow-modifier 'super
351 w32-pass-rwindow-to-system nil
352 w32-rwindow-modifier 'super
353 w32-pass-apps-to-system nil
354 w32-apps-modifier 'hyper
355 find-function-C-source-directory (expand-file-name
356 (concat "~/src/emacs-"
357 emacs-version
358 "/src"))))
359
355;;;; Etc. good defaults 360;;;; Etc. good defaults
356(setc custom-file (acdw/in-dir "custom.el") 361(setc custom-file (acdw/in-dir "custom.el")
357 inhibit-startup-screen t 362 inhibit-startup-screen t
@@ -368,7 +373,11 @@
368 " Client"))) 373 " Client")))
369 tab-bar-show 1 374 tab-bar-show 1
370 use-dialog-box nil 375 use-dialog-box nil
371 use-file-dialog nil) 376 use-file-dialog nil
377 echo-keystrokes 0.25
378 recenter-positions '(top middle bottom)
379 attempt-stack-overflow-recovery nil
380 attempt-orderly-shutdown-on-fatal-signal nil)
372 381
373;;;; Etc. bindings 382;;;; Etc. bindings
374(global-set-key [remap just-one-space] #'cycle-spacing) 383(global-set-key [remap just-one-space] #'cycle-spacing)