Did some minor changes to .xinitrc making trayer sized more aligned with xmobars

Added clojure support to emacs (requires aur/emacs-clojure-mode-git, clojure, aur/clojure-contrib-git, aur/swank-clojure-git, maven)
Added path for maven (required for building clojure-contrib-git from the aur)

Starting to refine use of git..Now have seperate projects for each system and a generic git tree to start from
This commit is contained in:
Collin J. Doering 2011-06-20 20:55:55 -04:00 committed by Collin J. Doering
parent fb48c4320d
commit ea4bbc3385
3 changed files with 35 additions and 4 deletions

31
.emacs
View File

@ -139,7 +139,8 @@
;; Set usable lisp implementations
(setq slime-lisp-implementations
'((sbcl ("/usr/bin/sbcl" ""))
(clisp ("/usr/bin/clisp" "-K full"))))
(clisp ("/usr/bin/clisp" "-K base"))
(clojure ("/usr/bin/clj" ""))))
;; Function to start and/or connect to slime
(defun start-slime ()
@ -152,6 +153,28 @@
(add-hook 'slime-mode-hook 'start-slime)
(slime-setup '(slime-fancy))
;; Setup clojure mode
(add-to-list 'load-path "/usr/share/emacs/site-lisp/clojure-mode")
(require 'clojure-mode)
;; Setup swank-clojure-mode
(add-to-list 'load-path "/usr/share/emacs/site-lisp/swank-clojure")
(require 'swank-clojure)
(add-hook 'clojure-mode-hook
'(lambda ()
(define-key clojure-mode-map "\C-c\C-e" 'lisp-eval-last-sexp)
(define-key clojure-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)))
(eval-after-load "slime"
`(progn
(require 'assoc)
(setq swank-clojure-classpath
(list "/usr/share/clojure/clojure.jar"
"/usr/share/clojure/clojure-contrib.jar"
"/usr/share/emacs/site-lisp/swank-clojure/src"))
(aput 'slime-lisp-implementations 'clojure
(list (swank-clojure-cmd) :init 'swank-clojure-init))))
;; Setup emacs-org-mode
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock) ; not needed when global-font-lock-mode is on
@ -186,6 +209,9 @@
(defvar paredit-hooks '(lisp-mode-hook lisp-interaction-mode-hook scheme-mode-hook c-mode-hook c++-mode-hook python-mode-hook))
(activate-mode-with-hooks (lambda () (paredit-mode 1)) paredit-hooks)
;; Highlight paren's in given modes [to apply globally do (show-paren-mode 1)]
(activate-mode-with-hooks (lambda () (show-paren-mode 1)) paredit-hooks)
;; upcomming functionallity: toggle paredit-mode due to annoying things like wrapping parens when a mistake is made
;; known issue..if paredit-mode is turned on when there are unbalanced parens an error is reported
(defun toggle-paredit-mode ()
@ -271,3 +297,6 @@
;; Remove tool-bar
(tool-bar-mode -1)
;; Remove scroll bars
(scroll-bar-mode -1)

View File

@ -19,7 +19,7 @@ nitrogen --restore &
unclutter &
# Setup system tray
trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 2 --height 11 --transparent true --tint 0x000000 &
trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 4 --height 2 --transparent true --tint 0x000000 &
# Use xbindkeys to bind media keys etc..
xbindkeys &

6
.zshrc
View File

@ -33,8 +33,10 @@ PS1="[%n@%M: %~]%% "
# Turn off noscroll
stty stop undef
# Modify path variable to allow execution of mathematica and tools
export PATH=${PATH}:/usr/local/bin
# Modify path variable to allow execution of the following:
# * mathematica/ tools
# * maven tools
export PATH=${PATH}:/usr/local/bin:/opt/maven/bin
# start keychain
eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa`