Keymap for windmove window management

3 files changed, 35 insertions, 21 deletions

diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el
index c8be4d2..64dc8ae 100644
--- a/.config/emacs/modules/bd--essential-windowing.el
+++ b/.config/emacs/modules/bd--essential-windowing.el
@@ -14,10 +14,19 @@
 ;; no fringe
 (fringe-mode '(0 . 0))
 
-(keymap-global-set "M-[" 'other-window)
-(keymap-global-set "M-]" (lambda ()
-                           (interactive)
-                           (other-window -1)))
+(defvar-keymap bd/windmove
+  :repeat t
+  "b" #'windmove-left
+  "n" #'windmove-down
+  "f" #'windmove-right
+  "p" #'windmove-up
+  "B" #'windmove-swap-states-left
+  "N" #'windmove-swap-states-down
+  "F" #'windmove-swap-states-right
+  "P" #'windmove-swap-states-up)
+
+(keymap-global-set "C-x o" bd/windmove)
+(repeat-mode 1)
 
 
 ;; dedication
diff --git a/.config/emacs/modules/bd--popper.el b/.config/emacs/modules/bd--popper.el
index c3244b9..5c24a16 100644
--- a/.config/emacs/modules/bd--popper.el
+++ b/.config/emacs/modules/bd--popper.el
@@ -27,7 +27,7 @@
      emms-playlist-mode
      emms-browser-mode))
   (popper-display-control 't)
-  (popper-mode-line nil)
+  (popper-mode-line '(:eval (propertize " P" 'face 'mode-line-emphasis)))
   (popper-group-function #'popper-group-by-project))
 
 
diff --git a/.config/guix/kvasir.scm b/.config/guix/kvasir.scm
index 3260a28..5d1ac4c 100644
--- a/.config/guix/kvasir.scm
+++ b/.config/guix/kvasir.scm
@@ -38,19 +38,24 @@
                                     "69a3593b-12bd-40ad-a932-007674a8cfe8"))
                            (type "ext4")) %base-file-systems))))
 
-(define home
-  (home-environment
-   (packages
-    `(,@desktop-packages
-      ,@program-packages))
-
-   (services
-    `(,@xdg-service
-      ,@shell-service
-      ,@ssh-service
-      ,@gpg-service
-      ,@base-services
-      ,@xmodmap-service))))
-
-
-(if (getenv "RUNNING_GUIX_HOME") home system)
+(define MiB (expt 2 20))
+(define GiB (expt 2 30))
+
+(image
+ (format 'disk-image)
+ (operating-system system)
+ (partitions
+  (list
+   (partition
+    (size (* 40 MiB))
+    (offset (* 1024 1024))
+    (label "GNU-ESP")
+    (file-system "vfat")
+    (flags '(esp))
+    (initializer (gexp initialize-efi-partition)))
+   (partition
+    (size (* 28 GiB))
+    (label root-label)
+    (file-system "ext4")
+    (flags '(boot))
+    (initializer (gexp initialize-root-partition))))))