From d04a3bbd78f80299d31a67795a78ed45e6de33b5 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 1 Apr 2021 17:55:18 -0500
Subject: Move MS Windows settings above Etc settings and add some

Most are from https://depp.brause.cc/dotemacs/.
---
 init.el | 29 +++++++++++++++++++----------
 1 file 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 @@
                 (remove-function after-focus-change-function
                                  'hook--setup-fonts)))
 
-;;;; MS Windows
-(setc w32-allow-system-shell t
-      w32-pass-lwindow-to-system nil
-      w32-lwindow-modifier 'super
-      w32-pass-rwindow-to-system nil
-      w32-rwindow-modifier 'super
-      w32-pass-apps-to-system nil
-      w32-apps-modifier 'hyper)
-
 ;;;; Dired
 (setup dired
   (:setq-default dired-recursive-copies 'always
@@ -352,6 +343,20 @@
   (add-hook 'text-mode-hook #'flyspell-mode)
   (add-hook 'prog-mode-hook #'flyspell-prog-mode))
 
+;;;; MS Windows
+(when (eq acdw/system :work)
+  (setc w32-allow-system-shell t
+        w32-pass-lwindow-to-system nil
+        w32-lwindow-modifier 'super
+        w32-pass-rwindow-to-system nil
+        w32-rwindow-modifier 'super
+        w32-pass-apps-to-system nil
+        w32-apps-modifier 'hyper
+        find-function-C-source-directory (expand-file-name
+                                          (concat "~/src/emacs-"
+                                                  emacs-version
+                                                  "/src"))))
+
 ;;;; Etc. good defaults
 (setc custom-file (acdw/in-dir "custom.el")
       inhibit-startup-screen t
@@ -368,7 +373,11 @@
                                     " Client")))
       tab-bar-show 1
       use-dialog-box nil
-      use-file-dialog nil)
+      use-file-dialog nil
+      echo-keystrokes 0.25
+      recenter-positions '(top middle bottom)
+      attempt-stack-overflow-recovery nil
+      attempt-orderly-shutdown-on-fatal-signal nil)
 
 ;;;; Etc. bindings
 (global-set-key [remap just-one-space] #'cycle-spacing)
-- 
cgit 1.4.1-21-gabe81