From 7ea2eb8f0525506067b8591e394b07f0e18e1399 Mon Sep 17 00:00:00 2001 From: Charlie Root Date: Wed, 19 Mar 2025 20:46:04 +0100 Subject: [PATCH] something --- custom.el | 2 +- init.el | 4 +- lisp/init-corfu.el | 2 +- lisp/init-gui-frames.el~ | 10 ---- lisp/init-ibuffer.el~ | 56 ------------------- lisp/init-lisp.el | 1 - lisp/init-meow.el | 4 +- lisp/init-meow.el~ | 118 --------------------------------------- lisp/init-whitespace.el~ | 27 --------- tramp | 8 --- 10 files changed, 7 insertions(+), 225 deletions(-) delete mode 100644 lisp/init-gui-frames.el~ delete mode 100644 lisp/init-ibuffer.el~ delete mode 100644 lisp/init-meow.el~ delete mode 100644 lisp/init-whitespace.el~ delete mode 100644 tramp diff --git a/custom.el b/custom.el index 0edd870..b2680a7 100644 --- a/custom.el +++ b/custom.el @@ -3,7 +3,7 @@ ;; 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. - '(safe-local-variable-values '((lexical-bindings . t)))) + '(package-selected-packages nil)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. diff --git a/init.el b/init.el index bfb0122..fe5a7c8 100644 --- a/init.el +++ b/init.el @@ -42,7 +42,7 @@ (require-package 'diminish) ;; Packages -(require 'init-meow) +;;(require 'init-meow) (require 'init-gui-frames) (require 'init-dired) @@ -96,6 +96,6 @@ ;; Local Variables: ;; coding: utf-8 -;; no-byte-compile: t + ;; End: ;;; init.el ends here diff --git a/lisp/init-corfu.el b/lisp/init-corfu.el index 10d0fe2..f6f86f6 100644 --- a/lisp/init-corfu.el +++ b/lisp/init-corfu.el @@ -1,4 +1,4 @@ -;;; init-corfu.el --- Interactive completion in buffers -*- lexical-binding: t -*- +;;; init-corfu.el Interactive completion in buffers -*- lexical-binding: t -*- ;;; Commentary: ;;; Code: diff --git a/lisp/init-gui-frames.el~ b/lisp/init-gui-frames.el~ deleted file mode 100644 index 32ade7c..0000000 --- a/lisp/init-gui-frames.el~ +++ /dev/null @@ -1,10 +0,0 @@ -;; Suppres GUI features - -(setq use-file-dialog nil) -(setq use-dialog-box nil) -(setq inhibit-startup-screen t) - -(tool-bar-mode -1)) -(set-scroll-bar-mode nil)) -(menu-bar-mode -1) - diff --git a/lisp/init-ibuffer.el~ b/lisp/init-ibuffer.el~ deleted file mode 100644 index acc2960..0000000 --- a/lisp/init-ibuffer.el~ +++ /dev/null @@ -1,56 +0,0 @@ -;;; init-ibuffer.el --- ibuffer settings -*- lexical-binding: t -*- -;;; Commentary: - -;; TODO: enhance ibuffer-fontification-alist -;; See http://www.reddit.com/r/emacs/comments/21fjpn/fontifying_buffer_list_for_emacs_243/ - -;;; Code: - -(require-package 'ibuffer-vc) - -(defun ibuffer-set-up-preferred-filters () - (ibuffer-vc-set-filter-groups-by-vc-root) - (unless (eq ibuffer-sorting-mode 'filename/process) - (ibuffer-do-sort-by-filename/process))) - -(add-hook 'ibuffer-hook 'ibuffer-set-up-preferred-filters) - -(setq-default ibuffer-show-empty-filter-groups nil) - -(sanityinc/fullframe-mode 'ibuffer-mode) - - -(with-eval-after-load 'ibuffer - ;; Use human readable Size column instead of original one - (define-ibuffer-column size-h - (:name "Size" :inline t) - (file-size-human-readable (buffer-size)))) - - -;; Modify the default ibuffer-formats (toggle with `) -(setq ibuffer-formats - '((mark modified read-only vc-status-mini " " - (name 22 22 :left :elide) - " " - (size-h 9 -1 :right) - " " - (mode 12 12 :left :elide) - " " - vc-relative-file) - (mark modified read-only vc-status-mini " " - (name 22 22 :left :elide) - " " - (size-h 9 -1 :right) - " " - (mode 14 14 :left :elide) - " " - (vc-status 12 12 :left) - " " - vc-relative-file))) - -(setq ibuffer-filter-group-name-face 'font-lock-doc-face) - -(global-set-key (kbd "C-x C-b") 'ibuffer) - -(provide 'init-ibuffer) -;;; init-ibuffer.el ends here diff --git a/lisp/init-lisp.el b/lisp/init-lisp.el index 218bdae..73a0fa9 100644 --- a/lisp/init-lisp.el +++ b/lisp/init-lisp.el @@ -154,7 +154,6 @@ there is no current file, eval the current buffer." (list "-Q" "-batch" "-f" "batch-byte-compile" filename) " "))))) - ;; Enable desired features for all lisp modes diff --git a/lisp/init-meow.el b/lisp/init-meow.el index ec2d19f..64384ab 100644 --- a/lisp/init-meow.el +++ b/lisp/init-meow.el @@ -4,6 +4,7 @@ (defun meow-setup () (setq meow-cheatsheet-physical-layout meow-cheatsheet-physical-layout-iso) (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwertz) + (setq meow-use-clipboard t) (meow-thing-register 'angle '(pair (";") (":")) @@ -62,7 +63,8 @@ '("L" . meow-right-expand) '("/" . meow-visit) - '("-" . meow-search) + '("n" . meow-search) + '("%" . meow-block) '("w" . meow-next-word) '("W" . meow-next-symbol) diff --git a/lisp/init-meow.el~ b/lisp/init-meow.el~ deleted file mode 100644 index 1a23dd7..0000000 --- a/lisp/init-meow.el~ +++ /dev/null @@ -1,118 +0,0 @@ -(require-package 'meow) -(defun meow-setup () - (setq meow-cheatsheet-physical-layout meow-cheatsheet-physical-layout-iso) - (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwertz) - - (meow-thing-register 'angle - '(pair (";") (":")) - '(pair (";") (":"))) - - (setq meow-char-thing-table - '((?f . round) - (?d . square) - (?s . curly) - (?a . angle) - (?r . string) - (?v . paragraph) - (?c . line) - (?x . buffer))) - - (meow-leader-define-key - ;; Use SPC (0-9) for digit arguments. - '("1" . meow-digit-argument) - '("2" . meow-digit-argument) - '("3" . meow-digit-argument) - '("4" . meow-digit-argument) - '("5" . meow-digit-argument) - '("6" . meow-digit-argument) - '("7" . meow-digit-argument) - '("8" . meow-digit-argument) - '("9" . meow-digit-argument) - '("0" . meow-digit-argument) - '("-" . meow-keypad-describe-key) - '("_" . meow-cheatsheet)) - - (meow-normal-define-key - ;; expansion - '("0" . meow-expand-0) - '("1" . meow-expand-1) - '("2" . meow-expand-2) - '("3" . meow-expand-3) - '("4" . meow-expand-4) - '("5" . meow-expand-5) - '("6" . meow-expand-6) - '("7" . meow-expand-7) - '("8" . meow-expand-8) - '("9" . meow-expand-9) - '("ä" . meow-reverse) - - ;; movement - '("i" . meow-prev) - '("k" . meow-next) - '("j" . meow-left) - '("l" . meow-right) - - '("z" . meow-search) - '("-" . meow-visit) - - ;; expansion - '("I" . meow-prev-expand) - '("K" . meow-next-expand) - '("J" . meow-left-expand) - '("L" . meow-right-expand) - - '("u" . meow-back-word) - '("U" . meow-back-symbol) - '("o" . meow-next-word) - '("O" . meow-next-symbol) - - '("a" . meow-mark-word) - '("A" . meow-mark-symbol) - '("s" . meow-line) - '("S" . meow-goto-line) - '("w" . meow-block) - '("q" . meow-join) - '("g" . meow-grab) - '("G" . meow-pop-grab) - '("m" . meow-swap-grab) - '("M" . meow-sync-grab) - '("p" . meow-cancel-selection) - '("P" . meow-pop-selection) - - '("x" . meow-till) - '("y" . meow-find) - - '("," . meow-beginning-of-thing) - '("." . meow-end-of-thing) - '(";" . meow-inner-of-thing) - '(":" . meow-bounds-of-thing) - - ;; editing - '("d" . meow-kill) - '("f" . meow-change) - '("t" . meow-delete) - '("c" . meow-save) - '("v" . meow-yank) - '("V" . meow-yank-pop) - - '("e" . meow-insert) - '("E" . meow-open-above) - '("r" . meow-append) - '("R" . meow-open-below) - - '("h" . undo-only) - '("H" . undo-redo) - - '("b" . open-line) - '("B" . split-line) - - '("ü" . indent-rigidly-left-to-tab-stop) - '("+" . indent-rigidly-right-to-tab-stop) - - ;; ignore escape - '("" . ignore))) - -(meow-setup) -(meow-global-mode 1) - -(provide 'init-meow) diff --git a/lisp/init-whitespace.el~ b/lisp/init-whitespace.el~ deleted file mode 100644 index 2c58e1d..0000000 --- a/lisp/init-whitespace.el~ +++ /dev/null @@ -1,27 +0,0 @@ -;;; init-whitespace.el --- Special handling for whitespace -*- lexical-binding: t -*- -;;; Commentary: -;;; Code: - -(setq-default show-trailing-whitespace t) - - -;;; Whitespace - -(defun sanityinc/show-trailing-whitespace () - "Enable display of trailing whitespace in this buffer." - (setq-local show-trailing-whitespace t)) - -(dolist (hook '(prog-mode-hook text-mode-hook conf-mode-hook)) - (add-hook hook 'sanityinc/show-trailing-whitespace)) - - -(require-package 'whitespace-cleanup-mode) -(add-hook 'after-init-hook 'global-whitespace-cleanup-mode) -(with-eval-after-load 'whitespace-cleanup-mode - (diminish 'whitespace-cleanup-mode)) - -(global-set-key [remap just-one-space] 'cycle-spacing) - - -(provide 'init-whitespace) -;;; init-whitespace.el ends here diff --git a/tramp b/tramp deleted file mode 100644 index 42749d6..0000000 --- a/tramp +++ /dev/null @@ -1,8 +0,0 @@ -;; -*- lisp-data -*- <24/09/06 10:38:11 ~/.emacs.d/tramp> -;; Tramp connection history. Don't change this file. -;; Run `M-x tramp-cleanup-all-connections' instead. - -(((tramp-file-name "cache" nil nil nil nil nil nil) - ("tramp-version" "2.8.0-pre")) - ((tramp-file-name "ssh" "user" nil "host" nil nil nil) nil) - ((tramp-file-name "sudo" "root" nil "hermit" nil nil nil) nil))