;;; voli@gmx.de's
;;; ___ _ __ ___ __ _ ___ ___
;;; / _ \ '_ ` _ \ / _` |/ __/ __|
;;; | __/ | | | | | (_| | (__\__ \
;;; (_)___|_| |_| |_|\__,_|\___|___/
;;; Time-stamp: <2019-06-15 20:54:41 voli>
;;; (version)"GNU Emacs 26.1 (build 2, x86_64-pc-linux-gnu, GTK+
;;; Version 3.24.4) of 2019-02-03, modified by Debian"
;;; (shell-command-to-string "uname -a")"Linux barberou
;;; 5.1.0-rc4-biscuit-de-barberou+ #101 SMP Wed Apr 10 13:19:53 CEST
;;; 2019 x86_64 GNU/Linux"
;;; __ _ _
;;; / _| ___ __ _| |_ _ _ _ __(_)_ __ __ _
;;; | |_ / _ \/ _` | __| | | | '__| | '_ \ / _` |
;;; | _| __/ (_| | |_| |_| | | | | | | | (_| |
;;; |_| \___|\__,_|\__|\__,_|_| |_|_| |_|\__, |
;;; |___
(setq package-quickstart t)
(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))
(mapc 'require '(blom-bbdb blom-cred blom-erc blom-eshell
blom-gnus blom-org mingus cl crontab-mode
orgalist scratch-persist mastodon))
;;; __ __
;;; \ \ / /_ _ _ __ ___ _ __ ___ __ _ _ __
;;; \ \ / / _` | '__/ __| | '_ ` _ \ / _` | '_ \
;;; \ V / (_| | | \__ \ | | | | | | (_| | | | |
;;; \_/ \__,_|_| |___/ |_| |_| |_|\__,_|_| |_|
;;;
;;; manuell gesetzte Variable
(setq make-backup-files nil) ; stop creating backup~ files
(setq auto-save-default nil) ; stop creating #autosave# files
(setq
delete-old-versions t
auto-insert-directory "~/.emacs.d/Vorlagen"
blink-matching-paren 'jump
;;; browse-url-browser-function 'browse-url-generic
create-lockfiles nil
dired-auto-revert-buffer t
display-time-day-and-date nil
display-time-24hr-format t
display-time-use-mail-icon 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
ivy-use-virtual-buffers t
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 t
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 140
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 s)] 'swiper)
(global-set-key [(control x) (control c)] 'delete-frame)
(global-set-key [(control x) (control f)] 'counsel-find-file)
(global-set-key [(meta tab)] 'hippie-expand)
(global-set-key [(super x)] 'hippie-expand)
(global-set-key [(shift f9)] '(lambda()(shell-command "~/bin/vol-ident2-daemon start")(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] 'ivy-switch-buffer) ;; 'helm-mini 'bs-show) ;; ivy-recentf ;; ivy-switch-buffer
(global-set-key [f4] '(lambda () (interactive) (eshell 'I)))
(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)
;;; _ _
;;; __ _| (_) __ _ ___
;;; / _` | | |/ _` / __|
;;; | (_| | | | (_| \__ \
;;; \__,_|_|_|\__,_|___/
;;;
;;; 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 '(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))
(zufallsfarbschema (nth (random (length installedthemes))
installedthemes)))
(load-theme zufallsfarbschema 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 1)
(iimage-mode 1)
(ivy-mode 0)
(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)
(recentf-mode 1)
(setq recentf-max-menu-items 25)
(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/i3blocks/config"
"~/.crontab"
"~/.gmrunrc"
))
;;; _____ _ _
;;; |_ _|__ ___| |_(_)_ __ __ _
;;; | |/ _ \/ __| __| | '_ \ / _` |
;;; | | __/\__ \ |_| | | | | (_| |
;;; |_|\___||___/\__|_|_| |_|\__, |
;;; |___/
(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")
'(mail-source-movemail-program "movemail.mailutils")
'(notmuch-saved-searches
(quote
((: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))))
'(org-agenda-files
(quote
("~/texte/biographisches/tagebuch/2019.org" "~/texte/biographisches/tagebuch/wiederholt.org" "~/.emacs.d/Cal-ics/ferien_baden-wuerttemberg_2019.org" "~/.emacs.d/Cal-ics/gesetzliche_feiertage_deutschland_2019.org")))
'(package-selected-packages
(quote
(smartparens all-the-icons all-the-icons-dired all-the-icons-gnus all-the-icons-ivy calfw calfw-ical calfw-org xclip pcache mastodon nov multi-eshell disable-mouse ivy-hydra erc-nick-notify wiki-summary ivy-rich eshell-fringe-status display-theme hl-anything erc-hl-nicks scratch-persist forest-blue-theme font-utils helm-tramp helm-unicode helm-z podcaster starter-kit-eshell esh-autosuggest eshell-autojump eshell-did-you-mean eshell-manual eshell-up eshell-z 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 tangotango-theme systemd suscolors-theme 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 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 (quote 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 server
:ensure nil
:hook (after-init . server-mode))
(use-package smartparens
:hook
(after-init . smartparens-global-mode)
:config
(require 'smartparens-config)
(sp-pair "=" "=" :actions '(wrap))
(sp-pair "+" "+" :actions '(wrap))
(sp-pair "<" ">" :actions '(wrap))
(sp-pair "$" "$" :actions '(wrap)))
(use-package xclip
:if (eq system-type 'gnu/linux)
:config
(xclip-mode 1))
(org-agenda-list)
Poetischer Nihilismus
Mail:
blog@Philosophischer-Nacht-
und-Sonntagsdienst.de
Genutzte Suchmaschine:
duckduckgo.com
Technik:
Orgmode
Emacs Wiki
GNU/Debian Linux
Lokal:
Sitemap
lokale .emacs
Impressum/DSGVO
Mail:blog@Philosophischer-Nacht-
und-Sonntagsdienst.de
Genutzte Suchmaschine:
duckduckgo.com
Technik:
Orgmode
Emacs Wiki
GNU/Debian Linux
Lokal:
Sitemap
lokale .emacs
Impressum/DSGVO