prior espeak

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))