54 lines
1.4 KiB
EmacsLisp
54 lines
1.4 KiB
EmacsLisp
(require 'subr-x)
|
|
(require 'doom-themes)
|
|
|
|
(load-theme 'doom-badger t)
|
|
|
|
(setq inhibit-startup-screen t)
|
|
(setq initial-scratch-message nil)
|
|
|
|
(menu-bar-mode -1)
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
|
|
(electric-pair-mode 1)
|
|
|
|
;; Maus im Terminal
|
|
(unless (display-graphic-p)
|
|
(xterm-mouse-mode 1))
|
|
|
|
;; Clipboard
|
|
(setq select-enable-clipboard t)
|
|
(setq select-enable-primary t)
|
|
|
|
;; Wayland-Terminal Clipboard via wl-copy / wl-paste
|
|
(unless (display-graphic-p)
|
|
(setq interprogram-cut-function
|
|
(lambda (text &optional _push)
|
|
(let ((process-connection-type nil))
|
|
(let ((proc (start-process "wl-copy" nil "wl-copy")))
|
|
(process-send-string proc text)
|
|
(process-send-eof proc)))))
|
|
|
|
(setq interprogram-paste-function
|
|
(lambda ()
|
|
(string-trim-right
|
|
(shell-command-to-string "wl-paste -n 2>/dev/null")))))
|
|
|
|
;; Hintergrund etwas neutraler
|
|
(set-face-background 'default "#1e1e1e")
|
|
(set-face-background 'fringe "#1e1e1e")
|
|
(set-face-background 'region "#3a3a3a")
|
|
|
|
;; Schreiblayout für Textmodi
|
|
(defun my/text-indentation-setup ()
|
|
"Angenehme Einrückung und Umbrüche für Text."
|
|
(setq-local left-margin-width 2)
|
|
(setq-local right-margin-width 0)
|
|
(visual-line-mode 1)
|
|
(setq-local word-wrap t)
|
|
(set-window-buffer nil (current-buffer)))
|
|
|
|
(add-hook 'text-mode-hook #'my/text-indentation-setup)
|
|
|
|
(provide 'init-ui)
|