diff options
author | Tom Willemsen | 2012-08-26 22:19:45 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-08-26 22:19:45 +0200 |
commit | a81a4ec40737452979fbf378c79a99a31662e857 (patch) | |
tree | 9f6001cc2ac6d6f61e04ea8c09f1608d86f1a1c2 /stumpwm/stumpwmrc | |
parent | 999f51952e31e1101b54873b5550e6116f13dfaa (diff) | |
download | dotfiles-a81a4ec40737452979fbf378c79a99a31662e857.tar.gz dotfiles-a81a4ec40737452979fbf378c79a99a31662e857.zip |
stumpwm: Use .lisp extension
Diffstat (limited to 'stumpwm/stumpwmrc')
-rw-r--r-- | stumpwm/stumpwmrc | 153 |
1 files changed, 0 insertions, 153 deletions
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) |