mirror of
https://github.com/larstvei/dot-emacs.git
synced 2024-11-26 07:28:31 +00:00
first commit
This commit is contained in:
larstvei
commit
6092b9a537
262
init.el
Normal file
262
init.el
Normal file
@ -0,0 +1,262 @@
|
||||
;;-----------------------------------------------------------------------;;
|
||||
;;----------------------[ init.el by Lars Tveito ]-----------------------;;
|
||||
;;---------------------------[ 15. Jul, 2012 ]---------------------------;;
|
||||
;;-----------------------------------------------------------------------;;
|
||||
|
||||
|
||||
;------------------------------[ libraries ]------------------------------;
|
||||
|
||||
(let ((default-directory "~/Dropbox/ifi/.emacs.d/site-lisp/"))
|
||||
(normal-top-level-add-to-load-path '("."))
|
||||
(normal-top-level-add-subdirs-to-load-path))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;---------------------------[ initializations ]---------------------------;
|
||||
|
||||
(package-initialize)
|
||||
(color-theme-initialize)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;--------------------------[ loads color-theme ]--------------------------;
|
||||
|
||||
(load-library "subdued")
|
||||
(require 'color-theme-subdued)
|
||||
(color-theme-subdued)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;--------------------[ remove bars, blink and splash ]--------------------;
|
||||
|
||||
(menu-bar-mode -1)
|
||||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
(blink-cursor-mode 0)
|
||||
(setq inhibit-startup-message t)
|
||||
(setq-default indent-tabs-mode nil)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;-----------------------------[ Für Package ]-----------------------------;
|
||||
|
||||
(setq package-archives
|
||||
'(("gnu" . "http://elpa.gnu.org/packages/")
|
||||
("marmalade" . "http://marmalade-repo.org/packages/")
|
||||
("melpa" . "http://melpa.milkbox.net/packages/")))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;----------------------[ UTF-8 and tex-input mode ]-----------------------;
|
||||
|
||||
(set-language-environment "UTF-8")
|
||||
(setq default-input-method "TeX"
|
||||
initial-scratch-message '())
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;-----------------[ show parentheses, ido-mode and y/n ]------------------;
|
||||
|
||||
(ido-mode t)
|
||||
(show-paren-mode t)
|
||||
(fset 'yes-or-no-p 'y-or-n-p)
|
||||
(setq ido-file-extensions-order
|
||||
'("src" ".Org" ".java" ".c" ".h" ".emacs" ".el" ".tex"))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;-------------[ Delete selection, veiw column, load header ]--------------;
|
||||
|
||||
(delete-selection-mode t)
|
||||
(setq column-number-mode t)
|
||||
(autoload 'header "header" nil t)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;--------------------------------[ Mail ]---------------------------------;
|
||||
|
||||
(setq
|
||||
user-mail-address "larstvei@student.matnat.uio.no"
|
||||
user-full-name "Lars Tveito"
|
||||
send-mail-function 'smtpmail-send-it
|
||||
smtpmail-smtp-server "smtp.uio.no"
|
||||
smtpmail-smtp-service 587)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;------------------------------[ Autosave ]-------------------------------;
|
||||
|
||||
(defvar emacs-autosave-directory "~/Dropbox/ifi/.emacs.d/autosaves/")
|
||||
(setq backup-directory-alist
|
||||
`((".*" . ,emacs-autosave-directory))
|
||||
auto-save-file-name-transforms
|
||||
`((".*" ,emacs-autosave-directory t)))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;---------------------------[ Resize buffers ]----------------------------;
|
||||
|
||||
(global-set-key (kbd "<M-left>")
|
||||
(lambda () (interactive)
|
||||
(enlarge-window -1 t)))
|
||||
(global-set-key (kbd "<M-right>")
|
||||
(lambda () (interactive)
|
||||
(enlarge-window 1 t)))
|
||||
(global-set-key (kbd "<M-up>")
|
||||
(lambda () (interactive)
|
||||
(enlarge-window -1)))
|
||||
(global-set-key (kbd "<M-down>")
|
||||
(lambda () (interactive)
|
||||
(enlarge-window 1)))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;--------------------[ start eshell and bind to key ]---------------------;
|
||||
|
||||
(global-set-key (kbd "C-x t")
|
||||
(lambda () (interactive)
|
||||
(if (string= (buffer-name) "*eshell*")
|
||||
(switch-to-buffer (second (buffer-list)))
|
||||
(eshell))))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;----------------------------[ Auto-complete ]----------------------------;
|
||||
|
||||
(require 'auto-complete-config)
|
||||
(add-to-list 'ac-dictionary-directories
|
||||
"/home/lars/Dropbox/ifi/.emacs.d/lisp//ac-dict")
|
||||
(ac-config-default)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;-------------------------------[ DocView ]-------------------------------;
|
||||
|
||||
(add-hook 'doc-view-mode-hook 'auto-revert-mode)
|
||||
(setq doc-view-continuous t)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;----------------------------[ Key bindings ]-----------------------------;
|
||||
|
||||
(global-set-key (kbd "C-x k") 'kill-this-buffer)
|
||||
|
||||
(key-chord-mode 1)
|
||||
|
||||
(key-chord-define-global ";'" 'ace-jump-mode)
|
||||
(key-chord-define-global "qw" 'mc/mark-all-like-this)
|
||||
(key-chord-define-global "qs" 'mc/mark-next-like-this)
|
||||
|
||||
(global-set-key (kbd "C-'") 'er/expand-region)
|
||||
(global-set-key (kbd "C-;") 'er/contract-region)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
|
||||
;-------------------[ Replace expression with output ]--------------------
|
||||
|
||||
(defadvice eval-last-sexp (around replace-sexp (arg) activate)
|
||||
"Replace sexp when called with a prefix argument."
|
||||
(if arg
|
||||
(let ((pos (point)))
|
||||
ad-do-it
|
||||
(goto-char pos)
|
||||
(backward-kill-sexp)
|
||||
(forward-sexp))
|
||||
ad-do-it))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
;--------------[ * Programming-language-modes specifics * ]---------------;
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
;--------------------------------[ Java ]---------------------------------;
|
||||
|
||||
(autoload 'java-extras "java-extras" "Fold brackets")
|
||||
(add-hook 'java-mode-hook 'java-extras)
|
||||
;;TODO Fix this ugliness
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;----------------------------------[ C ]----------------------------------;
|
||||
|
||||
(load-library "hideshow-on")
|
||||
(add-hook 'c-mode-common-hook 'hideshow-on)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;--------------------------------[ Lisp ]---------------------------------;
|
||||
|
||||
;; Show λ in Lisp code.
|
||||
(defun sm-lambda-mode-hook ()
|
||||
(font-lock-add-keywords
|
||||
nil `(("\\<lambda\\>"
|
||||
(0 (progn (compose-region (match-beginning 0) (match-end 0)
|
||||
,(make-char 'greek-iso8859-7 107))
|
||||
nil))))))
|
||||
(dolist (h '(lisp-mode-hook
|
||||
scheme-mode-hook
|
||||
emacs-lisp-mode-hook
|
||||
slime-repl-mode-hook
|
||||
inferior-lisp-mode-hook
|
||||
inferior-scheme-mode-hook
|
||||
lisp-interaction-mode-hook))
|
||||
(progn
|
||||
(add-hook h (lambda () (paredit-mode 1)))
|
||||
(add-hook h 'sm-lambda-mode-hook)))
|
||||
|
||||
(when (file-exists-p "~/quicklisp/slime-helper.el")
|
||||
(load (expand-file-name "~/quicklisp/slime-helper.el")))
|
||||
|
||||
(setq inferior-lisp-program "sbcl")
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
|
||||
|
||||
;-------------------------------[ Scheme ]--------------------------------;
|
||||
|
||||
(require 'quack)
|
||||
|
||||
(autoload 'scheme-smart-complete "scheme-complete" nil t)
|
||||
(eval-after-load 'scheme
|
||||
'(define-key scheme-mode-map "\t" 'scheme-complete-or-indent))
|
||||
(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t)
|
||||
(add-hook 'scheme-mode-hook
|
||||
(lambda ()
|
||||
(make-local-variable 'eldoc-documentation-function)
|
||||
(setq eldoc-documentation-function
|
||||
'scheme-get-current-symbol-info)
|
||||
(eldoc-mode)))
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
26
site-lisp/header.el
Normal file
26
site-lisp/header.el
Normal file
@ -0,0 +1,26 @@
|
||||
;-------------[ This function creates headers like this one ]-------------;
|
||||
|
||||
(defun header ()
|
||||
(interactive)
|
||||
(beginning-of-line)
|
||||
(if (and (eolp) (bolp))
|
||||
(insert ";;")
|
||||
(progn
|
||||
(insert ";[ ")
|
||||
(move-end-of-line 1)
|
||||
(insert " ];")))
|
||||
(add-dashes))
|
||||
|
||||
(defun add-dashes ()
|
||||
;; lets wait, just for fun.
|
||||
(sit-for 0.006)
|
||||
(end-of-line)
|
||||
(let ((line-length (current-column)))
|
||||
(if (oddp line-length)
|
||||
(progn
|
||||
(beginning-of-line)
|
||||
(forward-char))
|
||||
(backward-char))
|
||||
(insert "-")
|
||||
(unless (< 73 line-length)
|
||||
(add-dashes))))
|
||||
Loading…
Reference in New Issue
Block a user