dotfiles-emacs/.emacs.d/init.el

91 lines
2.7 KiB
EmacsLisp
Raw Normal View History

2015-09-19 23:52:34 +02:00
;;;;
;;;;;; -*- Mode: Emacs-Lisp -*-
;;;;
;; theme
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(column-number-mode t)
'(custom-enabled-themes (quote (tango-dark)))
'(org-agenda-files (file-expand-wildcards "~/org-mode/*.org"))
'(show-paren-mode t)
'(tool-bar-mode nil))
;; No fancy graphic stuff
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
;; Make the screen go down with one line & Mouse wheel support
(setq scroll-step 1)
(mouse-wheel-mode t)
;; Enable line, linum and column numbering
(line-number-mode 1)
(column-number-mode 1)
;; Enhanced buffer switching
(windmove-default-keybindings)
;; Paren matching
(show-paren-mode t)
;; Calender no Su at beginning
(setq european-calender-style t)
;; Run a shell with zsh
(shell)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
;; Display of current function (which function mode)
(which-function-mode 1)
;; dont backup
(setq make-backup-files nil)
;; woman
(setq woman-use-own-frame nil)
;; X11 clipboard interaction (http://www.emacswiki.org/emacs/CopyAndPaste)
(global-set-key [(shift delete)] 'clipboard-kill-region)
(global-set-key [(control insert)] 'clipboard-kill-ring-save)
(global-set-key [(shift insert)] 'primary-yank) ;; like an an X terminal
(setq select-active-regions t)
(global-set-key [mouse-2] 'mouse-yank-primary)
;; No, please, no tabs in my programs!
(setq indent-tabs-mode nil)
;; No am/pm here
(setq display-time-24hr-format t)
(put 'downcase-region 'disabled nil)
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:family "DejaVu Sans Mono" :foundry "unknown" :slant normal :weight normal :height 98 :width normal)))))
''(add-to-list 'load-path "~/.emacs.d/vendor/arduino-mode")
(setq auto-mode-alist (cons '("\\.\\(pde\\|ino\\)$" . arduino-mode) auto-mode-alist))
(autoload 'arduino-mode "arduino-mode" "Arduino editing mode." t)
(add-to-list 'load-path "~/.emacs.d/lisp")
(setq-default x-stretch-cursor t)
;; Include other configs
;; calendar-mode
(if (file-exists-p "~/.emacs.d/calendar.el")
(load-file "~/.emacs.d/calendar.el"))
;; custom
(if (file-exists-p "~/.emacs.d/custom.el")
(load-file "~/.emacs.d/custom.el"))
;; org-mode
(if (file-exists-p "~/.emacs.d/org-mode.el")
(load-file "~/.emacs.d/org-mode.el"))