changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 52: 5fd0502a3231
parent: 4eb225e610dc
child: 8bd50ea9a546
author: Richard Westhaver <ellis@rwest.io>
date: Thu, 04 Jul 2024 20:40:22 -0400
permissions: -rw-r--r--
description: init update 
     1 (require :stumpwm)
     2 
     3 (in-package :stumpwm)
     4 
     5 (defvar *stumpwm-port* 4004)
     6 (ql:quickload :swank)
     7 (require :swank)
     8 (swank-loader:init)
     9 (ignore-errors
    10  (swank:create-server :port *stumpwm-port*
    11                       :style swank:*communication-style*))
    12 
    13 (setq *mouse-focus-policy*    :sloppy
    14       *float-window-modifier* :SUPER
    15       *startup-message* "Greetings, stranger.")
    16 
    17 ;; (set-font "CommitMono")
    18 (set-module-dir "/usr/share/stupmwm/contrib/")
    19 (init-load-path *module-dir*)
    20 
    21 (setf *window-format* "%m%n%s%c")
    22 (setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
    23 
    24 (setf *time-modeline-string* "%a %b %e %k:%M")
    25 
    26 (setq *mode-line-timeout* 4)
    27 
    28 (when *initializing*
    29   (run-shell-command "sh ~/.fehbg")
    30   (when (equal (machine-instance) "zor")
    31     (run-shell-command "sh ~/.screenlayout/default.sh"))
    32   (dolist (s stumpwm:*screen-list*) 
    33     (enable-mode-line s (car (screen-heads s)) t)))
    34 
    35 (which-key-mode)
    36 
    37 (defcommand term (&optional program) ()
    38   (sb-thread:make-thread
    39    (lambda ()
    40      (run-shell-command (if program
    41                             (format nil "alacritty ~A" program)
    42                             "alacritty")))))
    43 
    44 (defcommand blueberry () ()
    45   (sb-thread:make-thread
    46    (lambda ()
    47      (run-shell-command "blueberry"))))
    48 
    49 (defcommand chromium () ()
    50   (sb-thread:make-thread
    51    (lambda ()
    52      (run-shell-command "chromium"))))
    53 
    54 (define-key *root-map* (kbd "c") "term")