changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra > home / .stumpwm.d/init.lisp

changeset 83: 8bd50ea9a546
parent: 5fd0502a3231
child: a86cb552d6df
author: Richard Westhaver <ellis@rwest.io>
date: Mon, 12 Aug 2024 21:50:44 -0400
permissions: -rw-r--r--
description: zor updates 
     1 (require :stumpwm)
     2 
     3 (in-package :stumpwm)
     4 
     5 ;; (ql:quickload :swank)
     6 ;; (require :swank)
     7 
     8 ;; (defvar *stumpwm-port* 4040)
     9 ;; (swank-loader:init)
    10 ;; (swank:create-server :port *stumpwm-port*
    11 ;;                      :style swank:*communication-style*)
    12 
    13 (defcommand load-std () ()
    14   (ql:quickload :std))
    15 
    16 (defcommand load-prelude () ()
    17   (ql:quickload :prelude))
    18 
    19 (defcommand load-core () ()
    20   (ql:quickload :core))
    21 
    22 (defcommand load-user () ()
    23   (ql:quickload :user))
    24 
    25 (setq *mouse-focus-policy*    :sloppy
    26       *float-window-modifier* :SUPER
    27       *startup-message* "Greetings, stranger.")
    28 
    29 (set-font "-*-terminal")
    30 (set-module-dir "/usr/share/stupmwm/contrib/")
    31 (init-load-path *module-dir*)
    32 
    33 (set-fg-color "#ffffff")
    34 (set-bg-color "#000000")
    35 (set-border-color "#7E5D90")
    36 (set-focus-color "#170F14")
    37 (set-unfocus-color "#232731")
    38 (set-win-bg-color "#22272F")
    39 (set-float-focus-color "#8ED3A1")
    40 (set-float-unfocus-color "#232731")
    41 
    42 (setf *mode-line-background-color* "#161613")
    43 (setf *mode-line-foreground-color* "#FFFFFF")
    44 (setf *mode-line-border-color* "#28394c")
    45 (setf *mode-line-position* :bottom)
    46 
    47 (setf *colors* (list "#010101"      ; 0 black
    48                      "#BF616A"      ; 1 red
    49                      "#A3BE8C"      ; 2 green
    50                      "#EBCB8B"      ; 3 yellow
    51                      "#5E81AC"      ; 4 blue
    52                      "#9D5AAF"      ; 5 magenta
    53                      "#8FBCBB"      ; 6 cyan
    54                      "#FEFEFE"))    ; 7 white
    55 
    56 (setf *window-format* "%m%n%s%c")
    57 (setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
    58 (set-normal-gravity :center)
    59 (set-maxsize-gravity :center)
    60 (set-transient-gravity :center)
    61 (setf *time-modeline-string* "%a %b %e %k:%M")
    62 
    63 (setq *mode-line-timeout* 4)
    64 (which-key-mode)
    65 
    66 (when *initializing*
    67   (run-shell-command "sh ~/.fehbg")
    68   (when (equal (machine-instance) "zor")
    69     (run-shell-command "sh ~/.screenlayout/default.sh"))
    70   (dolist (s stumpwm:*screen-list*) 
    71     (enable-mode-line s (car (screen-heads s)) t)))
    72 
    73 (defcommand term (&optional program) ()
    74   (sb-thread:make-thread
    75    (lambda ()
    76      (run-shell-command (if program
    77                             (format nil "alacritty ~A" program)
    78                             "alacritty")))))
    79 
    80 (defcommand blueberry () ()
    81   (sb-thread:make-thread
    82    (lambda ()
    83      (run-shell-command "blueberry"))))
    84 
    85 (defcommand chromium () ()
    86   (sb-thread:make-thread
    87    (lambda ()
    88      (run-shell-command "chromium"))))
    89 
    90 (define-key *root-map* (kbd "c") "term")