.stumpwmrcさらし

• The Stump Window Manager

StumpWMは入れただけでほとんど使っていなかった。
しばらく使ってみたら快適だったので気になるところだけ.stumpwmrcを書いてみた。
今後活躍の機会が増えるかも。ソースはこちら。

	(in-package :stumpwm)
	;;
	;; settings
	;;
	(set-focus-color "DarkRed")
	(set-unfocus-color "black")
	(set-win-bg-color "black")
	(set-fg-color "white")
	(set-bg-color "black")
	(set-border-color "DarkRed")
	(set-normal-gravity :center)
	(set-prefix-key (kbd "C-q"))
	(setf *startup-message* nil
	*input-window-gravity* :center
	*time-format-string-default* "%Y/%m/%d(%a) %H:%M"
	*message-window-timer* 1
	*mouse-focus-policy* :sloppy
	*normal-border-width* 0
	*maxsize-border-width* 0
	*transient-border-width* 1
	*window-border-style* :thick)
	(define-stumpwm-type :password (input prompt)
	(let ((history *input-history*)
	(arg (argument-pop input))
	(fn (symbol-function 'draw-input-bucket)))
	(unless arg
	(unwind-protect
	(setf (symbol-function 'draw-input-bucket)
	(lambda (screen prompt input &optional errorp)
	(let ((i (copy-structure input)))
	(setf (input-line-string i)
	(make-string (length (input-line-string i))
	:initial-element #\*))
	(funcall fn screen prompt i)))
	arg (read-one-line (current-screen) prompt))
	(setf (symbol-function 'draw-input-bucket) fn
	*input-history* history))
	arg)))
	(defmacro define-sudo-command (name command &key output)
	(let ((cmd (gensym)))
	`(defcommand ,name (password) ((:password "sudo password: "))
	(let ((,cmd (concat "echo '" password "' | sudo -S " ,command)))
	,(if output
	`(run-prog-collect-output *shell-program* "-c" ,cmd)
	`(run-prog *shell-program* :args (list "-c" ,cmd) :wait nil))))))
	;;
	;; keys
	;;
	(define-key *root-map* (kbd "j") "move-focus down")
	(define-key *root-map* (kbd "k") "move-focus up")
	(define-key *root-map* (kbd "l") "move-focus right")
	(define-key *root-map* (kbd "h") "move-focus left")
	(define-key *input-map* (kbd "C-i") 'input-complete-forward)
	(define-key *input-map* (kbd "C-m") 'input-submit)
	(define-key *input-map* (kbd "C-h") 'input-delete-backward-char)
	(define-key *input-map* (kbd "M-C-h") 'input-backward-kill-word)
	(define-key *root-map* (kbd "M") "mode-line")
	(define-key *root-map* (kbd "X") "xlock")
	(define-key *root-map* (kbd "B") "battery")
	;;
	;; commands
	;;
	(defcommand chrome ()()
	"run chromium-browser"
	(run-or-raise "chromium-browser" '(:class "chrome")))
	(defcommand ichrome ()()
	"run chromium-browser"
	(run-or-raise "chromium-browser --incognito about:blank" '(:class "chrome")))
	(defcommand twicli ()()
	"run chromium-browser(twicli)"
	(run-or-raise "chromium-browser --app=http://twicli.neocat.jp/oauth/index.html" '(:class "chrome")))
	(defcommand reload ()()
	"reload rc file"
	(stumpwm::load-rc-file))
	(defcommand battery ()()
	"show battery status"
	(echo-string (current-screen)(run-shell-command "/home/valvallow/bin/battery" t)))
	(defcommand xlock ()()
	"exec xlock"
	(run-shell-command "xlock -mode random"))
	(define-sudo-command reboot "reboot")
	(define-sudo-command shutdown "shutdown -h now")

view raw .stumpwmrc.lisp hosted with ❤ by GitHub

• vallog: バッテリーの状態を表示するシェルスクリプト（状態、パーセント、残り時間）