changelog shortlog graph tags branches changeset files revisions annotate raw help

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

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