Files
dotfiles/.emacs
2017-07-15 19:15:30 +02:00

145 lines
4.4 KiB
Plaintext

(require 'package)
(setq package-enable-at-startup nil)
(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
("marmalade" . "https://marmalade-repo.org/packages/")
("melpa" . "https://melpa.org/packages/")
("org" . "http://orgmode.org/elpa/")))
(package-initialize)
;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(setq make-backup-files nil) ;; stop creating those backup~ files
(setq auto-save-default nil) ;; stop creating those #autosave# files
;; ausgewählten Text bei Eingabe löschen
(delete-selection-mode 1)
;; keine "yes-or-no"-Fragen - "y-or-n" reicht aus
(defalias 'yes-or-no-p 'y-or-n-p)
;; Zusammengehörende Klammern hervorheben
(show-paren-mode 1)
;; Text zwischen den Klammern nicht hervorheben
(setq show-paren-style 'parenthesis)
(use-package which-key
:ensure t
:config
(which-key-mode))
; Buffer Menu
(global-set-key (kbd "C-x C-b") 'buffer-menu)
(use-package flycheck
:ensure t
:init
(global-flycheck-mode t))
(require 'xcscope)
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(ido-mode 1)
(cscope-setup)
;(setq cscope-command-args -R )
(add-hook 'vhdl-mode-hook (function cscope-minor-mode))
(require 'ecb)
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(ido-mode 1)
(require 'cedet)
(global-ede-mode t)
; Make umlauts work
(set-language-environment 'german)
(set-terminal-coding-system 'iso-latin-1)
(setq c-default-style "stroustrup"
c-basic-offset 4)
(setq-default c-basic-offset 2
tab-width 2
indent-tabs-mode t)
(defconst knf-c-style
'((c-basic-offset . 2)
(c-indent-level . 2)
(c-continued-statement-offset . 2)
(c-brace-offset . -2)
(c-argdecl-indent . 2)
(c-label-offset . -2)
(c-offsets-alist . ((knr-argdecl-intro . +)
(knr-argdecl . 0)
(block-open . -)
(label . -)
(statement-cont . 2)
(arglist-cont . 2)
(innamespace . 0)
(statement-case-intro . 2)
(substatement-open . 0)
(case-label 2)
(inline-open 0)
(arglist-cont-nonempty 2))))
"BSD KNF")
(c-add-style "knf" knf-c-style)
(setq c-default-style "knf")
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(R . t) (perl . t) (C . t) ))
;; Frame title bar formatting to show full path of file
(setq-default
frame-title-format
(list '((buffer-file-name " %f" (dired-directory
dired-directory
(revert-buffer-function " %b"
("%b - Dir: " default-directory)))))))
(setq-default
icon-title-format
(list '((buffer-file-name " %f" (dired-directory
dired-directory
(revert-buffer-function " %b"
("%b - Dir: " default-directory)))))))
(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.
)
(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.
'(package-selected-packages
(quote
(which-key use-package s flymake-cppcheck flycheck-elixir flycheck-cython eval-in-repl ecb cppcheck)))
'(show-trailing-whitespace t))
(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
(global-set-key "\M-l" '(lambda () (interactive) (insert "@")))
(global-set-key "\M-5" '(lambda () (interactive) (insert "[")))
(global-set-key "\M-6" '(lambda () (interactive) (insert "]")))
(global-set-key "\M-7" '(lambda () (interactive) (insert "|")))
(global-set-key "\M-/" '(lambda () (interactive) (insert "\\")))
(global-set-key "\M-8" '(lambda () (interactive) (insert "{")))
(global-set-key "\M-9" '(lambda () (interactive) (insert "}")))
(global-set-key "\M-n" '(lambda () (interactive) (insert "~")))
; ))))