opal/opalfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fleshed out new emacs config, added Guix.org, added Stump

Browse Source
This commit is contained in:
opal
2021-12-19 18:44:35 -08:00
parent bca10bd035
commit f94954578b
6 changed files with 286 additions and 138 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
StumpWM.org
View File

@@ -1,5 +1,5 @@
#+TITLE: StumpWM Configuration
#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/config/stumpwm/init.el :mkdirp yes
#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes
In my quest to make my computer a Lisp machine in its own right, I am using StumpWM as my window manager.
@@ -9,10 +9,10 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
;; StumpWM Modules
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
#+end_src
* Environment
@@ -29,24 +29,24 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
** Set Prefix
#+begin_src lisp
(set-prefix-key (kbd "s-d"))
;; (set-prefix-key (kbd "s-d"))
#+end_src
** Focus window with mouth
#+begin_src lisp
setf *mouse-focus-policy* :click)
;; (setf *mouse-focus-policy* :click)
#+end_src
** Messages
#+begin_src lisp
(setq *message-window-gravity* :top)
(setq *message-window-padding* 10)
(setq *message-window-y-padding 10)
: (setq *message-window-y-padding 10)
#+end_src
** Command Window
#+begin_src lisp
(setq *input-window-gravity* :center)
;; (setq *input-window-gravity* :center)
#+end_src
* Keyboard
** Load Keyboard Layout Module
@@ -54,8 +54,8 @@ setf *mouse-focus-policy* :click)
;; (load-module "kbd-layouts")
#+end_src
** Remap Caps Lock
#+begin_src lisp
setf kbd-layouts:*caps-lock-behavior* :esc)
#+begin_src lisp :tangle yes
;; (setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
** Xmodmap
#+begin_src lisp
@@ -70,16 +70,19 @@ setf kbd-layouts:*caps-lock-behavior* :esc)
(define-key *top-map* (kbd "s-j") "move-focus down")
(define-key *top-map* (kbd "s-k") "move-focus up")
(define-key *top-map* (kbd "s-S-h") "move-window left")
(define-key *top-map* (kbd "s-S-l") "move-window right")
(define-key *top-map* (kbd "s-S-j") "move-window down")
(define-key *top-map* (kbd "s-S-k") "move-window up")
(define-key *top-map* (kbd "s-H") "move-window left")
(define-key *top-map* (kbd "s-L") "move-window right")
(define-key *top-map* (kbd "s-J") "move-window down")
(define-key *top-map* (kbd "s-K") "move-window up")
(define-key *top-map* (kbd "s-f") "fullscreen")
(define-key *top-map* (kbd "s-r") "iresize")
(define-key *top-map* (kbd "s-S-q") "delete")
(define-key *top-map* (kbd "s-Q") "delete")
(define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
;; (define-key *top-map* (kbd "C-s-l") "run-shell-command slock")
(define-key *top-map* (kbd "s-L") "run-shell-command slock")
(define-key *top-map* (kbd "s-RET") "run-shell-command alacritty")
(define-key *top-map* (kbd "s-E") "run-shell-command emacs")
(define-key *top-map* (kbd "s-W") "run-shell-command firefox")
(define-key *top-map* (kbd "s-TAB") "next-in-frame")
(define-key *top-map* (kbd "s-S-TAB") "prev-in-frame")
@@ -90,11 +93,11 @@ setf kbd-layouts:*caps-lock-behavior* :esc)
(define-key *top-map* (kbd "s-4") "gselect IV")
(define-key *top-map* (kbd "s-5") "gselect V")
(define-key *top-map* (kbd "s-S-1") "gmove I")
(define-key *top-map* (kbd "s-S-2") "gmove II")
(define-key *top-map* (kbd "s-S-3") "gmove III")
(define-key *top-map* (kbd "s-S-4") "gmove IV")
(define-key *top-map* (kbd "s-S-5") "gmove V")
(define-key *top-map* (kbd "s-!") "gmove I")
(define-key *top-map* (kbd "s-@") "gmove II")
(define-key *top-map* (kbd "s-#") "gmove III")
(define-key *top-map* (kbd "s-$") "gmove IV")
(define-key *top-map* (kbd "s-%") "gmove V")
;; Brightness and volume
;; (define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
@@ -111,13 +114,13 @@ setf kbd-layouts:*caps-lock-behavior* :esc)
(set-border-color "#c792ea")
(set-bg-color "#232635")
(set-fg-color "#A6Accd")
(set-msg-border-width 2)
;; (set-msg-border-width 2)
#+end_src
** Gaps
#+begin_src lisp
(load-module "swm-gaps")
(setf swm-gaps:*inner-gaps-size* 3)
(run-commands "toggle-gaps-on")
;; (load-module "swm-gaps")
;; (setf swm-gaps:*inner-gaps-size* 3)
;; (run-commands "toggle-gaps-on")
#+end_src
** Fonts
#+begin_src lisp
@@ -132,28 +135,28 @@ setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
** Mode-Line
#+begin_src lisp
;; Set mode line colors
(setf *mode-line-background-color* "#232635")
(setf *mode-line-foreground-color* "#A6Accd")
;; ;; Set mode line colors
;; (setf *mode-line-background-color* "#232635")
;; (setf *mode-line-foreground-color* "#A6Accd")
;; Set the mode line format
(setf *screen-mode-line-format* "[^B%n^b] %W ^>%d")
(run-commands "mode-line" "mode-line")
;; ;; Set the mode line format
;; (setf *screen-mode-line-format* "[^B%n^b] %W ^>%d")
;; (run-commands "mode-line" "mode-line")
;; Start the mode line
(run-commands "mode-line")
;; ;; Start the mode line
;; (run-commands "mode-line")
#+end_src
** System tray
#+begin_src lisp
;; Add the system tray module
(load-module "stumptray")
(stumptray:stumptray)
;; ;; Add the system tray module
;; (load-module "stumptray")
;; (stumptray:stumptray)
#+end_src
* Applications
#+begin_src lisp
;; (run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
#+begin_src lisp
(run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
;; (run-shell-command "dunst")
;; (run-shell-command "nm-applet")
;; (run-shell-command "syncthing-gtk --minimized")
@@ -162,7 +165,7 @@ setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
* Repl Start
#+begin_src lisp
#+begin_src lisp
(require :slynk)
(slynk:create-server :dont-close t)
#+end_src