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:
parent
fb48c4320d
commit
ea4bbc3385
31
.emacs
31
.emacs
|
@ -139,7 +139,8 @@
|
||||||
;; Set usable lisp implementations
|
;; Set usable lisp implementations
|
||||||
(setq slime-lisp-implementations
|
(setq slime-lisp-implementations
|
||||||
'((sbcl ("/usr/bin/sbcl" ""))
|
'((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
|
;; Function to start and/or connect to slime
|
||||||
(defun start-slime ()
|
(defun start-slime ()
|
||||||
|
@ -152,6 +153,28 @@
|
||||||
(add-hook 'slime-mode-hook 'start-slime)
|
(add-hook 'slime-mode-hook 'start-slime)
|
||||||
(slime-setup '(slime-fancy))
|
(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
|
;; Setup emacs-org-mode
|
||||||
(add-to-list 'auto-mode-alist '("\\.org\\'" . 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
|
(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))
|
(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)
|
(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
|
;; 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
|
;; known issue..if paredit-mode is turned on when there are unbalanced parens an error is reported
|
||||||
(defun toggle-paredit-mode ()
|
(defun toggle-paredit-mode ()
|
||||||
|
@ -271,3 +297,6 @@
|
||||||
|
|
||||||
;; Remove tool-bar
|
;; Remove tool-bar
|
||||||
(tool-bar-mode -1)
|
(tool-bar-mode -1)
|
||||||
|
|
||||||
|
;; Remove scroll bars
|
||||||
|
(scroll-bar-mode -1)
|
||||||
|
|
2
.xinitrc
2
.xinitrc
|
@ -19,7 +19,7 @@ nitrogen --restore &
|
||||||
unclutter &
|
unclutter &
|
||||||
|
|
||||||
# Setup system tray
|
# 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..
|
# Use xbindkeys to bind media keys etc..
|
||||||
xbindkeys &
|
xbindkeys &
|
||||||
|
|
6
.zshrc
6
.zshrc
|
@ -33,8 +33,10 @@ PS1="[%n@%M: %~]%% "
|
||||||
# Turn off noscroll
|
# Turn off noscroll
|
||||||
stty stop undef
|
stty stop undef
|
||||||
|
|
||||||
# Modify path variable to allow execution of mathematica and tools
|
# Modify path variable to allow execution of the following:
|
||||||
export PATH=${PATH}:/usr/local/bin
|
# * mathematica/ tools
|
||||||
|
# * maven tools
|
||||||
|
export PATH=${PATH}:/usr/local/bin:/opt/maven/bin
|
||||||
|
|
||||||
# start keychain
|
# start keychain
|
||||||
eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa`
|
eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa`
|
||||||
|
|
Reference in New Issue