config_emacs/elisp/base.el

(setq debug-on-error t)          ;; Debug-Meldung, wenn Fehler bei init.el

(require 'package)

(defvar gnu '("gnu" . "https://elpa.gnu.org/packages/"))
(defvar melpa '("melpa" . "https://melpa.org/packages/"))
(defvar melpa-stable '("melpa-stable" . "https://stable.melpa.org/packages/"))
(defvar org '("org" . "http://orgmode.org/elpa/"))
;;(defvar elpy '("elpy" . "http://jorgenschaefer.github.io/packages/"))

(setq package-archive nil)
(add-to-list 'package-archives melpa-stable t)
(add-to-list 'package-archives melpa t)
(add-to-list 'package-archives gnu t)
(add-to-list 'package-archives org t)

(package-initialize)								;; Archiv initialisieren und Inhalt
										;; aktualisieren, wenn kein Cache vorhanden
(unless (and (file-exists-p "~/.emacs.d/elpa/archives/melpa-stable")
             (file-exists-p "~/.emacs.d/elpa/archives/melpa")
             (file-exists-p "~/.emacs.d/elpa/archives/gnu")
             (file-exists-p "~/.emacs.d/elpa/archives/org"))
  (package-refresh-contents))

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(add-to-list 'custom-theme-load-path "~/.emacs.d/themes") ;; Speicherpfad für Themes

(defvar PATH_START "~/Archiv/Dokumente/")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Optik
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq inhibit-startup-message t)                                                ;; keine Startnachricht
(setq inhibit-splash-screen t)                                                  ;; kein Splashscreen
(setq initial-scratch-message nil)                                              ;; keine Scratchmessage
(setq initial-buffer-choice PATH_START)                                         ;; Dateibrowser öffnen
(add-to-list 'default-frame-alist '(fullscreen . maximized))                    ;; Vollbild beim Start

(show-paren-mode 1)                                                             ;; zeigt zusammenhängende Klammern
(setq show-paren-delay 0)                                                       ;; zeigt die Klammern umgehend

(global-hl-line-mode 1)                                                         ;; Aktuelle Zeile hervorheben
(make-variable-buffer-local 'global-hl-line-mode)                               ;; deaktiviere Hervorhebung bei Bedarf
(global-linum-mode t)                                                           ;; Generell Zeilennummern anzeigen
(set-face-attribute 'default nil :font "Hack-12")

(setq scroll-step		1
      scroll-conservatively	10000)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; which-key
;; https://github.com/justbur/emacs-which-key
;; Info in Emacs: M-x customize-group which-key

;;(setq which-key-mode)							                                    ;; aktiviert which-key
;;(which-key-setup-side-window-right-bottom)				                        ;; zeigt hotkeys rechts an, wenn Platz, sonst unten
;;(which-key-setup-minibuffer)						                            ;; take over the minibuffer
;;(setq which-key-idle-delay 0.5)						                            ;; hotkeys werden nach 0.5s angezeigt


(provide 'base)