Philosophischer Nacht- und Sonntagsdienst

Wir Peripatetiker:

Mail:
blog@Philosophischer-Nacht-
und-Sonntagsdienst.de
Lokal:
Gedichte (pdf)
Sitemap
.emacs

Impressum/DSGVO

;;; voli@gmx.de's
;;;    ___ _ __ ___   __ _  ___ ___
;;;   / _ \ '_ ` _ \ / _` |/ __/ __|
;;;  |  __/ | | | | | (_| | (__\__ \
;;; (_)___|_| |_| |_|\__,_|\___|___/
;;; Time-stamp: <2024-03-06 15:45:09 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 helpful
                           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")

;;; __     __
;;; \ \   / /_ _ _ __ ___   _ __ ___   __ _ _ __
;;;  \ \ / / _` | '__/ __| | '_ ` _ \ / _` | '_ \
;;;   \ 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
 switch-to-buffer-preserve-window-point t
 system-name "Philosophischer-Nacht-und-Sonntagsdienst.de"
 use-dialog-box nil
 visible-bell t
 )

(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
            '(
              ample
              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) "] ")))
      (message (concat "Zufalls-Theme ist: " (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)

;; 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

(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-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
         consult-org-roam 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 desktop-environment dirvish
         distinguished-theme doom-modeline emms emms-info-mediainfo
         emms-mode-line-cycle emms-state empv esh-autosuggest esh-help
         eshell-autojump 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 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 osm ox-rss package
         persistent-scratch selectric-mode spacegray-theme systemd
         teletext use-package vuiet websearch which-key with-editor
         yeetube))
 '(smtpmail-smtp-server "Philosophischer-Nacht-und-Sonntagsdienst.de")
 '(smtpmail-smtp-service 25)
 '(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-03-16 Sa 22:54

Validate