stumpwm/terminal-fonts.lisp @ e6e13bf8dad4

(in-package :stumpwm-user)

(defun read-terminal-font-size-from-config ()
  (if (probe-file "/home/sjl/.terminal-font")
    (with-open-file (f "/home/sjl/.terminal-font")
      (read f))
    11))

(defvar *terminal-font-size* (read-terminal-font-size-from-config))

(defcommand reload-terminal-font-size () ()
  (setf *terminal-font-size* (read-terminal-font-size-from-config)))

(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")))

(defcommand tfont (size)
    ((:integer "Size: "))
  (setf *terminal-font-size* size))