;;; voli@gmx.de's
;;; ___ _ __ ___ __ _ ___ ___
;;; / _ \ '_ ` _ \ / _` |/ __/ __|
;;; | __/ | | | | | (_| | (__\__ \
;;; (_)___|_| |_| |_|\__,_|\___|___/
;;; Time-stamp: <2024-10-03 18:24:27 voli>
;;; (version)"GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X
;;; toolkit, cairo version 1.18.0, Xaw scroll bars) of 2023-10-06"
;;; (shell-command-to-string "uname -a")"Linux marescot 6.6.0-rc4-vol+
;;; #778 SMP Fri Oct 6 22:54:26 CEST 2023 x86_64 GNU/Linux"
(message "Hier beginnt gnu-emacs")
;;; __ _ _
;;; / _| ___ __ _| |_ _ _ _ __(_)_ __ __ _
;;; | |_ / _ \/ _` | __| | | | '__| | '_ \ / _` |
;;; | _| __/ (_| | |_| |_| | | | | | | | (_| |
;;; |_| \___|\__,_|\__|\__,_|_| |_|_| |_|\__, |
;;; |___
(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-cred blom-bbdb blom-erc blom-eshell
blom-gnus blom-org
org-alert persistent-scratch package
))
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
;;(load (expand-file-name "~/quicklisp/slime-helper.el"))
;; Replace "sbcl" with the path to your implementation
;;(setq inferior-lisp-program "/usr/bin/sbcl")
(setq history-delete-duplicates t)
;;; __ __
;;; \ \ / /_ _ _ __ ___ _ __ ___ __ _ _ __
;;; \ \ / / _` | '__/ __| | '_ ` _ \ / _` | '_ \
;;; \ V / (_| | | \__ \ | | | | | | (_| | | | |
;;; \_/ \__,_|_| |___/ |_| |_| |_|\__,_|_| |_|
;;; manuell gesetzte Variable
(setopt use-short-answers t)
(setq
make-backup-files nil
;;; auto-save-default nil
;;; delete-old-versions t
auto-insert-directory "~/.emacs.d/Vorlagen"
blink-matching-paren 'jump-offscreen
;;; completion-styles '(flex)
;;; dired-auto-revert-buffer t
dired-dwim-target 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 t
;;; scroll-error-top-bottom t
scroll-conservatively 1000
switch-to-buffer-preserve-window-point t
system-name "Philosophischer-Nacht-und-Sonntagsdienst.de"
use-dialog-box nil
visible-bell t
)
(setq garbage-collection-messages t ;; tell me when garbage collecting
gc-cons-threshold (* 8 1024 1024 1024)) ;; 16GiB of RAM
(add-hook 'before-save-hook #'whitespace-cleanup)
(setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
;;; ("org" . "http://orgmode.org/elpa/")
("gnu" . "http://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")))
;;; _____ _
;;; |_ _|_ _ ___| |_ ___ _ __
;;; | |/ _` / __| __/ _ \ '_ \
;;; | | (_| \__ \ || __/ | | |
;;; |_|\__,_|___/\__\___|_| |_|
;;; Tastaturbelegung
;;; Barrierefreiheit für mich
;;; Standard-Größe setzen, die alles andere überschreibt. Sie ist groß.
(setq schriftgroesse 230)
(set-face-attribute 'default nil :height schriftgroesse)
(setq scale-intervall 20) ;;; Schrittgröße beim Vergrößern und Verkleinern
(defun font-scale-up ()
(interactive)
(setq schriftgroesse (+ schriftgroesse scale-intervall))
(set-face-attribute 'default nil :height schriftgroesse))
(defun font-scale-down ()
(interactive)
(setq schriftgroesse (- schriftgroesse scale-intervall))
(set-face-attribute 'default nil :height schriftgroesse))
(global-set-key [(control +)] #'font-scale-up)
(global-set-key [(control -)] #'font-scale-down)
(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 h)] #'helpful-at-point)
;;; (global-set-key [(control x) (control c)] #'delete-frame)
;;;(global-set-key [(control x) (control f)] #'ido-find-file) ;;; ido-find-file
;;; (global-set-key [(control x) (control r)] #'recentf-open-files)
(global-set-key [(meta tab)] #'hippie-expand)
;;; (global-set-key [(super x)] #'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] #'ido-switch-buffer ) ;;; #'bs-show) ;;; #'ibuffer) ;;;
(global-set-key [f4] #'(lambda () (interactive) (eshell "new")))
(global-set-key [f5] #'(lambda()(interactive)(insert system-name)))
(global-set-key [f6] #'other-window)
(global-set-key [f7] #'yeetube-search) ;;; #'mingus)
(global-set-key [f8] #'org-capture)
;;;(use-package counsel
;;; :ensure t
;;; :bind (:map
;;; global-map
;;; ("M-x" . counsel-M-x)))
;;; _ _
;;; __ _| (_) __ _ ___
;;; / _` | | |/ _` / __|
;;; | (_| | | | (_| \__ \
;;; \__,_|_|_|\__,_|___/
;;;
;;; Aliase
(defalias 'yes-or-no-p 'y-or-n-p)
;;; _ _
;;; / \ _ _ ___ ___ ___| |__ ___ _ __
;;; / _ \| | | / __/ __|/ _ \ '_ \ / _ \ '_ \
;;; / ___ \ |_| \__ \__ \ __/ | | | __/ | | |
;;; /_/ \_\__,_|___/___/\___|_| |_|\___|_| |_|
;;;
;;; (set-frame-height (selected-frame) 40)
;;; Zufallsthema aus heruntergeladenen Elpa-Themen wählen:
;;; (if window-system
(let* ((ithemes
'(
arc-dark chocolate spacegray
dark-krystal abyss atom-dark darkmine
ancient-one-dark
chocolate afternoon arjen-grey spacegray
arc-dark ample ample-flat apropospriate-dark
darktooth darkburn alect-black-alt alect-dark-alt
alect-dark alect-black forest-blue
solarized-selenized-dark solarized-gruvbox-dark solarized-dark
solarized-dark-high-contrast
solarized-wombat-dark solarized-selenized-black
solarized-zenburn grandshell chocolate afternoon
birds-of-paradise-plus
arjen-grey hamburg naga noctilux
dark-mint spacegray northcode gotham arc-dark ample ample-flat
gruber-darker apropospriate-dark darcula
fantom darktooth exotica darkburn atom-one-dark dakrone mood-one
humanoid-dark distinguished alect-black-alt alect-dark-alt
alect-dark alect-black flatui-dark
))
(zufallsfarbschema (nth (random (length ithemes))
ithemes)))
(load-theme zufallsfarbschema t)
(add-to-list 'mode-line-misc-info (list (concat "[Theme: " (symbol-name zufallsfarbschema) "] "))))
;;; __ __ _
;;; | \/ |_ _| | ___
;;; | |\/| | | | | |/ _ \
;;; | | | | |_| | | __/
;;; |_| |_|\__,_|_|\___|
;;; 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)
(setq
x-select-enable-clipboard t
x-select-enable-primary t)
;;; __ __ _ _
;;; | \/ | ___ __| (_)
;;; | |\/| |/ _ \ / _` | |
;;; | | | | (_) | (_| | |
;;; |_| |_|\___/ \__,_|_|
;;; Modi
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(ido-mode 1)
;;;(auto-compression-mode 1)
;;; (auto-encryption-mode 1)
(auto-fill-mode 1)
(auto-image-file-mode 1)
(auto-insert-mode t)
(blink-cursor-mode 1)
;;; (display-time-mode 1)
;;; (helm-mode 1)
(electric-pair-mode 1)
(global-auto-revert-mode 1)
(global-font-lock-mode 1)
(icomplete-mode 1)
(iimage-mode 1)
(line-number-mode 1)
(menu-bar-mode 0)
(persistent-scratch-setup-default)
(recentf-mode 1)
(savehist-mode 1)
;;; (semantic-mode 1)
(show-paren-mode 1)
(tool-bar-mode 0)
(tooltip-mode 1)
(transient-mark-mode 1)
(visual-line-mode 1)
;;;;(which-key-mode 1)
;;;(electric-layout-mode 1)
;;;(file-name-shadow-mode 1)
(set-default 'indicate-empty-lines t)
(if window-system
(setq browse-url-browser-function (quote browse-url-generic)
browse-url-generic-program "~/bin/vol-web")
;;; (setq browse-url-browser-function (quote eww-browse-url)))
(setq browse-url-browser-function (quote eww-browse-url)))
;;; _ _ _
;;; | | | | ___ ___ | | _____
;;; | |_| |/ _ \ / _ \| |/ / __|
;;; | _ | (_) | (_) | <\__ \
;;; |_| |_|\___/ \___/|_|\_\___/
;;;
;;; 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)
(show-paren-mode 1)
(turn-on-eldoc-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"
"~/.procmailrc"
;;; "~/.emacs.d/diabetes-zeugs/diabetes-daten.el"
;;; "~/.config/i3/config"
;;; "~/.config/i3blocks/config"
;;; "~/.config/i3status/config"
;;; "~/.config/fish/config.fish"
;;; "~/.zshrc.local"
))
;;; _____ _ _
;;; |_ _|__ ___| |_(_)_ __ __ _
;;; | |/ _ \/ __| __| | '_ \ / _` |
;;; | | __/\__ \ |_| | | | | (_| |
;;; |_|\___||___/\__|_|_| |_|\__, |
;;; |___/
;; systemd mode
;;; (use-package systemd)
;;; (setq initial-major-mode 'org-mode)
;;; (setq initial-buffer-choice 'org-agenda-list)
;;; ___ _ __ ___ __ _ ___ ___ ___ ___ _ ____ _____ _ __
;;; / _ \ '_ ` _ \ / _` |/ __/ __|_____/ __|/ _ \ '__\ \ / / _ \ '__|
;;; | __/ | | | | | (_| | (__\__ \_____\__ \ __/ | \ 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)
;;; __ __ _
;;; \ \ / /_ _ _ __ ___ ___ _ _ ___| |_
;;; \ \ / / _` | '__/ __| / __| | | / __| __|
;;; \ 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.
'(initial-frame-alist '((fullscreen . maximized)))
'(package-selected-packages
'(0x0 abyss-theme afternoon-theme alect-themes all-the-icons
all-the-icons-completion all-the-icons-dired
all-the-icons-gnus all-the-icons-nerd-fonts ampc ample-theme
ancient-one-dark-theme apropospriate-theme arc-dark-theme
arjen-grey-theme atom-dark-theme atom-one-dark-theme
bash-completion bbdb birds-of-paradise-plus-theme bongo
calmer-forest-theme chatgpt-shell chocolate-theme
claude-shell consult-org-roam corfu crontab-mode
dakrone-theme darcula-theme dark-krystal-theme
dark-mint-theme dark-souls darkburn-theme darkmine-theme
darkokai-theme darktooth-theme dashboard-hackernews debian-el
debpaste desktop-environment diredc dirvish
distinguished-theme doom-modeline eglot-luau emacs-everywhere
emms emms-info-mediainfo emms-mode-line-cycle emms-state empv
esh-help eshell-autojump
eshell-command-not-found eshell-did-you-mean eshell-up
exotica-theme fantom-theme file-info flatui-dark-theme
forest-blue-theme gotham-theme grandshell-theme
gruber-darker-theme hamburg-theme helpful humanoid-themes
iceberg-theme klere-theme kooten-theme liso-theme lush-theme
lyrics-fetcher madhat2r-theme mastodon mode-icons
mood-one-theme naga-theme nerd-icons nimbus-theme
noctilux-theme northcode-theme org-alert org-habit-stats
org-modern org-notifications org-notify org-octopress osm
ox-rss package persistent-scratch selectric-mode sideline
spacegray-theme systemd teletext track-changes use-package
vertico vuiet websearch which-key with-editor yeetube))
'(smtpmail-smtp-server "Philosophischer-Nacht-und-Sonntagsdienst.de")
'(smtpmail-smtp-service 25)
'(yeetube-download-directory "/home/voli/Downloads/")
'(yeetube-results-limit 30))
(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.
)
(message "Hier endet gnu-emacs")
Created: 2024-12-09 Mo 22:45
Validate