.config/emacs/init.org

@@ -491,23 +491,6 @@ Ligatures... are they that useful?
 (require 'ligature)
 (global-ligature-mode)
 #+end_src
-** Random Functions
-#+begin_src emacs-lisp
-
-(defun joe/print-digit-as-ascii (digit)
-  (string-match-p "^\\(?:0\\|[1-9][0-9]*\\)$" digit))
-
-(defun joe/get-ascii-in-region (beg end)
-  (interactive "r")
-  (if (use-region-p)
-      (message "%s"
-       (concat
-        (mapcar 'string-to-number
-                (split-string (buffer-substring-no-properties beg end) " "))))
-    (message "No region selected")))
-
-(define-key ctl-x-x-map (kbd "a") #'joe/get-ascii-in-region)
-#+end_src
 ** Text
 
 #+begin_src emacs-lisp
@@ -939,7 +922,6 @@ The theme of `C-x 4` bindings is that they operate on other windows, so this fun
 
 (defun joe/qtile-move-dir (dir)
   (start-process "qtile-dir" nil "qtile" "cmd-obj" "-o" "layout" "-f" dir))
-  ;; (start-process "qtile-dir" nil "qtile" "cmd-obj" "-o" "layout" "-f" "right"))
 
 (defun joe/windmove-left ()
   (interactive)
@@ -965,15 +947,10 @@ The theme of `C-x 4` bindings is that they operate on other windows, so this fun
       (windmove-down)
     (joe/qtile-move-dir "down")))
 
-;; (global-set-key (kbd "s-h") #'joe/windmove-left)
+(global-set-key (kbd "s-h") #'joe/windmove-left)
-;; (global-set-key (kbd "s-l") #'joe/windmove-right)
+(global-set-key (kbd "s-l") #'joe/windmove-right)
-;; (global-set-key (kbd "s-k") #'joe/windmove-up)
+(global-set-key (kbd "s-k") #'joe/windmove-up)
-;; (global-set-key (kbd "s-j") #'joe/windmove-down)
+(global-set-key (kbd "s-j") #'joe/windmove-down)
-
-(global-set-key (kbd "s-h") #'windmove-left)
-(global-set-key (kbd "s-l") #'windmove-right)
-(global-set-key (kbd "s-k") #'windmove-up)
-(global-set-key (kbd "s-j") #'windmove-down)
 
 ;; There's a bug in Gnome where frames are resized to the wrong dimensions
 (defun joe/resize-frames ()
@@ -2278,13 +2255,14 @@ it doesn't close it.
   (c-toggle-comment-style -1))
 (add-hook 'c-mode-hook #'joe/c-mode-hook)
 #+end_src
-*** Haskell
+*** COMMENT Haskell
 #+begin_src emacs-lisp
   (require 'haskell-mode)
   (setq haskell-interactive-popup-errors nil)
+  (when (boundp 'evil-mode)
 
   (evil-define-key 'insert haskell-interactive-mode-map (kbd "C-n") #'haskell-interactive-mode-history-next)
-  (evil-define-key 'insert haskell-interactive-mode-map (kbd "C-p") #'haskell-interactive-mode-history-previous)
+  (evil-define-key 'insert haskell-interactive-mode-map (kbd "C-p") #'haskell-interactive-mode-history-previous))
 
 #+end_src
 *** COMMENT Clojure
@@ -2576,27 +2554,6 @@ with the cursor you hit TAB and you complete the following;
 #+begin_src emacs-lisp
 (require 'org-kanban)
 #+end_src
-** Calendar
-#+begin_src emacs-lisp
-(require 'cl)
-(require 'calendar)
-
-(defun twelve-month-calendar ()
-  (interactive)
-  (let ((calendar-buffer (get-buffer-create "12-month calendar"))
-        (month 12)
-        (year 2012))
-    (set-buffer calendar-buffer)
-    (setq calendar-frame (make-frame))
-    (make-variable-buffer-local 'font-lock-face)
-    (set-face-attribute 'default calendar-frame :height 70)
-    (set-frame-width calendar-frame 300)
-    (erase-buffer)
-    (dotimes (i 12)
-      (calendar-generate-month month year 0)
-      (calendar-increment-month month year -1))
-    (calendar-mode)))
-#+end_src
 ** Magit
 
 The best git porcelain/client I've ever used. Also kill stray magit buffers left

.config/qtile/config.py

@@ -68,14 +68,11 @@ keys = [
     # Switch between windows
     # .when(wm_class != 'kitty')
     # Key([mod], "h", lazy.function(move_focus, direction='left'), desc="Move focus to left"),
-    # Key([mod], "h", lazy.layout.left().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
+    Key([mod], "h", lazy.layout.left().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
-    # Key([mod], "j", lazy.layout.down().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
+    Key([mod], "j", lazy.layout.down().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
-    # Key([mod], "k", lazy.layout.up().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
+    Key([mod], "k", lazy.layout.up().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
-    # Key([mod], "l", lazy.layout.right().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
+    Key([mod], "l", lazy.layout.right().when(focused=Match(wm_class=re.compile('(?![Ee]macs)'))), desc="Move focus to left"),
-    # Key([alt], "tab", lazy.layout.next(), desc="Move window focus to other window"),
+    Key([alt], "tab", lazy.layout.next(), desc="Move window focus to other window"),
-
-    Key([mod], "o", lazy.layout.normalize(), desc="Move window focus to other window"),
-    Key([alt], "tab", lazy.layout.previous(), desc="Move window focus to other window"),
     Key([mod], "tab", lazy.screen.toggle_group(), desc="Toggle Group"),
     # Eventually we should switch back to emacs app launcher
     Key([mod], "space", lazy.spawn("rofi -show drun -theme Arc-Dark.rasi"), desc="Open Rofi"),
@@ -108,7 +105,6 @@ keys = [
     Key([mod, "shift"], "comma", lazy.prev_screen(), desc="Move focus to left screen"),
     Key([mod, "shift"], "period", lazy.next_screen(), desc="Move focus to left screen"),
     Key([mod], "w", lazy.next_layout(), desc="Toggle between layouts"),
-    Key([mod], "s", lazy.spawn("flameshot gui"), desc="Flameshot screenshot"),
 
     # TODO: Figure out another binding for this
     # Key([mod], "n", lazy.layout.normalize(), desc="Reset all window sizes"),