From d4bc512e30e41a3729a016774def566b5b8f05dc Mon Sep 17 00:00:00 2001 From: Collin Doering Date: Sat, 5 Nov 2011 01:52:12 -0400 Subject: [PATCH] .emacs set default executable for run-haskell .stumpwmrc added a few keybindings mainly relating to window groups .xmonad/xmonad.hs added a few more workspaces and logical keys to bind them to Signed-off-by: Collin Doering --- .emacs | 3 +++ .stumpwmrc | 6 ++++-- .xmonad/xmonad.hs | 4 ++-- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/.emacs b/.emacs index 8aa399f..e566586 100644 --- a/.emacs +++ b/.emacs @@ -215,6 +215,9 @@ ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent) +;; Set inferior haskell default executable +(setq haskell-program-name "/usr/bin/ghci") + ;; Setup emacs-python-mode (autoload 'python-mode "/usr/share/emacs/site-lisp/python-mode.el" "Python mode." t) (setq auto-mode-alist (append '(("/*.\.py$" . python-mode)) auto-mode-alist)) diff --git a/.stumpwmrc b/.stumpwmrc index 052d282..2aadd9c 100644 --- a/.stumpwmrc +++ b/.stumpwmrc @@ -34,11 +34,13 @@ (stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "C-e")) ;; Create some keybindings to make life easier -(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "N") "gnext") -(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "P") "gprev") +(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd ">") "gnext") +(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "<") "gprev") (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "d") "gkill") +(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "N") "gnew") (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "c") "exec urxvt") (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-e") "exec emacsclient -c") +(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "P") "exec dmenu_run") ;; Load swank for emacs to connect to stumpwm's lisp process (load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp") diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index f324693..779d4aa 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -96,7 +96,7 @@ myModMask = mod4Mask -- -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] -- -myWorkspaces = ["1:general","2:hack","3:code","4:prog","5:web","6:com","7:net","8:media","9:status","0:mail","esc:hide"] +myWorkspaces = ["1:general","2:hack","3:code","4:prog","5:web","6:com","7:net","8:media","9:status","0:mail","esc:hide","-:11","=:12","\\:13", "`:14"] -- Border colors for unfocused and focused windows, respectively. -- @@ -188,7 +188,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ -- mod-shift-[1..9], Move client to workspace N -- [((m .|. modm, k), windows $ f i) - | (i, k) <- zip (XMonad.workspaces conf) ([xK_1 .. xK_9] ++ [xK_0, xK_Escape]) + | (i, k) <- zip (XMonad.workspaces conf) ([xK_1 .. xK_9] ++ [xK_0, xK_Escape, xK_minus, xK_equal, xK_backslash, xK_grave]) , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- Add custom key bindings