;;; voli@gmx.de's
;;;    ___ _ __ ___   __ _  ___ ___
;;;   / _ \ '_ ` _ \ / _` |/ __/ __|
;;;  |  __/ | | | | | (_| | (__\__ \
;;; (_)___|_| |_| |_|\__,_|\___|___/
;;; Time-stamp: <2018-09-02 20:38:32 voli>

;;; (version)"GNU Emacs 27.0.50 (build 1, x86_64-pc-linux-gnu, X
;;; toolkit, Xaw3d scroll bars) of 2018-08-22"

;;; (shell-command-to-string "uname -a")"Linux barberou
;;; 4.18.0-biscuit-de-barberou+ #129 SMP PREEMPT Thu Aug 23 11:26:26
;;; CEST 2018 x86_64 GNU/Linux"

;;;   __            _              _
;;;  / _| ___  __ _| |_ _   _ _ __(_)_ __   __ _
;;; | |_ / _ \/ _` | __| | | | '__| | '_ \ / _` |
;;; |  _|  __/ (_| | |_| |_| | |  | | | | | (_| |
;;; |_|  \___|\__,_|\__|\__,_|_|  |_|_| |_|\__, |
;;;                                        |___

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(setq package-quickstart t)

(setq user-emacs-source-directory (concat user-emacs-directory "elisp/"))
(add-to-list 'load-path (expand-file-name user-emacs-source-directory))
(let ((default-directory user-emacs-source-directory))
  (normal-top-level-add-subdirs-to-load-path))

(setq gnus-home-directory "~/.emacs.d"
      gnus-directory "~/.emacs.d/gnus-news-data")

(mapc 'require '(blom-bbdb blom-cred blom-erc blom-eshell
		 blom-gnus blom-org mingus cl crontab-mode
		 dired-x helpful orgalist scratch-persist))

;;; __     __
;;; \ \   / /_ _ _ __ ___   _ __ ___   __ _ _ __
;;;  \ \ / / _` | '__/ __| | '_ ` _ \ / _` | '_ \
;;;   \ V / (_| | |  \__ \ | | | | | | (_| | | | |
;;;    \_/ \__,_|_|  |___/ |_| |_| |_|\__,_|_| |_|
;;;
;;; manuell gesetzte Variable

(setq
 auto-insert-directory "~/.emacs.d/Vorlagen"
 blink-matching-paren 'jump
;;; browse-url-browser-function 'browse-url-generic
;;;  dired-auto-revert-buffer t
 display-time-day-and-date t
 display-time-24hr-format t
 enable-local-eval t
 font-lock-maximum-decoration t
 history-length 2500
 inferior-lisp-program "/usr/bin/sbcl"
 inhibit-startup-message t
 initial-scratch-message nil
 make-backup-files nil
 package-archives '(("org" . "http://orgmode.org/elpa/")("ELPA" . "http://tromey.com/elpa/")("gnu" . "http://elpa.gnu.org/packages/")("marmalade" . "http://marmalade-repo.org/packages/") ("melpa" . "http://melpa.milkbox.net/packages/"))
 scroll-error-top-bottom t
 switch-to-buffer-preserve-window-point nil
 system-name "Philosophischer-Nacht-und-Sonntagsdienst.de"
 visible-bell t
 )

;;;  _____         _
;;; |_   _|_ _ ___| |_ ___ _ __
;;;   | |/ _` / __| __/ _ \ '_ \
;;;   | | (_| \__ \ ||  __/ | | |
;;;   |_|\__,_|___/\__\___|_| |_|
;;;
;;; Tastaturbelegung

;;; Barrierefreiheit für mich
;;; Standard-Größe setzen, die alles andere überschreibt. Sie ist groß.
(setq schriftgroesse 160
      intervall 10)

(set-face-attribute 'default nil :height schriftgroesse)

;;; ich will Ctrl-+ und Ctrl-- wie bei Standardanwendungen zur Schriftveränderung benutzen.
(global-set-key [(control +)] '(lambda()(interactive)
				 (setq schriftgroesse (+ schriftgroesse intervall))
				 (set-face-attribute 'default nil :height schriftgroesse)))

(global-set-key [(control -)] '(lambda()(interactive)
				 (setq schriftgroesse (- schriftgroesse intervall))
				 (set-face-attribute 'default nil :height schriftgroesse)))

(global-set-key [(control c) (m)]         'menu-bar-mode)
(global-set-key [(control q)]             'delete-frame)
(global-set-key [(control shift left)]    'bs-cycle-previous)
(global-set-key [(control shift right)]   'bs-cycle-next)
(global-set-key [(control tab)]           'hippie-expand)
(global-set-key [(control x) (control c)] 'delete-frame)
(global-set-key [(control x) (control f)] 'counsel-find-file)
(global-set-key [(meta return)]           'eshell)
(global-set-key [(meta tab)]              'hippie-expand)
(global-set-key [(shift f9)]              '(lambda()(interactive)(erc :server erc-irc-server :nick erc-irc-nick)))
(global-set-key [(super tab)]             'hippie-expand)
(global-set-key [f1]                      'gnus)
(global-set-key [f2]                      'delete-other-windows)
(global-set-key [f3]                      'helm-mini) ;;;'ivy-switch-buffer) ;;'bs-show)
(global-set-key [f4]                      'eshell)
(global-set-key [f5]                      '(lambda()(interactive)(insert system-name)))
(global-set-key [f6]                      'other-window)
(global-set-key [f7]                      'mingus)
(global-set-key [f8]                      'org-capture)
(global-set-key [(control return)]        'org-agenda-open-link)

;;;        _ _
;;;   __ _| (_) __ _ ___
;;;  / _` | | |/ _` / __|
;;; | (_| | | | (_| \__ \
;;;  \__,_|_|_|\__,_|___/
;;;
;;; Aliase

(defalias 'yes-or-no-p 'y-or-n-p)

;;;     _                      _
;;;    / \  _   _ ___ ___  ___| |__   ___ _ __
;;;   / _ \| | | / __/ __|/ _ \ '_ \ / _ \ '_ \
;;;  / ___ \ |_| \__ \__ \  __/ | | |  __/ | | |
;;; /_/   \_\__,_|___/___/\___|_| |_|\___|_| |_|
;;;
;;; (set-frame-height (selected-frame) 40)

;;; http://Philosophischer-Nacht-und-Sonntagsdienst.de/voli-theme.el
;;; (load-theme 'voli t)

;;;;---
;;;Zufallsthema aus heruntergeladenen Elpa-Themen wählen:
(if window-system
    (let* ((installedthemes '(voli abyss afternoon arjen-grey
				   atom-dark badger badwolf bliss clues
				   darkburn darkmine darkokai darktooth forest-blue
				   spacegray subatomic suscolors tangotango
				   tronesque twilight waher warm-night yoshi
				   zen-and-art voli))
	   (zufallsfarbschema (nth (random (length installedthemes))
				   installedthemes)))
      (load-theme zufallsfarbschema t))
  (load-theme 'voli t))

;;;  __  __       _
;;; |  \/  |_   _| | ___
;;; | |\/| | | | | |/ _ \
;;; | |  | | |_| | |  __/
;;; |_|  |_|\__,_|_|\___|
;;; Unicode: 🎂🎂🎂 : geht mit installierten unicode + unifont-Fonts.

(prefer-coding-system 'utf-8)
(set-language-environment "utf-8")
(setq default-input-method "german")
(set-default-coding-systems 'utf-8)

;; Treat clipboard input as UTF-8 string first; compound text next, etc.
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))

(setq
 x-select-enable-clipboard t
 x-select-enable-primary t)

;;;  __  __           _ _
;;; |  \/  | ___   __| (_)
;;; | |\/| |/ _ \ / _` | |
;;; | |  | | (_) | (_| | |
;;; |_|  |_|\___/ \__,_|_|
;;;
;;; Modi

(appt-activate 1)
(auto-compression-mode 1)
(auto-encryption-mode 1)
(auto-image-file-mode)
(auto-insert-mode t)
(blink-cursor-mode 1)
(display-time)
;;; (electric-layout-mode 1)
(electric-pair-mode 1)
;;; (file-name-shadow-mode 1)
(global-disable-mouse-mode 1)
(global-font-lock-mode 1)
;;;(ido-mode 0)
(iimage-mode 1)
;;;(ivy-mode 1)
(menu-bar-mode 0)
(orgalist-mode 1)
(recentf-mode 1)
(savehist-mode 1)
(scroll-bar-mode 0)
(show-paren-mode 1)
(tool-bar-mode 0)
;;;(tooltip-mode 1)
;;;(transient-mark-mode 1)
;;;(visual-line-mode 1)

(set-default 'indicate-empty-lines t)

(setq auto-insert-alist
      (nconc '(("\\.el$"    . "elisp-insert.el") ;Reihenfolge wichtig!
	       ("\\.sh$"    . "sh-template")
	       ("brief"     . "brief.org")
	       ("\\.tex$"   . "aufsatz.tex"))
	     auto-insert-alist))

;;;  _   _             _
;;; | | | | ___   ___ | | _____
;;; | |_| |/ _ \ / _ \| |/ / __|
;;; |  _  | (_) | (_) |   <\__ \
;;; |_| |_|\___/ \___/|_|\_\___/
;;;
;;; Hooks

(add-hook 'before-save-hook 'time-stamp)
(add-hook 'after-save-hook  'executable-make-buffer-file-executable-if-script-p)

(add-hook 'shell-mode-hook  'ansi-color-for-comint-mode-on)

(add-hook 'prog-mode-hook (lambda ()
			    (setq show-trailing-whitespace t)
			    (rainbow-delimiters-mode)
			    (show-paren-mode 1)
			    (turn-on-eldoc-mode)))


(add-to-list 'auto-mode-alist '("\\.fish\\'" . shell-script-mode))

;;;  ____         __  __                __  __             _
;;; | __ ) _   _ / _|/ _| ___ _ __     |  \/  | __ _  __ _(_) ___
;;; |  _ \| | | | |_| |_ / _ \ '__|____| |\/| |/ _` |/ _` | |/ _ \
;;; | |_) | |_| |  _|  _|  __/ | |_____| |  | | (_| | (_| | |  __/
;;; |____/ \__,_|_| |_|  \___|_|       |_|  |_|\__,_|\__, |_|\___|
;;;                                                  |___/
;;; Dateien, die immer präsent sein sollen.

(mapc 'find-file-noselect '("~/.emacs.d/elisp/gnu-emacs"
			    "~/.emacs.d/elisp/blom-gnus.el"
			    "~/.emacs.d/elisp/blom-eshell.el"
			    "~/.emacs.d/elisp/blom-org.el"
			    "~/.emacs.d/elisp/blom-erc.el"
			    "~/.emacs.d/elisp/blom-bbdb.el"
			    "~/.config/i3/config"
			    "~/.config/i3status/config"
			    "~/.crontab"
			    ))

;;;  _____         _   _
;;; |_   _|__  ___| |_(_)_ __   __ _
;;;   | |/ _ \/ __| __| | '_ \ / _` |
;;;   | |  __/\__ \ |_| | | | | (_| |
;;;   |_|\___||___/\__|_|_| |_|\__, |
;;;                            |___/

(if window-system
    (setq browse-url-browser-function (quote browse-url-generic)
	  browse-url-generic-program "x-www-browser")
  (setq browse-url-browser-function (quote eww-browse-url)))

;;; __     __                              _
;;; \ \   / /_ _ _ __ ___    ___ _   _ ___| |_
;;;  \ \ / / _` | '__/ __|  / __| | | / __| __|
;;;   \ V / (_| | |  \__ \ | (__| |_| \__ \ |_
;;;    \_/ \__,_|_|  |___/  \___|\__,_|___/\__|
;;;
;;; Variable via M-x customize

(setq initial-major-mode 'org-mode)
;;;
(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.
 '(bbdb-file "~/.emacs.d/.bbdb")
 '(canlock-password "32c280757b752474871b12adbdc156c9180b025a")
 '(notmuch-saved-searches
   '((:name "inbox" :query "tag:inbox" :key "i" :sort-order newest-first :search-type tree)
     (:name "unread" :query "tag:unread" :key "u")
     (:name "flagged" :query "tag:flagged" :key "f")
     (:name "sent" :query "tag:sent" :key "t")
     (:name "drafts" :query "tag:draft" :key "d")
     (:name "all mail" :query "*" :key "a" :sort-order newest-first)))
 '(package-selected-packages
   '(disable-mouse ivy-hydra erc-nick-notify wiki-summary ivy-rich helpful eshell-fringe-status display-theme hl-anything pcache erc-hl-nicks scratch-persist forest-blue-theme font-utils helm-tramp helm-unicode helm-z plaster podcaster fish-completion starter-kit-eshell esh-autosuggest eshell-autojump eshell-bookmark eshell-did-you-mean eshell-fixed-prompt eshell-git-prompt eshell-manual eshell-prompt-extras eshell-up eshell-z exec-path-from-shell orgalist counsel-projectile counsel-tramp counsel-dash counsel-bbdb zen-and-art-theme yoshi-theme wtf warm-night-theme waher-theme use-package ucs-utils twilight-theme try tronesque-theme tomatinho tea-time tangotango-theme systemd suscolors-theme sunshine subatomic-theme spacegray-theme rainbow-delimiters pkg-info picpocket parinfer outshine org-plus-contrib org-bullets org-attach-screenshot org-alert notify mingus memoize ivy-todo htmlize gnus-desktop-notify font-lock+ ercn erc-yt diminish debbugs darktooth-theme darkokai-theme darkmine-theme darkburn-theme crontab-mode counsel clues-theme bliss-theme beacon bbdb badwolf-theme badger-theme atom-dark-theme async arjen-grey-theme ample-theme afternoon-theme aes ac-slime abyss-theme))
 '(send-mail-function 'smtpmail-send-it))
(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.
 )

;;;   ___ _ __ ___   __ _  ___ ___       ___  ___ _ ____   _____ _ __
;;;  / _ \ '_ ` _ \ / _` |/ __/ __|_____/ __|/ _ \ '__\ \ / / _ \ '__|
;;; |  __/ | | | | | (_| | (__\__ \_____\__ \  __/ |   \ V /  __/ |
;;;  \___|_| |_| |_|\__,_|\___|___/     |___/\___|_|    \_/ \___|_|
;;;
;;; emacs-server, schön einfach und so praktisch, emacs-Aufruf jetzt
;;; *immer* mit Batch:
;;; ,---- textedit ----
;;; | #!/bin/sh
;;; | exec emacsclient -c --alternate-editor="emacs" "$@"
;;; `----

;;; startet jetzt als emacs --daemon

(server-start)


(use-package counsel
  :after ivy
  :bind (("C-x C-f" . counsel-find-file)
	 ("M-x" . counsel-M-x)
	 ("M-y" . counsel-yank-pop)))

(use-package ivy
  :defer 0.1
  :diminish
  :bind (("C-c C-r" . ivy-resume)
	 ("C-x b" . ivy-switch-buffer)
	 ("C-x B" . ivy-switch-buffer-other-window))
  :custom
  (ivy-count-format "(%d/%d) ")
  (ivy-display-style 'fancy)
  (ivy-use-virtual-buffers t)
  :config (ivy-mode))

(use-package ivy-rich
  :after ivy
  :custom
  (ivy-virtual-abbreviate 'full
			  ivy-rich-switch-buffer-align-virtual-buffer t
			  ivy-rich-path-style 'abbrev)
  :config
  (ivy-set-display-transformer 'ivy-switch-buffer
			       'ivy-rich-switch-buffer-transformer))

(use-package swiper
  :after ivy
  :bind (("C-s" . swiper)
	 ("C-r" . swiper)))

(use-package wiki-summary
  :defer 1
  :bind ("C-c W" . wiki-summary))