The configuration of Collin Doering
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

63 lines
2.4KB

  1. ;; (C) Copyright Collin Doering @!@YEAR@!@
  2. ;;
  3. ;; This program is free software: you can redistribute it and/or modify
  4. ;; it under the terms of the GNU General Public License as published by
  5. ;; the Free Software Foundation, either version 3 of the License, or
  6. ;; (at your option) any later version.
  7. ;;
  8. ;; This program is distributed in the hope that it will be useful,
  9. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. ;; GNU General Public License for more details.
  12. ;;
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  15. ;; File: .stumpwmrc
  16. ;; Author: Collin J. Doering <rekahsoft@gmail.com>
  17. ;; Date: Aug 11, 2011
  18. ;; TODO: write some nice custom config for stumpwm
  19. ;(set-contrib-dir "/usr/share/stumpwm")
  20. ;; Add the date to the modeline
  21. (setf stumpwm:*screen-mode-line-format*
  22. (list "%w | "
  23. '(:eval (remove #\Newline (stumpwm:run-shell-command "date '+%a %b %_d %l:%M %p'" t)))))
  24. ;; Enable the modeline
  25. (stumpwm:toggle-mode-line (stumpwm:current-screen) (stumpwm:current-head))
  26. ;; Disable some of the defaults
  27. (stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "c"))
  28. (stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "C-e"))
  29. ;; Create some keybindings to make life easier
  30. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd ">") "gnext")
  31. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "<") "gprev")
  32. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "d") "gkill")
  33. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "N") "gnew")
  34. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "c") "exec urxvt")
  35. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-e") "exec emacsclient -c")
  36. (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "P") "exec dmenu_run")
  37. ;; Center message and input windows
  38. (setq stumpwm:*message-window-gravity* :center)
  39. (setq stumpwm:*input-window-gravity* :center)
  40. ;; Load swank for emacs to connect to stumpwm's lisp process
  41. (load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp")
  42. (swank-loader:init)
  43. (defcommand swank () ()
  44. (setf stumpwm:*top-level-error-action* :break)
  45. (swank:create-server :port 5005
  46. :style swank:*communication-style*
  47. :dont-close t)
  48. (echo-string (current-screen)
  49. "Starting swank. M-x slime-connect RET RET, then (in-package stumpwm)."))
  50. ;; Start swank
  51. (swank)