Use evil-window-map for SPC w

emacs/.emacs.d/config/init-defaults.el

@@ -1,28 +1,40 @@
 ;; -*- lexical-binding: t; -*-
 
 ;; Fix Emacs' bad defaults
+(use-package emacs
+  :init
+  ;; Save backups and autosaves in a centralized place
+  (defvar autosave-directory (expand-file-name "autosaves" user-emacs-directory))
+  (defvar backup-directory (expand-file-name "backups" user-emacs-directory))
+  (make-directory autosave-directory t)
+  (setq auto-save-file-name-transforms `((".*" ,autosave-directory t))
+        backup-directory-alist `(("." . ,backup-directory)))
 
-;; Save backups and autosaves in a centralized place
+  ;; Sensible variable defaults
-(defvar autosave-directory (expand-file-name "autosaves" user-emacs-directory))
+  (setq ring-bell-function 'ignore
-(defvar backup-directory (expand-file-name "backups" user-emacs-directory))
+        enable-recursive-minibuffers t
-(make-directory autosave-directory t)
+        read-process-output-max (* 1024 1024)
-(setq auto-save-file-name-transforms `((".*" ,autosave-directory t))
+        vc-follow-symlinks t
-      backup-directory-alist `(("." . ,backup-directory)))
+        display-line-numbers-type 'visual
+        display-buffer-alist '((".*"
+                                (display-buffer-reuse-window display-buffer-same-window)
+                                (reusable-frames . t)))
+        even-window-sizes nil)
+  (setq-default indent-tabs-mode nil)
 
-;; Sensible variable defaults
+  ;; default to utf-8 for all the things
-(setq ring-bell-function nil
+  (set-charset-priority 'unicode)
-      enable-recursive-minibuffers t
+  (setq locale-coding-system 'utf-8
-      read-process-output-max (* 1024 1024)
+        coding-system-for-read 'utf-8
-      vc-follow-symlinks t
+        coding-system-for-write 'utf-8)
-      display-line-numbers-type 'visual
+  (set-terminal-coding-system 'utf-8)
-      display-buffer-alist '((".*"
+  (set-keyboard-coding-system 'utf-8)
-                              (display-buffer-reuse-window display-buffer-same-window)
+  (set-selection-coding-system 'utf-8)
-                              (reusable-frames . t)))
+  (prefer-coding-system 'utf-8)
-      even-window-sizes nil)
+  (setq default-process-coding-system '(utf-8-unix . utf-8-unix))
-(setq-default indent-tabs-mode nil)
 
-;; Always display line numbers in text/programming modes
+  ;; Always display line numbers in text/programming modes
-(add-hook 'prog-mode-hook #'display-line-numbers-mode)
+  (add-hook 'prog-mode-hook #'display-line-numbers-mode)
-(add-hook 'text-mode-hook #'display-line-numbers-mode)
+  (add-hook 'text-mode-hook #'display-line-numbers-mode))
 
 (provide 'init-defaults)

emacs/.emacs.d/config/init-run-command.el

@@ -176,6 +176,26 @@
                                         "::"
                                         (python-info-current-defun)))))))))
 
+  (defun run-command-recipe-nosetests()
+    (when (and (derived-mode-p 'python-mode)
+               (= 0 (call-process "python" nil nil nil "-c" "import nose")))
+      (let ((test-file-p (string-match-p "test" (or (buffer-file-name) ""))))
+        (list
+         (when (and (projectile-project-root)
+                    (file-exists-p (concat (file-name-as-directory (projectile-project-root))
+                                           "tests")))
+           (list :command-name "test all"
+                 :command-line "nosetests -w tests"
+                 :working-dir (projectile-project-root)))
+         (when test-file-p
+           (list :command-name "test this file"
+                 :command-line (format "nosetests %s" (buffer-file-name))))
+         (when (and test-file-p (python-info-current-defun))
+           (list :command-name "test this function"
+                 :command-line (format "nosetests %s:%s"
+                                       (buffer-file-name)
+                                       (python-info-current-defun))))))))
+
   (defun run-command-recipe-web-ext ()
     (when-let* ((_ (executable-find "web-ext"))
                 (manifest (locate-dominating-file default-directory "manifest.json"))
@@ -210,6 +230,7 @@
                          run-command-recipe-kustomize
                          run-command-recipe-sops
                          run-command-recipe-pytest
+                         run-command-recipe-nosetests
                          run-command-recipe-web-ext
                          run-command-recipe-pip)))
 

emacs/.emacs.d/config/init-windows.el

@@ -24,13 +24,12 @@
   "7" #'winum-select-window-7
   "8" #'winum-select-window-8
   "9" #'winum-select-window-9
-  "w" '(nil :which-key "window")
+  "w" '(evil-window-map :which-key "window"))
-  "w/" #'split-window-horizontally
+
-  "w-" #'split-window-vertically
+(general-def evil-window-map
-  "wm" #'delete-other-windows
+  "m" #'delete-other-windows
-  "wd" #'delete-window
+  "u" #'winner-undo
-  "wp" #'winner-undo
+  "C-r" #'winner-redo)
-  "wn" #'winner-redo)
 
 ;; Condense the which-key display for window selection bindings
 (push '(("\\(.*\\) 0" . "select-window-0") . ("\\1 0..9" . "window 0..9"))

emacs/.emacs.d/early-init.el

@@ -0,0 +1,5 @@
+;; -*- lexical-binding: t; -*-
+
+;; Some startup time optimizations stolen from Doom emacs
+(setq gc-cons-threshold most-positive-fixnum ; 2^61 bytes
+      gc-cons-percentage 0.6)

emacs/.emacs.d/init.el

@@ -1,8 +1,6 @@
 ;; -*- lexical-binding: t; -*-
 
 ;; Some startup time optimizations stolen from Doom emacs
-(setq gc-cons-threshold most-positive-fixnum ; 2^61 bytes
-      gc-cons-percentage 0.6)
 (defvar file-name-handler-alist-backup file-name-handler-alist)
 (setq file-name-handler-alist nil)
 (add-hook 'emacs-startup-hook
@@ -37,6 +35,12 @@
 (straight-use-package 'use-package)
 (setq straight-use-package-by-default t)
 
+;; "Garbage Collection Magic Hack"
+(use-package gcmh
+  :demand t
+  :config
+  (gcmh-mode 1))
+
 ;; Fix $PATH
 (use-package exec-path-from-shell
   :hook (after-init . exec-path-from-shell-initialize)