2026-04-21T12:10:23

init.el

@@ -513,7 +513,6 @@
 (add-hook 'csv-mode-hook 'csv-header-line)
 
 
-;; WIP
 (defun toggle-csv-mode ()
   "Toggle my CSV mode, with extra settings."
   (interactive)
@@ -522,51 +521,102 @@
 					      (text-mode)
 					      (visual-line-mode 't)
 					      (toggle-truncate-lines 'nil)
-					      ;;(csv-align-mode)
+					      (csv-align-mode 0)
 					      (message "deactivated csv-mode"))
 					  (progn
 					    (csv-mode)
 					    (font-lock-mode)
-					    (message "activate")))))
+					    (message "activated csv-mode")))))
 
-;; (with-current-buffer (current-buffer) (if 'csv-mode (message "deactivated csv-mode") (message "activate")))
-
-;; if
-
-;; (defun toggle-csv-mode ()
-;;   "Toggle my CSV mode, with extra settings."
-;;   (interactive)
-;;   (if (memq #'disable-linewrap csv-mode-hook)
-;;       (progn
-;;         (remove-hook 'csv-mode-hook #'disable-linewrap)
-;;         (visual-line-mode t)
-;;         (toggle-truncate-lines)
-;;         (remove-hook 'csv-mode-hook #'csv-guess-set-separator)
-;;         (csv-guess-set-separator)
-;;         (remove-hook 'csv-mode-hook #'csv-align-mode)
-;;         (csv-align-mode)
-;;         (remove-hook 'csv-mode-hook #'csv-header-line)
-;;         (csv-header-line)
-;;         (normal-mode)
-;;         (message "CSV hooks removed"))
-;;     (progn
-;;       (add-hook 'csv-mode-hook #'disable-linewrap)
-;;       (add-hook 'csv-mode-hook #'csv-guess-set-separator)
-;;       (add-hook 'csv-mode-hook #'csv-align-mode)
-;;       (add-hook 'csv-mode-hook #'csv-header-line)
-;;       (normal-mode)
-;;       (message "CSV hooks added"))))
-
-;; (map! :map csv-mode-map "SPC t ;" #'toggle-csv-mode-hooks)
-;; (map! :after csv-mode
-;;       :map csv-mode-map
-;;       :desc "Toggle CSV hooks"
-;;       :n "SPC t ;" #'toggle-csv-mode-hooks)
-;;      :leader
-;;      "t;" #'toggle-csv-mode-hooks)
+;; (global-set-key (kbd "C-c ;") 'toggle-csv-mode)
+(define-key csv-mode-map (kbd "C-c ;") 'toggle-csv-mode)
 
 (global-set-key (kbd "C-x S-u") 'undo-redo)
 
+
+(use-package ob-cypher
+  :ensure t
+  :config
+  (add-to-list 'org-babel-load-languages '(cypher . t))
+  (org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)
+  (add-to-list 'org-babel-tangle-lang-exts '("cypher" . "cypher")))
+
+(setq dired-dwim-target t)
+
+
+;; from https://emacsredux.com/blog/2026/04/07/stealing-from-the-best-emacs-configs/
+
+;; Disable Bidirectional Text Scanning
+(setq-default bidi-display-reordering 'left-to-right
+              bidi-paragraph-direction 'left-to-right)
+(setq bidi-inhibit-bpa t)
+
+;; Skip Fontification During Input
+(setq redisplay-skip-fontification-on-input t)
+
+;; Increase Process Output Buffer for LSP
+(setq read-process-output-max (* 4 1024 1024)) ; 4MB
+
+;; Save the Clipboard Before Killing
+(setq save-interprogram-paste-before-kill t)
+
+;; No Duplicates in the Kill Ring
+(setq kill-do-not-save-duplicates t)
+
+;; Persist the Kill Ring Across Sessions
+(setq savehist-additional-variables
+      '(search-ring regexp-search-ring kill-ring))
+;; Strip text properties before saving to kill ring
+(add-hook 'savehist-save-hook
+          (lambda ()
+            (setq kill-ring
+                  (mapcar #'substring-no-properties
+                          (cl-remove-if-not #'stringp kill-ring)))))
+
+;; Repeat mode
+(repeat-mode 1)
+
+;; Live Regexp Feedback
+(minibuffer-regexp-mode 1)
+;; keep M-x re-builder in mind
+(setq reb-re-syntax 'string)
+
+;; Auto-Chmod Scripts on Save
+(add-hook 'after-save-hook
+          #'executable-make-buffer-file-executable-if-script-p)
+
+;; Prevent ffap from Pinging Hostnames
+(setq ffap-machine-p-known 'reject)
+
+;; Proportional Window Resizing
+(setq window-combination-resize t)
+
+;; Reversible C-x 1
+(winner-mode +1)
+
+(defun toggle-delete-other-windows ()
+  "Delete other windows in frame if any, or restore previous window config."
+  (interactive)
+  (if (and winner-mode
+           (equal (selected-window) (next-window)))
+      (winner-undo)
+    (delete-other-windows)))
+
+(global-set-key (kbd "C-x 1") #'toggle-delete-other-windows)
+
+;; Faster Mark Popping
+;; after the first C-u C-SPC you can keep pressing just C-SPC to continue popping
+(setq set-mark-command-repeat-pop t)
+
+;; Auto-Select Help Window
+(setq help-window-select t)
+
+;; Recenter After save-place Restores Position
+(advice-add 'save-place-find-file-hook :after
+            (lambda (&rest _)
+              (when buffer-file-name (ignore-errors (recenter)))))
+
+
 ;; flycheck told me to do this:
 (provide 'init)
 ;;; init.el ends here