From 16cd61f1071e9e222c6acbeeb0abe00ce675dce5 Mon Sep 17 00:00:00 2001
From: josiah <josiah@popling.localdomain>
Date: Sun, 14 Mar 2021 21:45:28 -0500
Subject: [PATCH] Create stumpwm init file

---
 .stumpwm.d/init.lisp | 75 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 .stumpwm.d/init.lisp

diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp
new file mode 100644
index 0000000..6171cf9
--- /dev/null
+++ b/.stumpwm.d/init.lisp
@@ -0,0 +1,75 @@
+;; -*- lisp -*-
+(in-package :stumpwm)
+
+;; hide the idiot laptop window
+(run-shell-command "xrandr --output HDMI-1 --mode 2560x1440 --pos 0x0 --rotate normal --primary --output DP-1 --off  --output DP-4 --off  --output DP-0 --off --output eDP-1 --off")
+
+;; mode line
+(stumpwm:set-fg-color "green")
+(stumpwm:set-bg-color "black")
+
+(setf *window-format* "%m%n%s%c")
+(setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
+;; enable-mode-line takes 3 args; screen, head, and state.
+;; state is just "t" if you want it on, i guess. lol. surely that's implied!!! by the func name!!!
+(stumpwm:enable-mode-line (stumpwm:current-screen)
+                          (stumpwm:current-head)
+			  t)
+
+;; sane defaults, you morons
+
+(setf *message-window-gravity* :bottom-right)
+(setf *input-window-gravity* :center)
+(setf *mouse-focus-policy* :click)
+;set my prefix key to be reasonable
+(set-prefix-key (kbd "C-M-S-s-SPC"))
+
+
+;; group config
+(grename "www")
+(gnewbg "term")
+(gnewbg "emc")
+(gnewbg "mail")
+(gnewbg "comms")
+
+;; (defun jlj/rofi
+;;     "just runs rofi for me :)"
+;;     (run-shell-command "rofi -show combi"))
+
+(defcommand jlj/rofi () ()
+  "Start Emacs or switch to it, if it is already running."
+  (run-shell-command "rofi -combi-modi window,drun,ssh -theme purple -font 'hack 10' -show combi"))
+
+(define-key *root-map* (kbd "R") "restart-hard")
+(define-key *top-map* (kbd "M-SPC") "jlj/rofi")
+
+;; group management
+;;;; note that this is still the hyper key, its just that shift + 1 = !, etc.
+(define-key *top-map* (kbd "C-M-s-!") "gselect 1")
+(define-key *top-map* (kbd "C-M-s-@") "gselect 2")
+(define-key *top-map* (kbd "C-M-s-#") "gselect 3")
+(define-key *top-map* (kbd "C-M-s-$") "gselect 4")
+(define-key *top-map* (kbd "C-M-s-%") "gselect 5")
+
+;; app menu keys
+;;;; you defcommands as wrapper to running/raising/shelling out, so you can call it later.
+(defcommand firefox () ()
+  "Start Firefox or switch to it, if it is already running."
+  (run-or-raise "firefox" '(:class "Firefox")))
+
+(defcommand mail () ()
+  "Start fastmail or switch to it, if it is already running."
+  (run-or-raise "fastmail" '(:class "Fastmail")))
+
+(defcommand terminal () ()
+  "Start gnome-terminal or switch to it, if it is already running."
+  (run-or-raise "gnome-terminal" '(:class "Terminal")))
+
+(defcommand element () ()
+  "Start gnome-terminal or switch to it, if it is already running."
+  (run-or-raise "element-desktop" '(:class "Element")))
+
+(define-key *root-map* (kbd "f") "firefox")
+(define-key *root-map* (kbd "m") "mail")
+(define-key *root-map* (kbd "t") "terminal")
+(define-key *root-map* (kbd "r") "element")