diff --git a/config.el b/config.el index 6f0d0ec..3a98165 100644 --- a/config.el +++ b/config.el @@ -34,14 +34,13 @@ ;; -------------------------------------------------- ;; Robustní file completion "kdekoliv pod kurzorem" -;; Funguje i v Markdown odkazu [x](./tady), protože neřeší kontext – jen token okolo pointu. ;; -------------------------------------------------- (defun martin/complete-file-name-at-point () "Doplň název souboru kolem kurzoru pomocí standardní file completion tabulky. Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (interactive) - (let* ((stop-chars '(?\s ?\t ?\n ?\r ?\" ?\' ?\( ?\) ?\[ ?\] ?\< ?\> ?\{ ?\} ?, ?;)) + (let* ((stop-chars '(?\s ?\t ?\n ?\r ?\" ?\' ?\( ?\) ?\[ ?\] ?\< ?\> ?\{ ?\} ?, ?\; )) (start (save-excursion (while (and (> (point) (point-min)) (let ((c (char-before))) @@ -54,33 +53,19 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (and c (not (memq c stop-chars))))) (forward-char)) (point)))) - ;; Pokud nejsme "na tokenu", vezmi aspoň start=end=point (doplň odtud) (when (= start end) (setq start (point) end (point))) (let ((completion-category-defaults nil) (completion-category-overrides '((file (styles basic partial-completion))))) (completion-in-region start end #'completion-file-name-table)))) -;; Globální klávesa (funguje všude, i v TTY) (map! :i "C-c f" #'martin/complete-file-name-at-point :n "C-c f" #'martin/complete-file-name-at-point) -;; V Markdownu snížíme prefix, ať to jde hned po `./` (after! markdown-mode (add-hook 'markdown-mode-hook (lambda () (setq-local company-minimum-prefix-length 1))) (add-hook 'gfm-mode-hook (lambda () (setq-local company-minimum-prefix-length 1)))) -;; -------------------------------------------------- -;; Copilot -;; -------------------------------------------------- -(use-package! copilot - :hook (prog-mode . copilot-mode) - :bind (:map copilot-completion-map - ("" . copilot-accept-completion) - ("TAB" . copilot-accept-completion) - ("C-TAB" . copilot-accept-completion-by-word) - ("C-" . copilot-accept-completion-by-word))) - ;; -------------------------------------------------- ;; Org ;; -------------------------------------------------- @@ -137,7 +122,7 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." "^" #'dired-up-directory)) ;; -------------------------------------------------- -;; PlantUML (server) — TVOJE PŮVODNÍ ČÁST +;; PlantUML (server) ;; -------------------------------------------------- (add-to-list 'auto-mode-alist '("\\.puml\\'" . plantuml-mode)) (add-to-list 'auto-mode-alist '("\\.plantuml\\'" . plantuml-mode)) @@ -157,7 +142,7 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (append utf8 nil)))))) (defun my/plantuml-fix-png-header (file) - "Odstraní vše před PNG signaturou (řeší \\n před 89 50 4E 47)." + "Odstraní vše před PNG signaturou." (let ((sig (unibyte-string #x89 ?P ?N ?G ?\r ?\n #x1a ?\n))) (with-temp-buffer (set-buffer-multibyte nil) @@ -205,19 +190,14 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (setq org-babel-python-command "python3") (require 'ob-python)) - - ;; -------------------------------------------------- ;; Low-vision základ ;; -------------------------------------------------- - -;; Větší font + pohodlnější řádkování -(setq doom-font (font-spec :family "JetBrains Mono" :size 20) ;; zkus 18–24 +(setq doom-font (font-spec :family "JetBrains Mono" :size 20) doom-variable-pitch-font (font-spec :family "SF Pro Text" :size 20)) -(setq-default line-spacing 0.25) ;; 0.20–0.35 dle chuti +(setq-default line-spacing 0.25) -;; Jednoduché zvětšení/zmenšení textu kdykoliv (map! :n "C-=" #'text-scale-increase :n "C--" #'text-scale-decrease :n "C-0" #'text-scale-set @@ -225,8 +205,6 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." :i "C--" #'text-scale-decrease :i "C-0" #'text-scale-set) - -;; Automaticky ukládej org soubory po refilingu a změnách (add-hook 'org-after-refile-insert-hook #'save-buffer) (add-hook 'org-after-todo-state-change-hook #'save-buffer) (add-hook 'org-capture-after-finalize-hook #'save-buffer) @@ -236,3 +214,9 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (lambda () (save-some-buffers t (lambda () (derived-mode-p 'org-mode))))) + +;; performance tweak +(after! projectile + (setq projectile-indexing-method 'alien + projectile-enable-caching t)) + diff --git a/init.el b/init.el index 9d4a227..68a6d2b 100644 --- a/init.el +++ b/init.el @@ -35,7 +35,7 @@ :checkers syntax - (spell +flyspell) + ;;(spell +flyspell) grammar :tools diff --git a/packages.el b/packages.el index 416782b..f51774e 100644 --- a/packages.el +++ b/packages.el @@ -54,7 +54,9 @@ ;; (unpin! t) -;; Copilot -(package! copilot - :recipe (:host github :repo "copilot-emacs/copilot.el" :files ("*.el" "dist"))) +;; ;; Copilot +;; (package! copilot +;; :recipe (:host github :repo "copilot-emacs/copilot.el" :files ("*.el" "dist"))) +;; GPTEl +(package! gptel :recipe (:nonrecursive t))