hg.stevelosh.com > dotfiles

stumpwm/terminal-fonts.lisp @ ea681bd9c52d 

Tweak stump
author Steve Losh <steve@stevelosh.com>
date Tue, 19 Mar 2024 16:09:11 -0400
parents 4673e928c08e
children e6e13bf8dad4 
(in-package :stumpwm-user)

(defcommand reload-terminal-font-size ()
    ()
  (setf *terminal-font-size*
        (if (probe-file "/home/sjl/.terminal-font")
          (with-open-file (f "/home/sjl/.terminal-font")
            (read f))
          11)))

(defparameter *terminal-font-size* (if (probe-file "/home/sjl/.terminal-font")
                                     (with-open-file (f "/home/sjl/.terminal-font")
                                       (read f))
                                     11))

(defcommand st-font-up ()
    ()
  (loop :repeat 7 :do (meta (kbd "C-S-SunPageUp"))))

(defcommand st-font-down ()
    ()
  (loop :repeat 7 :do (meta (kbd "C-S-SunPageDown"))))

(defcommand st-font-reset ()
    ()
  (meta (kbd "C-S-Home")))