diff --git a/config.el b/config.el index 5bafc37..3322869 100644 --- a/config.el +++ b/config.el @@ -457,7 +457,9 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (defconst my/emacspeak-wrapper (expand-file-name "~/.local/bin/emacspeak-mac")) ;; Emacspeak uses this to start the speech server. -(setq dtk-program my/emacspeak-wrapper) +;;(setq dtk-program my/emacspeak-wrapper) +(setq dtk-program (expand-file-name "~/.emacspeak/servers/espeak")) + ;; State flags (defvar my/emacspeak-loaded nil) @@ -528,18 +530,26 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))." (setq dtk-speech-rate 300) -;; emacspeak additional settings -;;(setq emacspeak-speak-messages nil) -;;(setq emacspeak-audio-indentation nil) -(setq emacspeak-speak-echo nil) -(setq emacspeak-character-echo nil) -;;(setq emacspeak-word-echo nil) -(setq emacspeak-line-echo t) -;;(setq emacspeak-speak-messages nil) -(global-set-key (kbd "C-c SPC") #'emacspeak-speak-buffer) -(add-hook 'transient-post-exit-hook #'ignore) +;; ---------------------------- +;; Emacspeak defaults (global) +;; ---------------------------- +(with-eval-after-load 'dtk-speak + ;; Speech rate + (setq-default dtk-speech-rate 300) -(advice-add 'transient--show :after - (lambda (&rest _) - (dtk-speak (buffer-string)))) + ;; Default punctuation mode: none / some / all + ;; (Emacspeak manual: dtk-set-punctuations supports 'none 'some 'all) :contentReference[oaicite:1]{index=1} + (setq-default dtk-punctuation-mode 'none)) + +(with-eval-after-load 'emacspeak + ;; Typing feedback: + ;; nechceš znaky, chceš slova + řádky + ;; (Emacspeak manual: character/word/line echo) :contentReference[oaicite:2]{index=2} + (setq-default emacspeak-character-echo nil) + (setq-default emacspeak-word-echo t) + (setq-default emacspeak-line-echo t)) + +(map! :leader + (:prefix ("h" . "help") + :desc "Describe bindings (buffer-local)" "B" #'describe-bindings))