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

Cleaned

Browse Source
This commit is contained in:
ry
2021-12-20 14:28:28 -08:00
parent 8427d4c768
commit bdcdfd0587
10 changed files with 527 additions and 1811 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
.config/stumpwm/config
View File

@@ -1,3 +1,4 @@
;;; -*- mode: lisp; -*-
(in-package :stumpwm)
;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
@@ -15,15 +16,21 @@
"gnewbg V"
"gnewbg-float F")
;; (set-prefix-key (kbd "s-d"))
(set-prefix-key (kbd "s-ESC"))
;; (setf *mouse-focus-policy* :click)
(setf *mouse-focus-policy* :click)
;; (setq *message-window-gravity* :top)
;; (setq *message-window-padding* 10)
;; (setq *message-window-y-padding 10)
(setf *message-window-gravity* :center
*input-window-gravity* :center
*window-border-style* :thin
*message-window-padding* 3
*maxsize-border-width* 2
*normal-border-width* 2
*transient-border-width* 2
stumpwm::*float-window-border* 1
stumpwm::*float-window-title-height* 1)
;; (setq *input-window-gravity* :center)
(setq *input-window-gravity* :center)
;; (load-module "kbd-layouts")
@@ -45,7 +52,6 @@
(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 "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")
@@ -72,10 +78,21 @@
;; (define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
;; Set UI colors
(set-border-color "#c792ea")
(set-bg-color "#232635")
(set-fg-color "#A6Accd")
;; (set-msg-border-width 2)
(setf *colors*
'("#000000" ;black
"#BF6262" ;red
"#a1bf78" ;green
"#dbb774" ;yellow
"#7D8FA3" ;blue
"#ff99ff" ;magenta
"#53cdbd" ;cyan
"#b7bec9")) ;white
(setf *default-bg-color* "#e699cc")
(update-color-map (current-screen))
(setf *window-format* "%m%s%50t")
;; (load-module "swm-gaps")
;; (setf swm-gaps:*inner-gaps-size* 3)
@@ -89,16 +106,9 @@
;; (set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
;; ;; 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")
;; ;; Start the mode line
;; (run-commands "mode-line")
(setf *mode-line-background-color* (car *colors*)
*mode-line-foreground-color* (car (last *colors*))
*mode-line-timeout* 1)
;; ;; Add the system tray module
;; (load-module "stumptray")
@@ -109,7 +119,7 @@
;; (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")
(run-shell-command "emacs")
(require :slynk)
(slynk:create-server :dont-close t)
;; (require :slynk)
;; (slynk:create-server :dont-close t)