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:
63
config.el
63
config.el
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user