From 0747b84b26552ffbbd6edfd7b0fd437ba777e1fc Mon Sep 17 00:00:00 2001 From: rearman Date: Fri, 19 Sep 2025 09:47:54 -0400 Subject: [PATCH] Disable visual-line related junk I want logical lines now, as opposed to visual lines. --- init.el | 7 ++++--- re/re-bindings.el | 2 -- re/re-editing-defuns.el | 16 +++------------- re/re-packages.el | 13 ------------- 4 files changed, 7 insertions(+), 31 deletions(-) diff --git a/init.el b/init.el index bd4e7f8..17daec7 100644 --- a/init.el +++ b/init.el @@ -28,7 +28,8 @@ (add-hook 'c-mode-hook (lambda () (require 're-c-style))) (setq-default indicate-empty-lines t - mouse-prefer-closest-glyph t) + mouse-prefer-closest-glyph t + line-move-visual nil) (blink-cursor-mode -1) (column-number-mode t) @@ -36,10 +37,10 @@ (setq delete-by-moving-to-trash t delete-pair-blink-delay 0 - delete-active-region nil) + delete-active-region nil + scroll-conservatively 101) ;; Buffer dealiŋ -;; (delete-selection-mode t) (global-acme-mouse-mode t) (setq disabled-command-function nil diff --git a/re/re-bindings.el b/re/re-bindings.el index a11c6e9..f342824 100644 --- a/re/re-bindings.el +++ b/re/re-bindings.el @@ -40,9 +40,7 @@ (keymap-global-set "" #'previous-buffer) ; Back button (keymap-global-set "C-M-o" #'re/other-window-or-split-window) (keymap-global-set " " #'re/smart-beginning-of-line) -(keymap-global-set " " #'re/smart-end-of-line) (keymap-set visual-line-mode-map "C-a" #'re/smart-beginning-of-line) -(keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line) (keymap-global-set " " #'re/goto-line) ;; Seeking diff --git a/re/re-editing-defuns.el b/re/re-editing-defuns.el index f8b68d7..3b79fd7 100644 --- a/re/re-editing-defuns.el +++ b/re/re-editing-defuns.el @@ -69,16 +69,16 @@ Stolen from https://depp.brause.cc/dotemacs" (call-interactively 'backward-kill-word))) (defun re/smart-beginning-of-line () - "Move point to first non-whitespace character or `beginning-of-visual-line'. + "Move point to first non-whitespace character. If point was already at that position, call `back-to-indentation'. -Called a third time, move point to `beginning-of-line'. +Called a third time, move point back to `beginning-of-line'. If in org-mode, call `org-beginning-of-line' first." (interactive "^") (let ((oldpos (point))) (if (equal major-mode 'org-mode) (org-beginning-of-line) (progn - (beginning-of-visual-line 1) + (beginning-of-line 1) (skip-syntax-forward " " (line-end-position)) (backward-prefix-chars))) (and (= oldpos (point)) @@ -86,16 +86,6 @@ If in org-mode, call `org-beginning-of-line' first." (back-to-indentation) (and (= newpos (point)) (beginning-of-line)))))) -(defun re/smart-end-of-line () - "Move point to the end of the visual line. If point was already at that position, call `move-end-of-line'. -If in org-mode, call `org-end-of-line' first." - (interactive "^") - (let ((oldpos (point))) - (if (equal major-mode 'org-mode) - (org-end-of-line) - (end-of-visual-line 1)) - (and (= oldpos (point)) (move-end-of-line nil)))) - (defun re/goto-line () "Show line numbers before going to line, then hide them again." (interactive) diff --git a/re/re-packages.el b/re/re-packages.el index 483d8c4..70565fc 100644 --- a/re/re-packages.el +++ b/re/re-packages.el @@ -10,19 +10,6 @@ (setq use-package-always-ensure t use-package-always-demand t) -(use-package visual-fill-column - :config - (global-visual-line-mode 1) - :custom - (word-wrap t) - (visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)) - (visual-fill-column-enable-sensible-window-split t)) - -(keymap-global-set "C-c v" - (lambda nil - (interactive) - (visual-fill-column-mode 'toggle))) - (use-package corfu :custom (corfu-auto t) -- 2.39.5