.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 <rekahsoft@gmail.com>
This commit is contained in:
parent
ea52337f5b
commit
d4bc512e30
3
.emacs
3
.emacs
|
@ -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))
|
||||||
|
|
|
@ -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")
|
||||||
|
|
|
@ -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
|
||||||
|
|
Reference in New Issue