You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

67 lines
3.2 KiB

  1. (setq debug-on-error t) ;; Debug-Meldung, wenn Fehler bei init.el
  2. (require 'package)
  3. (defvar gnu '("gnu" . "https://elpa.gnu.org/packages/"))
  4. (defvar melpa '("melpa" . "https://melpa.org/packages/"))
  5. (defvar melpa-stable '("melpa-stable" . "https://stable.melpa.org/packages/"))
  6. (defvar org '("org" . "http://orgmode.org/elpa/"))
  7. ;;(defvar elpy '("elpy" . "http://jorgenschaefer.github.io/packages/"))
  8. (setq package-archive nil)
  9. (add-to-list 'package-archives melpa-stable t)
  10. (add-to-list 'package-archives melpa t)
  11. (add-to-list 'package-archives gnu t)
  12. (add-to-list 'package-archives org t)
  13. (package-initialize) ;; Archiv initialisieren und Inhalt
  14. ;; aktualisieren, wenn kein Cache vorhanden
  15. (unless (and (file-exists-p "~/.emacs.d/elpa/archives/melpa-stable")
  16. (file-exists-p "~/.emacs.d/elpa/archives/melpa")
  17. (file-exists-p "~/.emacs.d/elpa/archives/gnu")
  18. (file-exists-p "~/.emacs.d/elpa/archives/org"))
  19. (package-refresh-contents))
  20. (unless (package-installed-p 'use-package)
  21. (package-refresh-contents)
  22. (package-install 'use-package))
  23. (add-to-list 'custom-theme-load-path "~/.emacs.d/themes") ;; Speicherpfad für Themes
  24. (defvar PATH_START "~/Archiv/Dokumente/")
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ;; Optik
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28. (setq inhibit-startup-message t) ;; keine Startnachricht
  29. (setq inhibit-splash-screen t) ;; kein Splashscreen
  30. (setq initial-scratch-message nil) ;; keine Scratchmessage
  31. (scroll-bar-mode -1) ;; keine Scrollbar
  32. (setq initial-buffer-choice PATH_START) ;; Dateibrowser öffnen
  33. (add-to-list 'default-frame-alist '(fullscreen . maximized)) ;; Vollbild beim Start
  34. (show-paren-mode 1) ;; zeigt zusammenhängende Klammern
  35. (setq show-paren-delay 0) ;; zeigt die Klammern umgehend
  36. (global-hl-line-mode 1) ;; Aktuelle Zeile hervorheben
  37. (make-variable-buffer-local 'global-hl-line-mode) ;; deaktiviere Hervorhebung bei Bedarf
  38. (global-linum-mode t) ;; Generell Zeilennummern anzeigen
  39. (set-face-attribute 'default nil :font "Hack-12")
  40. (setq scroll-step 1
  41. scroll-conservatively 10000)
  42. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  43. ;; which-key
  44. ;; https://github.com/justbur/emacs-which-key
  45. ;; Info in Emacs: M-x customize-group which-key
  46. ;;(setq which-key-mode) ;; aktiviert which-key
  47. ;;(which-key-setup-side-window-right-bottom) ;; zeigt hotkeys rechts an, wenn Platz, sonst unten
  48. ;;(which-key-setup-minibuffer) ;; take over the minibuffer
  49. ;;(setq which-key-idle-delay 0.5) ;; hotkeys werden nach 0.5s angezeigt
  50. (provide 'base)