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 <rekahsoft@gmail.com>
This commit is contained in:
Collin J. Doering 2011-11-05 01:52:12 -04:00 committed by Collin J. Doering
parent ea52337f5b
commit d4bc512e30
3 changed files with 9 additions and 4 deletions

3
.emacs
View File

@ -215,6 +215,9 @@
;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) ;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-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 ;; Setup emacs-python-mode
(autoload 'python-mode "/usr/share/emacs/site-lisp/python-mode.el" "Python mode." t) (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)) (setq auto-mode-alist (append '(("/*.\.py$" . python-mode)) auto-mode-alist))

View File

@ -34,11 +34,13 @@
(stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "C-e")) (stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "C-e"))
;; Create some keybindings to make life easier ;; 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 ">") "gnext")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "P") "gprev") (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 "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") "exec urxvt")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-e") "exec emacsclient -c") (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 swank for emacs to connect to stumpwm's lisp process
(load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp") (load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp")

View File

@ -96,7 +96,7 @@ myModMask = mod4Mask
-- --
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] -- > 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. -- 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 -- mod-shift-[1..9], Move client to workspace N
-- --
[((m .|. modm, k), windows $ f i) [((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)]] , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
-- Add custom key bindings -- Add custom key bindings