refactor(config): full cleanup - English comments, no duplicates, org-modern fixed

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-02-23 19:39:31 +01:00
parent bcf82f0f4a
commit 25f7dc72ea

View File

@@ -260,6 +260,13 @@ Bound to cmd+v in org-mode and markdown-mode."
(add-hook 'org-export-before-processing-hook (add-hook 'org-export-before-processing-hook
(lambda (_backend) (org-update-all-dblocks))) (lambda (_backend) (org-update-all-dblocks)))
;; Visual: hide markup, pretty entities, compact tags
(setq org-hide-emphasis-markers t
org-pretty-entities t
org-ellipsis ""
org-auto-align-tags nil
org-tags-column 0)
;; Restore window layout after capture quit ;; Restore window layout after capture quit
(setq org-capture-restore-window-after-quit t)) (setq org-capture-restore-window-after-quit t))
@@ -672,8 +679,7 @@ and optional priority indicator [#A]."
;;; ============================================================ ;;; ============================================================
(after! tramp (after! tramp
(setq projectile-git-command "git ls-files -zco --exclude-standard" (setq projectile-git-command "git ls-files -zco --exclude-standard"))
projectile-indexing-method 'alien))
;; Disable VC and Projectile over TRAMP — main cause of hangs ;; Disable VC and Projectile over TRAMP — main cause of hangs
(setq vc-ignore-dir-regexp (setq vc-ignore-dir-regexp
@@ -1114,9 +1120,8 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
;;; WRITING — olivetti-mode ;;; WRITING — olivetti-mode
;;; ============================================================ ;;; ============================================================
;; Guard: buffer-file-name zajisti ze olivetti nebezi v export temp bufferech ;; Guard: buffer-file-name ensures olivetti doesn't run in export temp buffers.
;; (ty nemaji prirazeny soubor a volani set-window-margins by selhalo). ;; Corfu popup: if it renders off-screen, disable olivetti (SPC t o).
;; Corfu popup: pokud se zobrazi mimo obrazovku, vypni olivetti (SPC t o).
(use-package! olivetti (use-package! olivetti
:defer t :defer t
:config :config
@@ -1135,21 +1140,24 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
;;; ORG-MODERN ;;; ORG-MODERN
;;; ============================================================ ;;; ============================================================
;; with-eval-after-load: spolehlive spusti az po nacteni org, bez Doom lazy-load ;;; Org-modern -- modern visual style for org-mode
;; komplexnosti. require s nil t = bez chyby pokud balicek chybi. ;; :hook triggers lazy loading via use-package!/straight.el (critical for load-path).
(with-eval-after-load 'org ;; org-modern-table nil: table overlays can conflict with LaTeX export.
(when (require 'org-modern nil t) ;; org-agenda-finalize-hook: apply modern style to agenda buffers too.
(setq org-modern-star '("" "" "" "") (use-package! org-modern
org-modern-table nil :hook (org-mode . org-modern-mode)
org-modern-checkbox t) :hook (org-agenda-finalize . org-modern-agenda)
(global-org-modern-mode))) :config
(setq org-modern-star '("" "" "" "")
org-modern-table nil
org-modern-checkbox t))
;;; ============================================================ ;;; ============================================================
;;; ORG-FRAGTOG — auto-render LaTeX fragmentů ;;; ORG-FRAGTOG — auto-render LaTeX fragments
;;; ============================================================ ;;; ============================================================
;; Guard: pouze v file-backed bufferech, ne v exportních kopích. ;; Guard: only in file-backed buffers, not in export copies.
(use-package! org-fragtog (use-package! org-fragtog
:after org :after org
:hook (org-mode . my/org-fragtog-maybe)) :hook (org-mode . my/org-fragtog-maybe))
@@ -1161,12 +1169,11 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
;;; ============================================================ ;;; ============================================================
;;; ORG-SUPER-AGENDA — skupiny v agenda view ;;; ORG-SUPER-AGENDA — groups in agenda view
;;; ============================================================ ;;; ============================================================
;; Pozn.: :deadline (before DATE) vyzaduje absolutni datum nebo evaluaci — ;; Note: :deadline (before DATE) requires absolute date or eval — unreliable in
;; v plain quoted listu nefunguje spolehlive. Skupina "Brzy" odebrana. ;; plain quoted list. "Soon" group removed. Mode enabled via after! (safer).
;; org-super-agenda-mode zapnut az po loadu pres after! (jistejsi nez v :config).
(use-package! org-super-agenda (use-package! org-super-agenda
:after org-agenda :after org-agenda
:config :config
@@ -1188,7 +1195,7 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
;;; ============================================================ ;;; ============================================================
;;; ORG-NOTER — PDF anotace ;;; ORG-NOTER — PDF annotations
;;; ============================================================ ;;; ============================================================
(use-package! org-noter (use-package! org-noter
@@ -1208,7 +1215,7 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
(after! gptel (after! gptel
(defun my/gptel-rewrite-region (beg end) (defun my/gptel-rewrite-region (beg end)
"Pošli označený region do GPTel s instrukcí 'vylepši text' a nahraď odpovědí." "Send selected region to GPTel with 'improve text' instruction and replace with response."
(interactive "r") (interactive "r")
(let ((text (buffer-substring-no-properties beg end))) (let ((text (buffer-substring-no-properties beg end)))
(gptel-request (gptel-request
@@ -1219,14 +1226,14 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
(delete-region beg end) (delete-region beg end)
(goto-char beg) (goto-char beg)
(insert response) (insert response)
(message "GPTel: text vylepšen")) (message "GPTel: text improved"))
(message "GPTel rewrite failed: %s" (plist-get info :status))))))) (message "GPTel rewrite failed: %s" (plist-get info :status)))))))
(defun my/gptel-org-heading-prompt () (defun my/gptel-org-heading-prompt ()
"Pošle aktuální org heading + obsah jako kontext do GPTel chatu." "Send current org heading + content as context to GPTel chat."
(interactive) (interactive)
(unless (derived-mode-p 'org-mode) (unless (derived-mode-p 'org-mode)
(user-error "Pouze v org-mode")) (user-error "Only available in org-mode"))
(let* ((heading (org-get-heading t t t t)) (let* ((heading (org-get-heading t t t t))
(content (save-excursion (content (save-excursion
(org-back-to-heading t) (org-back-to-heading t)
@@ -1234,7 +1241,7 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
(org-end-of-subtree t t) (org-end-of-subtree t t)
(buffer-substring-no-properties beg (point)))))) (buffer-substring-no-properties beg (point))))))
(gptel content) (gptel content)
(message "GPTel: heading '%s' odeslán jako kontext" heading))) (message "GPTel: heading '%s' sent as context" heading)))
(map! :leader (map! :leader
(:prefix ("o g" . "GPTel") (:prefix ("o g" . "GPTel")
@@ -1250,7 +1257,7 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
:defer t :defer t
:config :config
(setq git-link-default-branch "master") (setq git-link-default-branch "master")
;; Přidat podporu pro Gitea na git.apps.sukany.cz ;; Add support for Gitea at git.apps.sukany.cz
(add-to-list 'git-link-remote-alist (add-to-list 'git-link-remote-alist
'("git\\.apps\\.sukany\\.cz" git-link-gitea)) '("git\\.apps\\.sukany\\.cz" git-link-gitea))
(add-to-list 'git-link-commit-remote-alist (add-to-list 'git-link-commit-remote-alist
@@ -1263,9 +1270,9 @@ Otherwise: runs interactive ement-connect, then opens rooms after sync."
;;; ============================================================ ;;; ============================================================
;;; FORGE — Gitea integrace ;;; FORGE — Gitea integration
;;; ============================================================ ;;; ============================================================
;; Vyžaduje Gitea API token v ~/.authinfo: ;; Requires Gitea API token in ~/.authinfo:
;; machine git.apps.sukany.cz login daneel^forge password <TOKEN> ;; machine git.apps.sukany.cz login daneel^forge password <TOKEN>
(after! forge (after! forge