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

Cleanup

Browse Source
This commit is contained in:
opalvaults
2021-12-23 09:55:44 -08:00
parent feb2a41a4a
commit 4540ba03a6
4 changed files with 120 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
StumpWM.org
View File

@@ -10,10 +10,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
@@ -58,15 +58,15 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
* Keyboard
** Load Keyboard Layout Module
#+begin_src lisp
;; (load-module "kbd-layouts")
(load-module "kbd-layouts")
#+end_src
** Remap Caps Lock
#+begin_src lisp :tangle yes
;; (setf kbd-layouts:*caps-lock-behavior* :esc)
(setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
** Xmodmap
#+begin_src lisp
;; (run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
(run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
#+end_src
** Keybinds
@@ -106,11 +106,11 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
(define-key *top-map* (kbd "s-%") "gmove V")
;; Brightness and volume
;; (define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
;; (define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
;; (define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
;; (define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
;; (define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
(define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
(define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
(define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
(define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
#+end_src
* UI
@@ -135,20 +135,17 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
#+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
;; Enable TTF fonts
;; (load-module "ttf-fonts")
;; (setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
;; (setf clx-truetype:+font-cache-filename+ "/home/daviwil/.local/share/fonts/font-cache.sexp")
;; (xft:cache-fonts)
;; (set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
Enable TTF fonts
(load-module "ttf-fonts")
(setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
(xft:cache-fonts)
(set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
#+end_src
** Mode-Line
#+begin_src lisp
@@ -159,25 +156,21 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
** 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")
;; (run-shell-command "dunst")
;; (run-shell-command "nm-applet")
;; (run-shell-command "syncthing-gtk --minimized")
;; (run-shell-command "redshift -l 37.983810:23.727539 -t 6500:3500")
(run-shell-command "emacs")
#+end_src
* Repl Start
#+begin_src lisp
;; (require :slynk)
;; (slynk:create-server :dont-close t)
(require :slynk)
(slynk:create-server :dont-close t)
#+end_src
* Reference