2026-04-15T20:44:36

init.el

@@ -69,6 +69,9 @@
 
 
 
+;; i don't really use find-file-read-only so i switched in recentf
+(global-set-key (kbd "C-x C-S-r") 'find-file-read-only)
+(global-set-key (kbd "C-x C-r") 'recentf)
 ;; apropos?
 (setq apropos-do-all t)
 
@@ -215,8 +218,9 @@
 
 
 ;; highlight todo
-(use-package hl-todo :ensure t :hook (prog-mode . hl-todo-mode))
-
+;; (use-package hl-todo :ensure t :hook (prog-mode . hl-todo-mode) (latex-mode . hl-todo-mode))
+(use-package hl-todo :ensure t)
+(global-hl-todo-mode)
 (setq hl-todo-keyword-faces
       '(("TODO"   . "#FF0000")
         ("FIXME"  . "#FF0000")
@@ -280,7 +284,7 @@
 	 )
   )
 
-
+(setq mc/always-run-for-all t)
 ;; make emacs remember last session
 (setq save-place-file (concat user-emacs-directory ".saveplace"))
 (setq desktop-dirname (concat user-emacs-directory ".desktop.d"))
@@ -402,12 +406,26 @@
 
 ;; latex
 (use-package pdf-tools :ensure t)
+(pdf-tools-install)
 (setq pdf-annot-activate-created-annotations t)
 (setq pdf-view-resize-factor 1.1)
 ;; pdfview
-(add-hook 'pdf-view-mode-hook (lambda () (pdf-view-themed-minor-mode t)))
+;; (add-hook 'pdf-view-mode-hook (lambda () (pdf-view-themed-minor-mode t)))
 (setq pdf-view-themed-minor-mode t)
 (add-to-list 'pdf-view-incompatible-modes 'display-line-numbers-mode)
+(add-hook 'pdf-view-mode-hook (lambda () (display-line-numbers-mode -1)))
+(add-hook 'pdf-view-mode-hook (lambda () (hl-todo-mode)))
+(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer)
+
+;; (with-eval-after-load 'tex
+;;   (add-to-list 'TeX-view-program-selection
+;;                '(output-pdf ("PDF Tools"))))
+(setq TeX-view-program-selection '((output-pdf "PDF Tools"))
+      TeX-source-correlate-start-server t)
+
+;; idk
+;; (define-key LaTeX-mode-map (kbd "C-c C-x") (TeX-command (TeX-command-default (TeX-master-file)) 'TeX-master-file -1))
+
 ;; for pdf tools run (pdf-tools-install)
 
 (use-package auctex :ensure t)
@@ -461,25 +479,89 @@
 (if (not (eq system-type 'windows-nt))
     (use-package vterm :ensure t))
 
-
-
-
-
-
 ;; (setq doom-font (font-spec :family "Go Mono" :size 18))
 ;; (setq doom-variable-pitch-font (font-spec :family "Alegreya" :size 20))
 ;; (append mixed-pitch-fixed-pitch-faces '(line-number line-number-current-line cursor))
 
 
 (windmove-default-keybindings)
-
-
+(global-font-lock-mode)
 
 ;; TODO: emacs everywhere 
 ;; TODO: goggles
 ;; TODO: vc gutter
 ;; TODO: look at this: https://baty.net/posts/2025/03/i-went-a-little-nuts-with-remember-mode-in-emacs/
 
+;; csv mode
+
+(use-package csv-mode :ensure t)
+
+;; for better csv handling 
+;; disable line wrap
+(add-hook 'csv-mode-hook (lambda () (visual-line-mode 'nil)))
+(add-hook 'csv-mode-hook (lambda () (toggle-truncate-lines 't)))
+;; auto detect separator      
+(add-hook 'csv-mode-hook 'csv-guess-set-separator)
+;; turn on field alignment    
+(add-hook 'csv-mode-hook 'csv-align-mode)
+;; add csv header line
+(add-hook 'csv-mode-hook 'csv-header-line)
+
+
+;; WIP
+(defun toggle-csv-mode ()
+  "Toggle my CSV mode, with extra settings."
+  (interactive)
+  (with-current-buffer (current-buffer) (if (eq major-mode 'csv-mode) 
+					    (progn
+					      (text-mode)
+					      (visual-line-mode 't)
+					      (toggle-truncate-lines 'nil)
+					      ;;(csv-align-mode)
+					      (message "deactivated csv-mode"))
+					  (progn
+					    (csv-mode)
+					    (font-lock-mode)
+					    (message "activate")))))
+
+;; (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-x S-u") 'undo-redo)
+
 ;; flycheck told me to do this:
 (provide 'init)
 ;;; init.el ends here