diff options
Diffstat (limited to 'config.org')
| -rw-r--r-- | config.org | 255 |
1 files changed, 129 insertions, 126 deletions
@@ -1,6 +1,5 @@ #+title: config.org #+date: [2025-10-20 Mon 08:33] -#+filetags: :fleet: #+identifier: 20251020T083323 #+PROPERTY: header-args :tangle yes #+STARTUP: content @@ -135,7 +134,7 @@ ;; Insert a welcome message in the *scratch* buffer displaying loading time and activated packages. (with-current-buffer (get-buffer-create "*scratch*") (insert (format - ";; Welcome to Emacs! + " ;; Welcome to Emacs! ;; ;; Loading time : %s ;; Packages : %s @@ -152,21 +151,21 @@ * wayland clipboard fix #+begin_src emacs-lisp -(setq wl-copy-process nil) -(defun wl-copy (text) - (setq wl-copy-process (make-process :name "wl-copy" - :buffer nil - :command '("wl-copy" "-f" "-n") - :connection-type 'pipe - :noquery t)) - (process-send-string wl-copy-process text) - (process-send-eof wl-copy-process)) -(defun wl-paste () - (if (and wl-copy-process (process-live-p wl-copy-process)) - nil ; should return nil if we're the current paste owner - (shell-command-to-string "wl-paste -n | tr -d \r"))) -(setq interprogram-cut-function 'wl-copy) -(setq interprogram-paste-function 'wl-paste) +;; (setq wl-copy-process nil) +;; (defun wl-copy (text) +;; (setq wl-copy-process (make-process :name "wl-copy" +;; :buffer nil +;; :command '("wl-copy" "-f" "-n") +;; :connection-type 'pipe +;; :noquery t)) +;; (process-send-string wl-copy-process text) +;; (process-send-eof wl-copy-process)) +;; (defun wl-paste () +;; (if (and wl-copy-process (process-live-p wl-copy-process)) +;; nil ; should return nil if we're the current paste owner +;; (shell-command-to-string "wl-paste -n | tr -d \r"))) +;; (setq interprogram-cut-function 'wl-copy) +;; (setq interprogram-paste-function 'wl-paste) #+end_src * window @@ -336,55 +335,6 @@ (setq auth-source-cache-expiry 300))) #+end_src -* dashboard - -#+begin_src emacs-lisp -(use-package dashboard - :ensure t - :config - (dashboard-setup-startup-hook)) -#+end_src - -** config - -#+begin_src emacs-lisp -(defun agenda-home () - (interactive) - (org-agenda-list 1) - (delete-other-windows)) - -(add-hook 'server-after-make-frame-hook #'agenda-home) - -(defun refresh-agenda-periodic-function () - "Recompute the Org Agenda buffer(s) periodically." - (ignore-errors - (when (get-buffer "*Org Agenda*") - (with-selected-window (get-buffer-window "*Org Agenda*") - (org-agenda-redo-all))))) - -;; Refresh agenda every minute. -(run-with-timer 60 60 'refresh-agenda-periodic-function) - -(setq org-agenda-current-time-string "now - - - - - - -") - -(custom-set-faces - '(org-agenda-current-time ((t (:foreground "red"))))) - -;; (defun rlr/agenda-links () -;; (end-of-buffer) -;; (insert-file-contents "/Path to Org Directory/agenda-links.org") -;; (while (org-activate-links (point-max)) -;; (goto-char (match-end 0))) -;; (beginning-of-buffer)) - -;; (add-hook 'org-agenda-finalize-hook #'rlr/agenda-links) - -(setq org-return-follows-link t) - -(setopt org-link-elisp-skip-confirm-regexp "rlr.*") - -#+end_src - * gptel #+begin_src emacs-lisp @@ -461,33 +411,28 @@ * flycheck #+begin_src emacs-lisp -;; (use-package flycheck -;; :ensure t -;; :config -;; (add-hook 'after-init-hook #'global-flycheck-mode)) +(use-package flycheck + :ensure t + :config + (add-hook 'after-init-hook #'global-flycheck-mode)) #+end_src ** flycheck-rust #+begin_src emacs-lisp -;; (use-package flycheck-rust -;; :ensure t -;; :config -;; (setq flycheck-rust-check-tests nil) -;; (add-hook 'flycheck-mode-hook #'flycheck-rust-setup)) +(use-package flycheck-rust + :ensure t + :config + (setq flycheck-rust-check-tests nil) + (add-hook 'flycheck-mode-hook #'flycheck-rust-setup)) #+end_src ** flyover #+begin_src emacs-lisp -(use-package flyover - :ensure t - :hook (flycheck-mode-hook . flyover-mode) - :config - (setq flyover-levels '(error warning info)) - (setq flyover-checkers '(flymake)) - (setq flyover-use-theme-colors t)) - +;; (use-package flyover +;; :ensure t +;; :hook (flycheck-mode-hook . flyover-mode)) #+end_src * xref @@ -620,6 +565,17 @@ Old config ;; (search . " %i "))) #+end_src +** org-babel + +#+begin_src emacs-lisp +(with-eval-after-load 'org-contrib + (org-babel-do-load-languages + 'org-babel-load-languages + '((emacs-lisp . t) + ;; ... + (nushell . t)))) +#+end_src + * org-capture *** yequake @@ -713,7 +669,20 @@ Old config :after org-super-agenda :config (setq org-agenda-custom-commands - '(("w" "Weekly Overview" + '(("t" "Task Overview" + ((alltodo "" ((org-agenda-overriding-header "") + (org-super-agenda-groups + '((:discard (:todo "FUN")) + (:log t) + (:name "ACTIVE" + :todo "ACTIVE") + (:name "NEXT" + :todo "NEXT") + (:name "TODO" + :todo "TODO") + (:name "WAIT" + :todo "WAIT"))))))) + ("w" "Weekly Overview" ((org-ql-block '(and (or (deadline auto) (scheduled :to 7)) (not (done)) @@ -1351,9 +1320,6 @@ Because I have to and not want to. (add-to-list 'eglot-server-programs '(python-mode . ("pyright-langserver" "--stdio"))))) -(use-package flymake-pyrefly - :ensure t) - (use-package python-black :ensure t :demand t @@ -1393,9 +1359,20 @@ ily <3. #+begin_src emacs-lisp (use-package nushell-mode :ensure t - :mode "\\.nu\\'" - ;; :hook (nushell-mode . lspce-mode) - ) + :mode "\\.nu\\'") +#+end_src + +*** nushell org babel + +#+begin_src emacs-lisp +(use-package nushell-ts-babel + :straight (nushell-ts-babel :type git :host github :repo "herbertjones/nushell-ts-babel") + :after org + :config + (org-babel-do-load-languages + 'org-babel-load-languages + (append org-babel-load-languages + '((nushell . t))))) #+end_src * vterm @@ -1404,7 +1381,6 @@ ily <3. (use-package vterm :ensure t :defer t) -(setq vterm-shell "nu") #+end_src ** multi-vterm @@ -1522,14 +1498,15 @@ ily <3. (define-key evil-normal-state-map (kbd "C-r") 'undo-tree-redo) (setq select-enable-clipboard nil) + (setq select-enable-primary nil) - (evil-define-operator my-evil-yank-to-clipboard (beg end type register yank-handler) - (interactive "<R><x><y>") - (let ((select-enable-clipboard t)) - (evil-yank beg end type register yank-handler))) + ;; (evil-define-operator my-evil-yank-to-clipboard (beg end type register yank-handler) + ;; (interactive "<R><x><y>") + ;; (let ((select-enable-clipboard t)) + ;; (evil-yank beg end type register yank-handler))) - (define-key evil-normal-state-map (kbd "Y") 'my-evil-yank-to-clipboard) - (define-key evil-visual-state-map (kbd "Y") 'my-evil-yank-to-clipboard) + ;; (define-key evil-normal-state-map (kbd "Y") 'my-evil-yank-to-clipboard) + ;; (define-key evil-visual-state-map (kbd "Y") 'my-evil-yank-to-clipboard) (evil-set-initial-state 'help-mode 'emacs) (evil-set-initial-state 'messages-buffer-mode 'normal) @@ -2075,32 +2052,7 @@ ily <3. (LaTeX-mode . mixed-pitch-mode))) #+end_src -* theme - -#+begin_src emacs-lisp -(use-package autothemer - :straight t - :defer t) -;; (use-package doom-themes -;; :straight t -;; :ensure t -;; :custom -;; ;; Global settings (defaults) -;; (doom-themes-enable-bold t) ; if nil, bold is universally disabled -;; (doom-themes-enable-italic t) ; if nil, italics is universally disabled -;; ;; for treemacs users -;; (doom-themes-treemacs-theme "doom-nord-light") ; use "doom-colors" for less minimal icon theme -;; :config -;; (load-theme 'doom-nord-light t) - -;; ;; Enable flashing mode-line on errors -;; (doom-themes-visual-bell-config) -;; ;; Enable custom neotree theme (nerd-icons must be installed!) -;; ;; or for treemacs users -;; (doom-themes-treemacs-config) -;; ;; Corrects (and improves) org-mode's native fontification. -;; (doom-themes-org-config)) -#+end_src +* themes ** catppuccin-theme @@ -2249,6 +2201,15 @@ ily <3. ;; (load-theme 'modus-operandi t)) #+end_src +** kanagawa-themes + +#+begin_src emacs-lisp +(use-package kanagawa-themes + :ensure t + :config + (load-theme 'kanagawa-wave t)) +#+end_src + * dirvish #+begin_src emacs-lisp @@ -2283,7 +2244,7 @@ ily <3. * my/fns #+begin_src emacs-lisp -(setq-default olivetti-body-width 100) +(setq-default olivetti-body-width 110) (define-globalized-minor-mode my/global-olivetti-mode olivetti-mode (lambda () (olivetti-mode 1))) (my/centered-cursor) @@ -2359,8 +2320,9 @@ ily <3. #+begin_src emacs-lisp (use-package zoom - :ensure t - :defer t) + :ensure t) +(custom-set-variables + '(zoom-size '(0.618 . 0.618))) #+end_src * pdf-tools @@ -2512,6 +2474,8 @@ ily <3. "qq" '(save-buffers-kill-terminal :wk "quit emacs") "qr" '(restart-emacs :wk "restart") + "x" '(org-capture :wk "capture") + "a" '(embark-act :wk "embark") "u" '(undo-tree-visualize :wk "undo tree") "P" '(consult-yank-from-kill-ring :wk "paste history")) @@ -2653,6 +2617,45 @@ ily <3. (global-set-key (kbd "C--") 'text-scale-decrease) #+end_src +** yanking + +#+begin_src emacs-lisp +(defun my/evil-delete-to-blackhole (orig-fn beg end &optional type register &rest args) + (apply orig-fn beg end type ?_ args)) + +(advice-add 'evil-delete :around 'my/evil-delete-to-blackhole) + +(my-leader + "y" '(my/yank-to-clipboard :wk "clipboard" :ignore t) + "yy" '(my/yank-to-clipboard :wk "yank to clipboard") + "yp" '(my/paste-from-clipboard :wk "paste from clipboard")) +#+end_src + +*** explicit yanking/pasting + +#+begin_src emacs-lisp +(defun my/yank-to-clipboard () + (interactive) + (if (region-active-p) + (let ((select-enable-clipboard t)) + (kill-ring-save (region-beginning) (region-end)) + (message "Yanked to clipboard")) + (message "No region active"))) + +(defun my/paste-from-clipboard () + (interactive) + (let ((select-enable-clipboard t)) + (yank))) + +(defun my/delete-to-clipboard () + (interactive) + (if (region-active-p) + (let ((select-enable-clipboard t)) + (kill-region (region-beginning) (region-end)) + (message "Deleted to clipboard")) + (message "No region active"))) +#+end_src + * elfeed #+begin_src emacs-lisp |