;;; zeitblom@gmx.de's
;;; ___ _ __ ___ __ _ ___ ___
;;; / _ \ '_ ` _ \ / _` |/ __/ __|
;;; | __/ | | | | | (_| | (__\__ \
;;; (_)___|_| |_| |_|\__,_|\___|___/
;;; Time-stamp: <2017-06-01 19:50:05 voli>
;;; (version)"GNU Emacs 25.1.1 (x86_64-pc-linux-gnu, GTK+ Version
;;; 3.22.1) of 2016-10-11, modified by Debian"
;;; (shell-command-to-string "uname -a")"Linux bouvard
;;; 4.9.0-rc1-zeitbloms-zeitvertreib #587 SMP Sun Oct 16 19:28:09 CEST
;;; 2016 x86_64 GNU/Linux"
;;; __ _ _
;;; / _| ___ __ _| |_ _ _ _ __(_)_ __ __ _
;;; | |_ / _ \/ _` | __| | | | '__| | '_ \ / _` |
;;; | _| __/ (_| | |_| |_| | | | | | | | (_| |
;;; |_| \___|\__,_|\__|\__,_|_| |_|_| |_|\__, |
;;; |___
(package-initialize)
(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 load-path (cons "/usr/share/org-mode/lisp" load-path))
(setq gnus-home-directory "~/.emacs.d"
gnus-directory "~/.emacs.d/gnus-news-data")
(mapc 'require '(blom-cred blom-erc blom-gnus blom-org cl))
;;; blom-bbdb
;;; __ __ _
;;; \ \ / /_ _ _ __ ___ ___ _ _ ___| |_
;;; \ \ / / _` | '__/ __| / __| | | / __| __|
;;; \ V / (_| | | \__ \ | (__| |_| \__ \ |_
;;; \_/ \__,_|_| |___/ \___|\__,_|___/\__|
;;;
;;; Variable via M-x customize
(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.
'(appt-audible t)
'(appt-display-format (quote window))
'(appt-display-interval 3)
'(appt-message-warning-time 9)
'(auto-save-default t)
'(bbdb-file "~/.emacs.d/.bbdb")
'(bs-default-configuration "all")
'(calendar-date-style (quote american))
'(case-fold-search t)
'(custom-safe-themes
(quote
("7e5f93f8271df0335d594ba14fd44c8c709d19c9f6e80eebae8124bc01fb2648" default)))
'(debug-on-error t)
'(dictionary-server "localhost")
'(dired-dwim-target t)
'(dired-no-confirm (quote (copy delete move shell)))
'(display-time-24hr-format t)
'(display-time-mode t)
'(display-time-use-mail-icon t)
'(eshell-cd-shows-directory t)
'(flyspell-abbrev-p t)
'(flyspell-issue-welcome-flag nil)
'(flyspell-use-meta-tab nil)
'(frame-background-mode (quote dark))
'(global-font-lock-mode t nil (font-lock))
'(grep-find-command "find $HOME -type f -print0 | xargs -0 -e grep -nH -e ")
'(lpr-command "/usr/bin/lpr")
'(menu-bar-mode nil)
'(mingus-dired-add-keys t)
'(mingus-mpd-root "/usr/local/media/Musik")
'(pabbrev-global-mode-buffer-size-limit nil)
'(pabbrev-idle-timer-verbose nil)
'(pabbrev-marker-distance-before-scavenge 2000)
'(pabbrev-read-only-error nil)
'(pabbrev-scavenge-some-chunk-size 40)
'(pabbrev-thing-at-point-constituent (quote symbol))
'(package-selected-packages
(quote
(ac-slime slime bbdb flycheck org-attach-screenshot org-bullets fortune-cookie use-package rainbow-delimiters org-plus-contrib debbugs mbe maxframe clojure-mode-extra-font-locking clues-theme cider german-holidays)))
'(printer-name "hp_deskjet_5550")
'(ps-end-with-control-d t)
'(ps-error-handler-message (quote system))
'(ps-header-offset 42)
'(ps-left-margin 72)
'(ps-lpr-command "/usr/bin/lpr")
'(ps-lpr-switches (quote ("-sPAPERSIZE=a4" "-dNOPAUSE" "-dSAFER")))
'(ps-multibyte-buffer (quote non-latin-printer))
'(ps-n-up-margin 72)
'(ps-n-up-printing 1)
'(ps-number-of-columns 1)
'(ps-print-color-p nil)
'(ps-print-prologue-header nil)
'(ps-printer-name "hp_deskjet_5550")
'(ps-top-margin 72)
'(safe-local-variable-values (quote ((allout-layout -2 :))))
'(save-place-mode t nil (saveplace))
'(server-kill-new-buffers nil)
'(show-trailing-whitespace t)
'(sp-show-pair-from-inside t)
'(tool-bar-mode nil)
'(url-show-status nil)
'(use-file-dialog nil)
'(wdired-allow-to-change-permissions t)
'(wdired-use-interactive-rename t))
;;; __ __
;;; \ \ / /_ _ _ __ ___ _ __ ___ __ _ _ __
;;; \ \ / / _` | '__/ __| | '_ ` _ \ / _` | '_ \
;;; \ V / (_| | | \__ \ | | | | | | (_| | | | |
;;; \_/ \__,_|_| |___/ |_| |_| |_|\__,_|_| |_|
;;;
;;; manuell gesetzte Variable
(setq
auto-insert-directory "~/.emacs.d/Vorlagen"
auto-insert-query nil
blink-matching-paren t
browse-url-browser-function 'browse-url-generic
desktop-save-mode nil
dired-auto-revert-buffer t
display-time-day-and-date nil
epa-file-cache-passphrase-for-symmetric-encryption t
epa-file-encrypt-to "Volker Linke"
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
;; max-lisp-eval-depth 2000
;; max-specpdl-size 2000
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
sentence-end-double-space nil
system-name "Philosophischer-Nacht-und-Sonntagsdienst.de"
visible-bell t
x-select-enable-clipboard t
x-select-enable-primary t
mouse-drag-copy-region t
)
;;; Browserauswahl
(if window-system
(setq browse-url-generic-program "x-www-browser")
(setq browse-url-generic-program "elinks")
)
;;; Fußnotenfunktionalität
(setq
footnote-spaced-footnotes nil
footnote-body-tag-spacing 1
footnote-narrow-to-footnotes-when-editing nil
footnote-style 'numeric
footnote-section-tag "__________"
footnote-section-tag-regexp footnote-section-tag)
;;; Backups
(setq
backup-by-copying t
backup-directory-alist
'((".*" . "~/.emacs.d/.backup-dateien/"))
delete-old-versions t
kept-new-versions 10
version-control nil)
;;; _____ _
;;; |_ _|_ _ ___| |_ ___ _ __
;;; | |/ _` / __| __/ _ \ '_ \
;;; | | (_| \__ \ || __/ | | |
;;; |_|\__,_|___/\__\___|_| |_|
;;;
;;; Tastaturbelegung
;;; Barrierefreiheit für mich
;;; Standard-Größe setzen, die alles andere überschreibt. Sie ist groß.
(setq meineschriftgroesse 150)
(set-face-attribute 'default nil :height meineschriftgroesse)
;;; ich will Ctrl-+ und Ctrl-- wie bei Standardanwendungen zur Schriftveränderung benutzen.
(global-set-key [(control +)] '(lambda()(interactive)
(setq meineschriftgroesse (+ meineschriftgroesse 10))
(set-face-attribute 'default nil :height meineschriftgroesse)))
(global-set-key [(control -)] '(lambda()(interactive)
(setq meineschriftgroesse (- meineschriftgroesse 10))
(set-face-attribute 'default nil :height meineschriftgroesse)))
(global-set-key [(control c) (m)] 'menu-bar-mode)
(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 [(meta tab)] 'hippie-expand)
(global-set-key [(super tab)] 'hippie-expand)
(global-set-key [f1] 'gnus)
(global-set-key [f2] 'delete-other-windows)
(global-set-key [f3] 'bs-show)
(global-set-key [f4] '(lambda()(interactive)(insert system-name)))
(global-set-key [f5] 'slime)
(global-set-key [f6] 'other-window)
(global-set-key [f8] 'org-capture)
(global-set-key [(shift f9)] '(lambda()(interactive)(erc :server erc-irc-server :nick erc-irc-nick)))
(global-set-key [(control q)] 'kill-buffer)
;;; _ _
;;; __ _| (_) __ _ ___
;;; / _` | | |/ _` / __|
;;; | (_| | | | (_| \__ \
;;; \__,_|_|_|\__,_|___/
;;;
;;; 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:
(setq installedthemes '(voli abyss afternoon ample ample-zen
arjen-grey atom-dark badger badwolf bliss
clues darkburn darkmine darkokai darktooth
spacegray subatomic suscolors tangotango
tronesque twilight waher warm-night
yoshi zen-and-art voli)
;; gefällt mir nicht: assemblage, ujelly: zu schwarz-weiß. ubuntu: zu
;; barock; ahungry :Schrift; zenburn: grau auf grau zu hell für
;; mich: tommyh tango-plus twilight-bright xresources white-sand
;; termbright error bei: archives toxi tao tron steady spacemacs
;; zonokai
zufallsfarbschema (nth (random (length installedthemes)) installedthemes))
(load-theme zufallsfarbschema t)
;;; ___ _ __ ___ __ _ ___ ___ ___ ___ _ ____ _____ _ __
;;; / _ \ '_ ` _ \ / _` |/ __/ __|_____/ __|/ _ \ '__\ \ / / _ \ '__|
;;; | __/ | | | | | (_| | (__\__ \_____\__ \ __/ | \ 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)
;;; __ __ _ _
;;; | \/ | ___ __| (_)
;;; | |\/| |/ _ \ / _` | |
;;; | | | | (_) | (_| | |
;;; |_| |_|\___/ \__,_|_|
;;;
;;; 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)
(file-name-shadow-mode 1)
(global-auto-composition-mode 1)
(global-font-lock-mode 1)
(iimage-mode 1)
(menu-bar-mode 0)
(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 0)
(set-default 'indicate-empty-lines t)
(setq auto-insert-alist
(nconc '(("\\.el$" . "elisp-insert.el") ;Reihenfolge wichtig!
("\\.sh$" . "sh-template")
("brief" . "brief.org")
("reisliste" . "preisliste.tex")
("\\.tex$" . "aufsatz.tex"))
auto-insert-alist))
;;; _ _ _
;;; | | | | ___ ___ | | _____
;;; | |_| |/ _ \ / _ \| |/ / __|
;;; | _ | (_) | (_) | <\__ \
;;; |_| |_|\___/ \___/|_|\_\___/
;;;
;;; Hooks
(add-hook 'org-agenda-hook
(setq show-trailing-whitespace t))
(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 'syslog-mode-hook 'auto-revert-tail-mode)
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
(setq org-bullets-bullet-list '("◉" "◎" "⚫" "○" "►" "◇"))
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(add-hook 'text-mode-hook (lambda () (flycheck-mode)))
(dolist (hook '(text-mode-hook message-mode-hook erc-mode-hook))
(add-hook hook '(lambda ()
;;;(flyspell-mode 1)
(set-input-method "latin-9-prefix"))))
(dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook python-mode-hook))
(add-hook hook '(lambda ()
(show-paren-mode 1)
(turn-on-eldoc-mode))))
;;; __ __ _
;;; | \/ |_ _| | ___
;;; | |\/| | | | | |/ _ \
;;; | | | | |_| | | __/
;;; |_| |_|\__,_|_|\___|
;;;
;;; mule
(prefer-coding-system 'utf-8)
(set-input-method "latin-9-prefix")
;;; _____ _ _ _
;;; | ____|___| |__ ___| | |
;;; | _| / __| '_ \ / _ \ | |
;;; | |___\__ \ | | | __/ | |
;;; |_____|___/_| |_|\___|_|_|
;;;
;;; eshell
;;; Change the default eshell prompt
(setq eshell-prompt-function
(lambda ()
(concat "[" (getenv "USER") "] "
"(" (format-time-string "%c") ")\n"
(eshell/pwd) (if (= (user-uid) 0) " # " " $ "))))
;;; ____ __ __ __ __ _
;;; | __ ) _ _ / _|/ _| ___ _ __ | \/ | __ _ __ _(_) ___
;;; | _ \| | | | |_| |_ / _ \ '__|____| |\/| |/ _` |/ _` | |/ _ \
;;; | |_) | |_| | _| _| __/ | |_____| | | | (_| | (_| | | __/
;;; |____/ \__,_|_| |_| \___|_| |_| |_|\__,_|\__, |_|\___|
;;; |___/
;;; Dateien, die immer präsent sein sollen.
(mapc 'find-file-noselect
'("~/.emacs.d/elisp/gnu-emacs"
"~/.emacs.d/elisp/blom-gnus.el"
"~/.config/i3/config"
"~/.gmrunrc"
;; "~/texte/biographisches/diabetes-zeugs/diabetes-daten.el"
;; "~/bin/test.erl"
))
;;; _____ _ _
;;; |_ _|__ ___| |_(_)_ __ __ _
;;; | |/ _ \/ __| __| | '_ \ / _` |
;;; | | __/\__ \ |_| | | | | (_| |
;;; |_|\___||___/\__|_|_| |_|\__, |
;;; |___/