mirror of
https://codeberg.org/scip/emacs-skel.git
synced 2026-02-04 08:10:56 +01:00
moved to codeberg
This commit is contained in:
@@ -1,3 +1,6 @@
|
||||
> [!CAUTION]
|
||||
> This software is now being maintained on [Codeberg](https://codeberg.org/scip/emacs-skel/).
|
||||
|
||||
# emacs-skel
|
||||
|
||||
Default emacs config for new users.
|
||||
|
||||
320
dot-emacs-de
320
dot-emacs-de
@@ -1,320 +0,0 @@
|
||||
;; * Standard emacs Konfigurationsdatei -*-emacs-lisp-*-
|
||||
;;
|
||||
;; https://codeberg.org/scip/emacs-skel
|
||||
|
||||
;; * Im GUI-mode Fontlock-mode (Farben) einschalten
|
||||
;; siehe: https://www.emacswiki.org/emacs/CustomizingBoth
|
||||
(if window-system
|
||||
(progn
|
||||
(global-font-lock-mode 1)
|
||||
(set-background-color "white")
|
||||
(set-foreground-color "DarkBlue")
|
||||
))
|
||||
|
||||
;; * cursor als Zeile im Terminal anzeigen, sonst nicht
|
||||
(unless (display-graphic-p)
|
||||
;; else (optional)
|
||||
(global-hl-line-mode)
|
||||
(set-face-background hl-line-face "DarkGray")
|
||||
(set-face-foreground hl-line-face "Black")
|
||||
)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Console Backspace Korrektur
|
||||
(define-key key-translation-map [?\C-h] [?\C-?])
|
||||
|
||||
;; * Ein paar sinnvolle Defaults
|
||||
(setq make-backup-files nil) ;; keine ~ backups
|
||||
|
||||
;; Toolbar abschalten
|
||||
(tool-bar-mode -1)
|
||||
|
||||
;; Menübar abschalten (standard: ein)
|
||||
;; (menu-bar-mode -1)
|
||||
|
||||
;; Dialogboxen abschalten (standard: ein)
|
||||
;; (setq use-dialog-box nil)
|
||||
|
||||
;; Scrolleisten abschalten (standard: ein)
|
||||
;; (scroll-bar-mode 0)
|
||||
|
||||
;; Weniger Ausgaben beim Starten
|
||||
(setq inhibit-startup-message t)
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
;; Spaltennummer anzeigen
|
||||
(column-number-mode t)
|
||||
|
||||
;; x11 Fenstertitel
|
||||
(setq frame-title-format '(buffer-file-name "emacs %f" ("emacs %b")))
|
||||
|
||||
;; gültige Unixdateien erzeugen
|
||||
(setq require-final-newline t)
|
||||
|
||||
;; matchende Klammern anzeigen
|
||||
(show-paren-mode 1)
|
||||
|
||||
;; Cursor bleibt beim Scrollen stehen
|
||||
(setq scroll-preserve-screen-position t)
|
||||
|
||||
;; keine Kommentar Ränder
|
||||
(setq-default comment-column 0)
|
||||
|
||||
;; kein auto-save
|
||||
(setq auto-save-default nil)
|
||||
|
||||
;; immer alle buffer anzeigen
|
||||
(setq buffers-menu-max-size nil)
|
||||
(setq mouse-buffer-menu-mode-mult 30)
|
||||
|
||||
;; alle Befehle verwendbar
|
||||
(setq disabled-command-function nil)
|
||||
|
||||
;; Markieren == Kopieren
|
||||
(setq mouse-drag-copy-region t)
|
||||
|
||||
;; mehr Ram
|
||||
(setq gc-cons-threshold 20000000)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Scratch Buffer
|
||||
|
||||
;; default Inhalt des *scratch* buffers == Kurzhilfe
|
||||
|
||||
(setq initial-scratch-message ";;
|
||||
;; Kurzhilfe (Tasten: C == Control, M == Alt):
|
||||
|
||||
;; Kombination (z.b. C-x C-f): Control gedrückt halten, dann x dann f
|
||||
;; Kaskade (z.b. C-x 3): Control und x drücken, loslassen, dann 2
|
||||
;; Taste mit Maus (z.b. C-mouse1): Control drücken und linke Maustaste
|
||||
|
||||
;; M-x <cmd> Emacs lisp Befehl ausführen | M-w Markiertes Kopieren
|
||||
;; C-x C-f Datei öffnen | C-w Markiertes Löschen
|
||||
;; C-x C-S Datei speichern | C-y Einfügen (Paste)
|
||||
;; C-x C-q Buffer mit Datei schliessen | C-g Abbrechen
|
||||
;; C-mouse-1 Popup Bufferliste | C-s Vorwärts Suchen
|
||||
;; C-x 2 Fenster quer teilen | nochmal: next match
|
||||
;; C-x 3 Fenster hochkant teilen | C-r Rückwärts Suchen
|
||||
;; M-o zwischen Buffern wechseln | C-x C-c Emacs Beenden
|
||||
;; C-x 1 nur noch 1 Buffer im Fenster | C-x b Buffer wechseln
|
||||
;; C-x k aktuellen Buffer schliessen | C-c i Farben Invertieren
|
||||
|
||||
;; C-<del> Wort links löschen | C-<entf> Wort rechts löschen
|
||||
;; C-<up> Paragraph hoch springen | C-<down> Paragraph runter springen
|
||||
;; C-<left> Wort links springen | C-<right> Wort rechts springen
|
||||
;; C-_ UNDO | C-g C-_ REDO
|
||||
;; <pos1> oder C-a Anfang Zeile, Anfang Window, Anfang Buffer
|
||||
;; <end> oder C-e Ende Zeile, Ende Window, Ende Buffer
|
||||
|
||||
;; M-x query-replace Suchen/Ersetzen
|
||||
;; M-x query-replace-regex dito, mit regex (man perlre)
|
||||
;; M-x <xxx-mode> (xxx: cperl, ruby etc) Mode einschalten
|
||||
|
||||
;; Konfiguration: ~/.emacs, Tutorial: C-h t, https://emacswiki.org/
|
||||
|
||||
;; Dies ist der *scratch* Buffer für kurze Notizen oder elisp Tests.
|
||||
|
||||
")
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * y für yes
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * TAB/Indent
|
||||
(setq-default indent-tabs-mode nil)
|
||||
(setq-default tab-width 4)
|
||||
(setq indent-line-function 'insert-tab)
|
||||
(setq tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44
|
||||
48 52 56 60 64 68 72 76 80 84
|
||||
88 92 96 100 104 108 112 116 120)))
|
||||
(setq tab-always-indent 'complete)
|
||||
(add-hook 'makefile-mode-hook '(lambda() (setq indent-tabs-mode t)))
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Hilfsfunktion
|
||||
(defun add-something-to-mode-hooks (mode-list something)
|
||||
"helper function to add a callback to multiple hooks"
|
||||
(dolist (mode mode-list)
|
||||
(add-hook (intern (concat (symbol-name mode) "-mode-hook")) something)))
|
||||
|
||||
;; * Standard Tastaturbelegungen
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; c-h != delete
|
||||
(keyboard-translate ?\C-h ?\C-?)
|
||||
(keyboard-translate ?\C-? ?\C-h)
|
||||
|
||||
;; general keys (re-)mappings
|
||||
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
|
||||
(global-set-key (kbd "C-r") 'isearch-backward-regexp)
|
||||
(global-set-key (kbd "<backtab>") 'dabbrev-completion) ; shift-TAB: inline completion
|
||||
(global-set-key (kbd "M-o") 'other-window) ; Buffer wechseln
|
||||
(global-set-key (kbd "<delete>") 'delete-char)
|
||||
(global-set-key (kbd "<backspace>") 'backward-delete-char)
|
||||
(global-set-key (kbd "S-<delete>") 'kill-word) ; Shift+Entf Wort loeschen
|
||||
(global-set-key (kbd "S-<backspace>") 'backward-kill-word) ; Shift+Backspace dito
|
||||
(global-set-key (kbd "C-<delete>") 'kill-word) ; Shift+Entf dito
|
||||
(global-set-key (kbd "C-<backspace>") 'backward-kill-word) ; Shift+Backspace dito
|
||||
(global-unset-key (kbd "C-z"))
|
||||
(global-set-key (kbd "C-x k") 'kill-this-buffer) ; Buffer gleich zumachen
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Vor- und Hintergrund invertieren
|
||||
|
||||
;; remember last inverse
|
||||
(defvar my-invert-state t)
|
||||
|
||||
;; invert everything, reverse it when called again
|
||||
(defun my-invert()
|
||||
"invert fg-bg"
|
||||
(interactive)
|
||||
(invert-face 'default)
|
||||
(invert-face 'mode-line)
|
||||
(set-face-attribute 'fringe nil :inverse-video my-invert-state)
|
||||
(setq my-invert-state (not my-invert-state)) ;; cycle variable my-invert-state
|
||||
)
|
||||
|
||||
(global-set-key (kbd "C-c i") 'my-invert)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Belegung für POS1 und ENDE Tasten (bzw CTRL-a und CTRL-e)
|
||||
|
||||
;; frm viking-mode:
|
||||
(defun my-last-key-repeats ()
|
||||
"Returns how many times the last key has been pressed as integer."
|
||||
(interactive)
|
||||
(let* ((keys (reverse (append (recent-keys) nil)))
|
||||
(pressed (car keys))
|
||||
(times 0))
|
||||
(progn
|
||||
(catch 'nomore
|
||||
(dolist (k keys)
|
||||
(if (equal pressed k)
|
||||
(setq times (+ times 1))
|
||||
(throw 'nomore t))))
|
||||
times)))
|
||||
|
||||
(defun pc-keys-home ()
|
||||
"Go to beginning of line/window/buffer. First hitting key goes
|
||||
to beginning of line, second in a row goes to beginning of
|
||||
window, third in a row goes to beginning of buffer."
|
||||
(interactive)
|
||||
(let* (
|
||||
(key-times (my-last-key-repeats)))
|
||||
(cond
|
||||
((eq key-times 3)
|
||||
(if mark-active
|
||||
(goto-char (point-min))
|
||||
(beginning-of-buffer)))
|
||||
|
||||
((eq key-times 2)
|
||||
(if mark-active () (push-mark))
|
||||
(move-to-window-line 0))
|
||||
|
||||
((eq key-times 1)
|
||||
(beginning-of-line))
|
||||
)))
|
||||
|
||||
(defun pc-keys-end ()
|
||||
"Go to end of line/window/buffer. First hitting key goes
|
||||
to end of line, second in a row goes to end of
|
||||
window, third in a row goes to end of buffer."
|
||||
(interactive)
|
||||
(let* (
|
||||
(key-times (my-last-key-repeats)))
|
||||
(cond
|
||||
((eq key-times 3)
|
||||
(if mark-active
|
||||
(goto-char (point-max))
|
||||
(end-of-buffer)))
|
||||
|
||||
((eq key-times 2)
|
||||
(if mark-active () (push-mark))
|
||||
(move-to-window-line -1)
|
||||
(end-of-line)
|
||||
)
|
||||
|
||||
((eq key-times 1)
|
||||
(end-of-line))
|
||||
)))
|
||||
|
||||
(global-set-key (kbd "<home>") 'pc-keys-home)
|
||||
(global-set-key (kbd "<end>") 'pc-keys-end)
|
||||
(global-set-key (kbd "C-a") 'pc-keys-home)
|
||||
(global-set-key (kbd "C-e") 'pc-keys-end)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * IDO mode - bessere Completion beim Datei öffnen usw.
|
||||
|
||||
;; Um im IDO Mode zum normalen Mode zu gelangen, erneut CTRL-f drücken
|
||||
(ido-mode t)
|
||||
(ido-everywhere nil)
|
||||
(setq ido-enable-flex-matching t)
|
||||
(setq ido-use-filename-at-point nil)
|
||||
(setq ido-use-virtual-buffers t)
|
||||
(setq ido-auto-merge-work-directories-length -1)
|
||||
|
||||
;; IDO nicht bei C-x C-w benutzen (save as ...)
|
||||
(defvar my-ido-disabled nil)
|
||||
(advice-add 'ido-write-file :before '(lambda (&rest args) (ido-mode 0) (setq my-ido-disabled t)))
|
||||
(advice-add 'ido-write-file :after '(lambda (&rest args) (ido-mode 1) (setq my-ido-disabled nil)))
|
||||
|
||||
(defun my-keyboard-quit-advice (fn &rest args)
|
||||
(when my-ido-disabled
|
||||
(ido-mode 1)
|
||||
(setq my-ido-disabled nil))
|
||||
(apply fn args))
|
||||
|
||||
(advice-add 'abort-recursive-edit :around #'my-keyboard-quit-advice)
|
||||
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * TABs hervorheben
|
||||
|
||||
(defface extra-whitespace-face
|
||||
'((t (:background "pale green")))
|
||||
"Used for tabs and such.")
|
||||
|
||||
(defvar my-extra-keywords
|
||||
'(("\t" . 'extra-whitespace-face)))
|
||||
|
||||
(add-something-to-mode-hooks '(c c++ vala cperl emacs-lisp python shell-script)
|
||||
(lambda () (font-lock-add-keywords nil my-extra-keywords)))
|
||||
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Emacs Autoconfig / Customizegroup Speicherplatz
|
||||
|
||||
;; Hier schreibt Emacs rein, wenn man irgendwas über
|
||||
;; M-x customize-group <RET> <group> <RET>
|
||||
;; interaktiv anpasst.
|
||||
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
'(default ((t (:family "DejaVu Sans Mono" :foundry "unknown" :slant normal :weight normal :width normal))))
|
||||
'(cperl-nonoverridable-face ((((class color) (background light)) (:foreground "Magenta"))))
|
||||
'(custom-documentation-face ((t (:foreground "Navy"))) t)
|
||||
'(custom-group-tag-face-1 ((((class color) (background light)) (:underline t :foreground "VioletRed"))) t)
|
||||
'(font-lock-builtin-face ((t (:foreground "BlueViolet"))))
|
||||
'(font-lock-comment-face ((t (:foreground "DarkGreen"))))
|
||||
'(font-lock-constant-face ((t (:foreground "Magenta"))))
|
||||
'(font-lock-function-name-face ((t (:bold nil :foreground "DarkOrchid"))))
|
||||
'(font-lock-keyword-face ((t (:foreground "Blue"))))
|
||||
'(font-lock-string-face ((t (:foreground "Red"))))
|
||||
'(font-lock-type-face ((t (:foreground "DarkSlateBlue"))))
|
||||
'(font-lock-variable-name-face ((t (:foreground "Sienna"))))
|
||||
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
|
||||
'(highlight ((t (:background "DodgerBlue2" :foreground "White"))))
|
||||
'(ido-only-match ((t (:foreground "dark green" :weight bold))))
|
||||
'(mode-line ((t (:foreground "White" :background "Blue"))))
|
||||
'(mode-line-inactive ((t (:foreground "White" :background "DimGray"))))
|
||||
'(outline-1 ((t (:inherit font-lock-function-name-face :underline t :weight bold))))
|
||||
'(outline-2 ((t (:inherit font-lock-variable-name-face :underline t :weight bold))))
|
||||
'(outline-3 ((t (:inherit font-lock-keyword-face :underline t :weight bold))))
|
||||
'(outline-4 ((t (:inherit font-lock-comment-face :underline t))))
|
||||
'(region ((t (:foreground "Aquamarine" :background "Darkblue"))))
|
||||
'(secondary-selection ((t (:foreground "Green" :background "darkslateblue")))))
|
||||
|
||||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
)
|
||||
324
dot-emacs-en
324
dot-emacs-en
@@ -1,324 +0,0 @@
|
||||
;; * Default emacs config -*-emacs-lisp-*-
|
||||
;;
|
||||
;; https://codeberg.org/scip/emacs-skel
|
||||
|
||||
;; * Enable Fontlock-mode (colours) in gui mode
|
||||
;; see: https://www.emacswiki.org/emacs/CustomizingBoth
|
||||
(if window-system
|
||||
(progn
|
||||
(global-font-lock-mode 1)
|
||||
(set-background-color "white")
|
||||
(set-foreground-color "DarkBlue")
|
||||
))
|
||||
|
||||
;; * Display cursor as row in Terminal
|
||||
(unless (display-graphic-p)
|
||||
;; else (optional)
|
||||
(global-hl-line-mode)
|
||||
(set-face-background hl-line-face "DarkGray")
|
||||
(set-face-foreground hl-line-face "Black")
|
||||
)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Console backspace fix
|
||||
(define-key key-translation-map [?\C-h] [?\C-?])
|
||||
|
||||
;; * Some sensible defaults
|
||||
|
||||
;; no ~ backups
|
||||
(setq make-backup-files nil)
|
||||
|
||||
;; disable Toolbar
|
||||
(tool-bar-mode -1)
|
||||
|
||||
;; disable menubar (default: enabled)
|
||||
;; (menu-bar-mode -1)
|
||||
|
||||
;; disable menubardialog boxes (default: enabled)
|
||||
;; (setq use-dialog-box nil)
|
||||
|
||||
;; disable scrollbars (default: enabled)
|
||||
;; Scrolleisten abschalten (standard: ein)
|
||||
;; (scroll-bar-mode 0)
|
||||
|
||||
;; Less output during startup
|
||||
(setq inhibit-startup-message t)
|
||||
(setq inhibit-startup-screen t)
|
||||
|
||||
;; show column number
|
||||
(column-number-mode t)
|
||||
|
||||
;; Set x11 window title
|
||||
(setq frame-title-format '(buffer-file-name "emacs %f" ("emacs %b")))
|
||||
|
||||
;; create valid unix files
|
||||
(setq require-final-newline t)
|
||||
|
||||
;; show matching parens
|
||||
(show-paren-mode 1)
|
||||
|
||||
;; cursor doesn't move when scrolling
|
||||
(setq scroll-preserve-screen-position t)
|
||||
|
||||
;; no comment columns
|
||||
(setq-default comment-column 0)
|
||||
|
||||
;; no auto-save
|
||||
(setq auto-save-default nil)
|
||||
|
||||
;; always display all buffers
|
||||
(setq buffers-menu-max-size nil)
|
||||
(setq mouse-buffer-menu-mode-mult 30)
|
||||
|
||||
;; don't hide anything
|
||||
(setq disabled-command-function nil)
|
||||
|
||||
;; Mark == Copy
|
||||
(setq mouse-drag-copy-region t)
|
||||
|
||||
;; more Ram
|
||||
(setq gc-cons-threshold 20000000)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Scratch Buffer
|
||||
|
||||
;; default content of *scratch* buffer == short help
|
||||
|
||||
(setq initial-scratch-message ";;
|
||||
;; Short help (Keys: C == Control, M == Alt or META):
|
||||
|
||||
;; Combination (eg. C-x C-f): keep control pressed, then x, then f
|
||||
;; Cascade (eg. C-x 3): press control and x, release, then 3
|
||||
;; Key with mouse (eg. C-mouse1): press control and left mouse button
|
||||
|
||||
;; M-x <cmd> execute emacs command | M-w copy marked stuff
|
||||
;; C-x C-f open a file | C-w delete marked stuff
|
||||
;; C-x C-S save buffer to file | C-y insert (paste, yank)
|
||||
;; C-x C-q close buffer | C-g abort current action
|
||||
;; C-mouse-1 popup buffer list | C-s search forward
|
||||
;; C-x 2 split window horizontally | again: next match
|
||||
;; C-x 3 split window vertically | C-r search backwards
|
||||
;; M-o switch bffers | C-x C-c finish emacs
|
||||
;; C-x 1 show only one buffer | C-x b switch buffer
|
||||
;; C-x k close current buffer | C-c i invert colours
|
||||
|
||||
;; C-<del> delete left word | C-<entf> delete right word
|
||||
;; C-<up> jump 1 paragraph up | C-<down> jump 1 paragraph down
|
||||
;; C-<left> jump 1 word left | C-<right> jump 1 word right
|
||||
;; C-_ UNDO | C-g C-_ REDO
|
||||
|
||||
;; <home> or C-a beginning of line, then window, then buffer
|
||||
;; <end> or C-e end of line, then window, then buffer
|
||||
|
||||
;; M-x query-replace search/replace
|
||||
;; M-x query-replace-regex dito, with regex (man perlre)
|
||||
;; M-x <xxx-mode> (xxx: cperl, ruby etc) enable mode
|
||||
|
||||
;; Configuration: ~/.emacs, Tutorial: C-h t, https://emacswiki.org/
|
||||
|
||||
;; This is the *scratch* buffer for short notices a testing elisp.
|
||||
|
||||
")
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * y means yes
|
||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * TAB/Indent
|
||||
(setq-default indent-tabs-mode nil)
|
||||
(setq-default tab-width 4)
|
||||
(setq indent-line-function 'insert-tab)
|
||||
(setq tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44
|
||||
48 52 56 60 64 68 72 76 80 84
|
||||
88 92 96 100 104 108 112 116 120)))
|
||||
(setq tab-always-indent 'complete)
|
||||
(add-hook 'makefile-mode-hook '(lambda() (setq indent-tabs-mode t)))
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Helper
|
||||
(defun add-something-to-mode-hooks (mode-list something)
|
||||
"helper function to add a callback to multiple hooks"
|
||||
(dolist (mode mode-list)
|
||||
(add-hook (intern (concat (symbol-name mode) "-mode-hook")) something)))
|
||||
|
||||
;; * Standard key bindings
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; c-h != delete
|
||||
(keyboard-translate ?\C-h ?\C-?)
|
||||
(keyboard-translate ?\C-? ?\C-h)
|
||||
|
||||
;; general keys (re-)mappings
|
||||
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
|
||||
(global-set-key (kbd "C-r") 'isearch-backward-regexp)
|
||||
(global-set-key (kbd "<backtab>") 'dabbrev-completion) ; shift-TAB: inline completion
|
||||
(global-set-key (kbd "M-o") 'other-window) ; Buffer wechseln
|
||||
(global-set-key (kbd "<delete>") 'delete-char)
|
||||
(global-set-key (kbd "<backspace>") 'backward-delete-char)
|
||||
(global-set-key (kbd "S-<delete>") 'kill-word) ; Shift+Del delete word
|
||||
(global-set-key (kbd "S-<backspace>") 'backward-kill-word) ; Shift+Backspace dito
|
||||
(global-set-key (kbd "C-<delete>") 'kill-word) ; Shift+Del dito
|
||||
(global-set-key (kbd "C-<backspace>") 'backward-kill-word) ; Shift+Backspace dito
|
||||
(global-unset-key (kbd "C-z"))
|
||||
(global-set-key (kbd "C-x k") 'kill-this-buffer) ; close buffers immediately
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Invert fore- and background
|
||||
|
||||
;; remember last inverse
|
||||
(defvar my-invert-state t)
|
||||
|
||||
;; invert everything, reverse it when called again
|
||||
(defun my-invert()
|
||||
"invert fg-bg"
|
||||
(interactive)
|
||||
(invert-face 'default)
|
||||
(invert-face 'mode-line)
|
||||
(set-face-attribute 'fringe nil :inverse-video my-invert-state)
|
||||
(setq my-invert-state (not my-invert-state)) ;; cycle variable my-invert-state
|
||||
)
|
||||
|
||||
(global-set-key (kbd "C-c i") 'my-invert)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Custom binding for HOME and END keys (and CTRL-a und CTRL-e)
|
||||
|
||||
;; from viking-mode:
|
||||
(defun my-last-key-repeats ()
|
||||
"Returns how many times the last key has been pressed as integer."
|
||||
(interactive)
|
||||
(let* ((keys (reverse (append (recent-keys) nil)))
|
||||
(pressed (car keys))
|
||||
(times 0))
|
||||
(progn
|
||||
(catch 'nomore
|
||||
(dolist (k keys)
|
||||
(if (equal pressed k)
|
||||
(setq times (+ times 1))
|
||||
(throw 'nomore t))))
|
||||
times)))
|
||||
|
||||
(defun pc-keys-home ()
|
||||
"Go to beginning of line/window/buffer. First hitting key goes
|
||||
to beginning of line, second in a row goes to beginning of
|
||||
window, third in a row goes to beginning of buffer."
|
||||
(interactive)
|
||||
(let* (
|
||||
(key-times (my-last-key-repeats)))
|
||||
(cond
|
||||
((eq key-times 3)
|
||||
(if mark-active
|
||||
(goto-char (point-min))
|
||||
(beginning-of-buffer)))
|
||||
|
||||
((eq key-times 2)
|
||||
(if mark-active () (push-mark))
|
||||
(move-to-window-line 0))
|
||||
|
||||
((eq key-times 1)
|
||||
(beginning-of-line))
|
||||
)))
|
||||
|
||||
(defun pc-keys-end ()
|
||||
"Go to end of line/window/buffer. First hitting key goes
|
||||
to end of line, second in a row goes to end of
|
||||
window, third in a row goes to end of buffer."
|
||||
(interactive)
|
||||
(let* (
|
||||
(key-times (my-last-key-repeats)))
|
||||
(cond
|
||||
((eq key-times 3)
|
||||
(if mark-active
|
||||
(goto-char (point-max))
|
||||
(end-of-buffer)))
|
||||
|
||||
((eq key-times 2)
|
||||
(if mark-active () (push-mark))
|
||||
(move-to-window-line -1)
|
||||
(end-of-line)
|
||||
)
|
||||
|
||||
((eq key-times 1)
|
||||
(end-of-line))
|
||||
)))
|
||||
|
||||
(global-set-key (kbd "<home>") 'pc-keys-home)
|
||||
(global-set-key (kbd "<end>") 'pc-keys-end)
|
||||
(global-set-key (kbd "C-a") 'pc-keys-home)
|
||||
(global-set-key (kbd "C-e") 'pc-keys-end)
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * IDO mode - better completion during file open etc
|
||||
|
||||
;; Press C-f during IDO in order to get to normal behavior
|
||||
(ido-mode t)
|
||||
(ido-everywhere nil)
|
||||
(setq ido-enable-flex-matching t)
|
||||
(setq ido-use-filename-at-point nil)
|
||||
(setq ido-use-virtual-buffers t)
|
||||
(setq ido-auto-merge-work-directories-length -1)
|
||||
|
||||
;; Do not use IDO during save-as (C-x C-w)
|
||||
(defvar my-ido-disabled nil)
|
||||
(advice-add 'ido-write-file :before '(lambda (&rest args) (ido-mode 0) (setq my-ido-disabled t)))
|
||||
(advice-add 'ido-write-file :after '(lambda (&rest args) (ido-mode 1) (setq my-ido-disabled nil)))
|
||||
|
||||
(defun my-keyboard-quit-advice (fn &rest args)
|
||||
(when my-ido-disabled
|
||||
(ido-mode 1)
|
||||
(setq my-ido-disabled nil))
|
||||
(apply fn args))
|
||||
|
||||
(advice-add 'abort-recursive-edit :around #'my-keyboard-quit-advice)
|
||||
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Highlight TABs
|
||||
|
||||
(defface extra-whitespace-face
|
||||
'((t (:background "pale green")))
|
||||
"Used for tabs and such.")
|
||||
|
||||
(defvar my-extra-keywords
|
||||
'(("\t" . 'extra-whitespace-face)))
|
||||
|
||||
(add-something-to-mode-hooks '(c c++ vala cperl emacs-lisp python shell-script)
|
||||
(lambda () (font-lock-add-keywords nil my-extra-keywords)))
|
||||
|
||||
|
||||
;; --------------------------------------------------------------------------------
|
||||
;; * Emacs Autoconfig / Customizegroup Placeholder
|
||||
|
||||
;; This is the place where emacs stores configuration options
|
||||
;; customized interactively with:
|
||||
;; M-x customize-group <RET> <group> <RET>
|
||||
|
||||
(custom-set-faces
|
||||
;; custom-set-faces was added by Custom.
|
||||
'(default ((t (:family "DejaVu Sans Mono" :foundry "unknown" :slant normal :weight normal :width normal))))
|
||||
'(cperl-nonoverridable-face ((((class color) (background light)) (:foreground "Magenta"))))
|
||||
'(custom-documentation-face ((t (:foreground "Navy"))) t)
|
||||
'(custom-group-tag-face-1 ((((class color) (background light)) (:underline t :foreground "VioletRed"))) t)
|
||||
'(font-lock-builtin-face ((t (:foreground "BlueViolet"))))
|
||||
'(font-lock-comment-face ((t (:foreground "DarkGreen"))))
|
||||
'(font-lock-constant-face ((t (:foreground "Magenta"))))
|
||||
'(font-lock-function-name-face ((t (:bold nil :foreground "DarkOrchid"))))
|
||||
'(font-lock-keyword-face ((t (:foreground "Blue"))))
|
||||
'(font-lock-string-face ((t (:foreground "Red"))))
|
||||
'(font-lock-type-face ((t (:foreground "DarkSlateBlue"))))
|
||||
'(font-lock-variable-name-face ((t (:foreground "Sienna"))))
|
||||
'(font-lock-warning-face ((t (:bold t :foreground "Red"))))
|
||||
'(highlight ((t (:background "DodgerBlue2" :foreground "White"))))
|
||||
'(ido-only-match ((t (:foreground "dark green" :weight bold))))
|
||||
'(mode-line ((t (:foreground "White" :background "Blue"))))
|
||||
'(mode-line-inactive ((t (:foreground "White" :background "DimGray"))))
|
||||
'(outline-1 ((t (:inherit font-lock-function-name-face :underline t :weight bold))))
|
||||
'(outline-2 ((t (:inherit font-lock-variable-name-face :underline t :weight bold))))
|
||||
'(outline-3 ((t (:inherit font-lock-keyword-face :underline t :weight bold))))
|
||||
'(outline-4 ((t (:inherit font-lock-comment-face :underline t))))
|
||||
'(region ((t (:foreground "Aquamarine" :background "Darkblue"))))
|
||||
'(secondary-selection ((t (:foreground "Green" :background "darkslateblue")))))
|
||||
|
||||
(custom-set-variables
|
||||
;; custom-set-variables was added by Custom.
|
||||
)
|
||||
Reference in New Issue
Block a user