updated config for emacspeak.
This commit is contained in:
17
config.el
17
config.el
@@ -480,4 +480,21 @@ Funguje v libovolném textu, včetně Markdown linků (např. [x](./...))."
|
|||||||
(:prefix ("t" . "toggle")
|
(:prefix ("t" . "toggle")
|
||||||
:desc "Speech ON" "s" #'my/emacspeak-on
|
:desc "Speech ON" "s" #'my/emacspeak-on
|
||||||
:desc "Speech OFF" "S" #'my/emacspeak-off))
|
:desc "Speech OFF" "S" #'my/emacspeak-off))
|
||||||
|
(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)
|
||||||
|
|
||||||
|
(advice-add 'transient--show :after
|
||||||
|
(lambda (&rest _)
|
||||||
|
(dtk-speak (buffer-string))))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user