Updating qtile config and the README.

This commit is contained in:
Derek Taylor
2021-03-20 13:06:31 -05:00
parent ac5d3d3d72
commit 45486bac88
14 changed files with 179 additions and 95 deletions

View File

@@ -15,6 +15,7 @@
(run-shell-command "nitrogen --restore")
(run-shell-command "picom")
(run-shell-command "xmodmap ~/.Xmodmap")
(run-shell-command "./.config/herbstluftwm/panel.sh")
(defun show-kernel ()
(let ((ip (run-shell-command "uname -r" t)))
@@ -31,23 +32,39 @@
(defvar color1 "#ff92d0")
(defvar color2 "#282a36")
(load-module "swm-gaps")
(if (not swm-gaps:*gaps-on*)
(swm-gaps:toggle-gaps))
(setf swm-gaps:*inner-gaps-size* 8
swm-gaps:*outer-gaps-size* 8
swm-gaps:*head-gaps-size* 8)
(setf *message-window-gravity* :center
*input-window-gravity* :center
*window-border-style* :thin
*message-window-padding* 10
*maxsize-border-width* 2
*normal-border-width* 2
*transient-border-width* 2
stumpwm::*float-window-border* 2
stumpwm::*float-window-title-height* 5
*mouse-focus-policy* :click)
(setf
stumpwm:*mode-line-background-color* color2
stumpwm:*mode-line-background-color* color2
stumpwm:*mode-line-foreground-color* color1
stumpwm:*mode-line-border-color* "#333333"
stumpwm:*screen-mode-line-format* (list "%g | %v ^>^7 | " '(:eval (show-hostname)) "| " '(:eval (show-kernel)) "| " '(:eval (show-package-count)) "packages | %d ")
stumpwm:*screen-mode-line-format* (list " ")
;; stumpwm:*screen-mode-line-format* (list "%g | %v ^>^7 | " '(:eval (show-hostname)) "| " '(:eval (show-kernel)) "| " '(:eval (show-package-count)) "packages | %d ")
stumpwm:*mode-line-border-width* 1
stumpwm:*mode-line-pad-x* 6
stumpwm:*mode-line-pad-y* 1
stumpwm:*mode-line-pad-y* 2
stumpwm:*mode-line-timeout* 5
stumpwm:*mouse-focus-policy* :click
stumpwm:*group-format* "%n·%t"
stumpwm:*time-modeline-string* "%a, %b %d, %Y %l:%M%p"
stumpwm:*window-format* "^b^(:fg \"#9aedfe\")<%25t>"
stumpwm:*window-border-style* :tight
stumpwm:*normal-border-width* 1
)
(stumpwm:set-focus-color "#7799CC")
(stumpwm:set-focus-color "#7798CC")
(stumpwm:grename "One")
(stumpwm:gnewbg "Two")
(stumpwm:gnewbg "Three")
@@ -56,6 +73,7 @@
(stumpwm:gnewbg "Six")
(stumpwm:gnewbg "Seven")
(stumpwm:gnewbg "Eight")
(stumpwm:gnewbg "Nine")
(stumpwm:toggle-mode-line (stumpwm:current-screen) (stumpwm:current-head))
;; I change the prefix key to something else besides a keychord.
@@ -111,11 +129,11 @@
(define-key *root-map* (kbd "C-S") "exec ./.dmenu/dmenu-surfraw.sh")
(define-key *root-map* (kbd "C-T") "exec ./.dmenu/dmenu-trading.sh")
;; Browse somewhere
(define-key *root-map* (kbd "b") "colon1 exec firefox http://www.")
(define-key *root-map* (kbd "b") "colon1 exec brave http://www.")
;; Ssh somewhere
(define-key *root-map* (kbd "C-s") "colon1 exec xterm -e ssh ")
;; Lock screen
(define-key *root-map* (kbd "C-l") "exec xlock")
(define-key *root-map* (kbd "C-l") "exec slock")
;; Web jump (works for Google and Imdb)
(defmacro make-web-jump (name prefix)