From a81a4ec40737452979fbf378c79a99a31662e857 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 26 Aug 2012 22:19:45 +0200 Subject: stumpwm: Use .lisp extension --- stumpwm/Makefile | 11 +++- stumpwm/stumpwmrc | 153 ------------------------------------------------- stumpwm/stumpwmrc.lisp | 153 +++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 161 insertions(+), 156 deletions(-) delete mode 100644 stumpwm/stumpwmrc create mode 100644 stumpwm/stumpwmrc.lisp (limited to 'stumpwm') diff --git a/stumpwm/Makefile b/stumpwm/Makefile index 98362a6..06c6d85 100644 --- a/stumpwm/Makefile +++ b/stumpwm/Makefile @@ -1,4 +1,9 @@ -.PHONY: all install +files = stumpwmrc.lisp +install-files = $(addprefix install-,$(files)) + +.PHONY: all install $(install-files) all: -install: stumpwmrc - install -Dm 444 $^ ${HOME}/.$^ +install: $(install-files) + +$(install-files): install-%.lisp: + install -Dm 444 $*.lisp ${HOME}/.$* diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc deleted file mode 100644 index 1bed825..0000000 --- a/stumpwm/stumpwmrc +++ /dev/null @@ -1,153 +0,0 @@ -;; -*- mode: lisp; -*- -(require 'swank) - -(in-package :stumpwm) - -;; Naquadah -(defun colour (key) - (let ((colours (list :aluminium-1 #xeeeeec - :aluminium-2 #xd3d7cf - :aluminium-3 #xbabdb6 - :aluminium-4 #x888a85 - :aluminium-5 #x555753 - :aluminium-6 #x2e3436 - :butter-1 #xfce94f - :butter-2 #xedd400 - :butter-3 #xc4a000 - :orange-1 #xfcaf3e - :orange-2 #xf57900 - :orange-3 #xce5c00 - :chocolate-1 #xe9b96e - :chocolate-2 #xc17d11 - :chocolate-3 #x9f5902 - :chameleon-1 #x8ae234 - :chameleon-2 #x73d216 - :chameleon-3 #x4e9a06 - :sky-blue-1 #x729fcf - :sky-blue-2 #x3465a4 - :sky-blue-3 #x204a87 - :plum-1 #xad7fa8 - :plum-2 #x75507b - :plum-3 #x5c3566 - :scarlet-red-1 #xef2929 - :scarlet-red-2 #xcc0000 - :scarlet-red-3 #xa40000 - :background #x252a2b - :black #x0c191c - :cyan "cyan3"))) - (getf colours key))) - -(defvar *emacs-program* "emacsclient -c -a emacs" - "The executable to run to start Emacs.") -(defvar *firefox-program* "firefox" - "The executable to run to start Firefox.") -(defvar *urxvt-program* "urxvt" - "The executable to run to start URxvt.") -(defvar *i3lock-program* "i3lock -c 000000" - "The executable to run to start i3lock.") - -(defun get-mail-count (mailbox &optional (inbox "inbox")) - "Check how many new messages there are in MAILBOX." - (length - (directory - (format nil "/home/slash/documents/mail/~A/~A/new/*.*" - mailbox inbox)))) - -(defcommand run-emacs () () - "Open Emacs" - (run-shell-command *emacs-program*)) - -(defcommand raise-emacs () () - "Open or show Emacs" - (run-or-raise *emacs-program* '(:class "Emacs"))) - -(defcommand run-firefox () () - "Open Firefox" - (run-shell-command *firefox-program*)) - -(defcommand raise-firefox () () - "Open or show Firefox" - (run-or-raise *firefox-program* '(:class "Firefox"))) - -(defcommand run-urxvt () () - "Open URxvt" - (run-shell-command *urxvt-program*)) - -(defcommand raise-urxvt () () - "Open URxvt" - (run-or-raise *urxvt-program* '(:class "URxvt"))) - -(defcommand run-i3lock () () - "Lock screen" - (run-shell-command *i3lock-program*)) - -(set-bg-color (colour :background)) -(set-border-color (colour :aluminium-6)) -(set-fg-color (colour :aluminium-1)) -(set-float-focus-color (colour :black)) -(set-float-unfocus-color (colour :aluminium-6)) -(set-focus-color (colour :black)) -(set-font "-*-dejavu sans mono-medium-r-*-*-15-*-*-*-*-*-iso10646-*") -(set-unfocus-color (colour :aluminium-6)) -(set-win-bg-color (colour :background)) - -(setf *colors* (mapcar #'colour '(:black :scarlet-red-1 :chameleon-1 - :butter-1 :sky-blue-1 :plum-1 :cyan - :aluminium-1))) -(setf *input-window-gravity* :bottom-left) -(setf *maxsize-border-width* 1) -(setf *message-window-gravity* :top-right) -(setf *mode-line-background-color* (colour :background)) -(setf *mode-line-border-color* (colour :aluminium-6)) -(setf *mode-line-foreground-color* (colour :aluminium-1)) -(setf *normal-border-width* 1) -(setf *shell-program* (getenv "SHELL")) -(setf *transient-border-width* 1) -(setf *window-border-style* :tight) -(setf *window-format* "%m%50t") -(setf *screen-mode-line-format* - (list "[%n]" - '(:eval - (format nil " | ryu: ~D | gmail: ~D | aethon: ~D | " - (get-mail-count "ryuslash.org") - (get-mail-count "gmail") - (get-mail-count "aethon"))) - '(:eval - (format-expand *window-formatters* *window-format* - (current-window))))) - -(set-prefix-key (kbd "C-z")) - -(define-key *top-map* (kbd "C-M-l") "run-i3lock") - -(define-key *root-map* (kbd "c") "raise-urxvt") -(define-key *root-map* (kbd "C") "run-urxvt") -(define-key *root-map* (kbd "e") "raise-emacs") -(define-key *root-map* (kbd "E") "run-emacs") -(define-key *root-map* (kbd "w") "raise-firefox") -(define-key *root-map* (kbd "W") "run-firefox") - -(define-key *root-map* (kbd "C-b") "windowlist") -(define-key *root-map* (kbd "M-b") "move-window left") -(define-key *root-map* (kbd "M-f") "move-window right") -(define-key *root-map* (kbd "M-n") "move-window down") -(define-key *root-map* (kbd "M-p") "move-window up") -(define-key *root-map* (kbd "b") "move-focus left") -(define-key *root-map* (kbd "f") "move-focus right") -(define-key *root-map* (kbd "n") "move-focus down") -(define-key *root-map* (kbd "p") "move-focus up") - -(undefine-key *root-map* (kbd "C-a")) -(undefine-key *root-map* (kbd "C-c")) -(undefine-key *root-map* (kbd "C-e")) -(undefine-key *root-map* (kbd "C-m")) - -(define-frame-preference "Default" - (0 t nil :class "Emacs") - (1 t nil :class "Firefox") - (1 t nil :class "URxvt")) - -(if (not (head-mode-line (current-head))) - (toggle-mode-line (current-screen) (current-head))) - -(swank:create-server) diff --git a/stumpwm/stumpwmrc.lisp b/stumpwm/stumpwmrc.lisp new file mode 100644 index 0000000..1bed825 --- /dev/null +++ b/stumpwm/stumpwmrc.lisp @@ -0,0 +1,153 @@ +;; -*- mode: lisp; -*- +(require 'swank) + +(in-package :stumpwm) + +;; Naquadah +(defun colour (key) + (let ((colours (list :aluminium-1 #xeeeeec + :aluminium-2 #xd3d7cf + :aluminium-3 #xbabdb6 + :aluminium-4 #x888a85 + :aluminium-5 #x555753 + :aluminium-6 #x2e3436 + :butter-1 #xfce94f + :butter-2 #xedd400 + :butter-3 #xc4a000 + :orange-1 #xfcaf3e + :orange-2 #xf57900 + :orange-3 #xce5c00 + :chocolate-1 #xe9b96e + :chocolate-2 #xc17d11 + :chocolate-3 #x9f5902 + :chameleon-1 #x8ae234 + :chameleon-2 #x73d216 + :chameleon-3 #x4e9a06 + :sky-blue-1 #x729fcf + :sky-blue-2 #x3465a4 + :sky-blue-3 #x204a87 + :plum-1 #xad7fa8 + :plum-2 #x75507b + :plum-3 #x5c3566 + :scarlet-red-1 #xef2929 + :scarlet-red-2 #xcc0000 + :scarlet-red-3 #xa40000 + :background #x252a2b + :black #x0c191c + :cyan "cyan3"))) + (getf colours key))) + +(defvar *emacs-program* "emacsclient -c -a emacs" + "The executable to run to start Emacs.") +(defvar *firefox-program* "firefox" + "The executable to run to start Firefox.") +(defvar *urxvt-program* "urxvt" + "The executable to run to start URxvt.") +(defvar *i3lock-program* "i3lock -c 000000" + "The executable to run to start i3lock.") + +(defun get-mail-count (mailbox &optional (inbox "inbox")) + "Check how many new messages there are in MAILBOX." + (length + (directory + (format nil "/home/slash/documents/mail/~A/~A/new/*.*" + mailbox inbox)))) + +(defcommand run-emacs () () + "Open Emacs" + (run-shell-command *emacs-program*)) + +(defcommand raise-emacs () () + "Open or show Emacs" + (run-or-raise *emacs-program* '(:class "Emacs"))) + +(defcommand run-firefox () () + "Open Firefox" + (run-shell-command *firefox-program*)) + +(defcommand raise-firefox () () + "Open or show Firefox" + (run-or-raise *firefox-program* '(:class "Firefox"))) + +(defcommand run-urxvt () () + "Open URxvt" + (run-shell-command *urxvt-program*)) + +(defcommand raise-urxvt () () + "Open URxvt" + (run-or-raise *urxvt-program* '(:class "URxvt"))) + +(defcommand run-i3lock () () + "Lock screen" + (run-shell-command *i3lock-program*)) + +(set-bg-color (colour :background)) +(set-border-color (colour :aluminium-6)) +(set-fg-color (colour :aluminium-1)) +(set-float-focus-color (colour :black)) +(set-float-unfocus-color (colour :aluminium-6)) +(set-focus-color (colour :black)) +(set-font "-*-dejavu sans mono-medium-r-*-*-15-*-*-*-*-*-iso10646-*") +(set-unfocus-color (colour :aluminium-6)) +(set-win-bg-color (colour :background)) + +(setf *colors* (mapcar #'colour '(:black :scarlet-red-1 :chameleon-1 + :butter-1 :sky-blue-1 :plum-1 :cyan + :aluminium-1))) +(setf *input-window-gravity* :bottom-left) +(setf *maxsize-border-width* 1) +(setf *message-window-gravity* :top-right) +(setf *mode-line-background-color* (colour :background)) +(setf *mode-line-border-color* (colour :aluminium-6)) +(setf *mode-line-foreground-color* (colour :aluminium-1)) +(setf *normal-border-width* 1) +(setf *shell-program* (getenv "SHELL")) +(setf *transient-border-width* 1) +(setf *window-border-style* :tight) +(setf *window-format* "%m%50t") +(setf *screen-mode-line-format* + (list "[%n]" + '(:eval + (format nil " | ryu: ~D | gmail: ~D | aethon: ~D | " + (get-mail-count "ryuslash.org") + (get-mail-count "gmail") + (get-mail-count "aethon"))) + '(:eval + (format-expand *window-formatters* *window-format* + (current-window))))) + +(set-prefix-key (kbd "C-z")) + +(define-key *top-map* (kbd "C-M-l") "run-i3lock") + +(define-key *root-map* (kbd "c") "raise-urxvt") +(define-key *root-map* (kbd "C") "run-urxvt") +(define-key *root-map* (kbd "e") "raise-emacs") +(define-key *root-map* (kbd "E") "run-emacs") +(define-key *root-map* (kbd "w") "raise-firefox") +(define-key *root-map* (kbd "W") "run-firefox") + +(define-key *root-map* (kbd "C-b") "windowlist") +(define-key *root-map* (kbd "M-b") "move-window left") +(define-key *root-map* (kbd "M-f") "move-window right") +(define-key *root-map* (kbd "M-n") "move-window down") +(define-key *root-map* (kbd "M-p") "move-window up") +(define-key *root-map* (kbd "b") "move-focus left") +(define-key *root-map* (kbd "f") "move-focus right") +(define-key *root-map* (kbd "n") "move-focus down") +(define-key *root-map* (kbd "p") "move-focus up") + +(undefine-key *root-map* (kbd "C-a")) +(undefine-key *root-map* (kbd "C-c")) +(undefine-key *root-map* (kbd "C-e")) +(undefine-key *root-map* (kbd "C-m")) + +(define-frame-preference "Default" + (0 t nil :class "Emacs") + (1 t nil :class "Firefox") + (1 t nil :class "URxvt")) + +(if (not (head-mode-line (current-head))) + (toggle-mode-line (current-screen) (current-head))) + +(swank:create-server) -- cgit v1.2.3-54-g00ecf