PageRenderTime 36ms CodeModel.GetById 13ms RepoModel.GetById 1ms app.codeStats 0ms

/emacspeak-29.0/lisp/emacspeak-texinfo.el

#
Emacs Lisp | 111 lines | 38 code | 19 blank | 54 comment | 0 complexity | a908f6e0406365fc203c117e8a1906dd MD5 | raw file
Possible License(s): MIT
  1. ;;; emacspeak-texinfo.el --- Speech enable texinfo mode
  2. ;;; $Id: emacspeak-texinfo.el 5798 2008-08-22 17:35:01Z tv.raman.tv $
  3. ;;; $Author: tv.raman.tv $
  4. ;;; Description: Emacspeak extension to speech enable
  5. ;;; texinfo mode
  6. ;;; Keywords: Emacspeak, texinfo
  7. ;;{{{ LCD Archive entry:
  8. ;;; LCD Archive Entry:
  9. ;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
  10. ;;; A speech interface to Emacs |
  11. ;;; $Date: 2007-08-25 18:28:19 -0700 (Sat, 25 Aug 2007) $ |
  12. ;;; $Revision: 4532 $ |
  13. ;;; Location undetermined
  14. ;;;
  15. ;;}}}
  16. ;;{{{ Copyright:
  17. ;;;Copyright (C) 1995 -- 2007, T. V. Raman
  18. ;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
  19. ;;; All Rights Reserved.
  20. ;;;
  21. ;;; This file is not part of GNU Emacs, but the same permissions apply.
  22. ;;;
  23. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  24. ;;; it under the terms of the GNU General Public License as published by
  25. ;;; the Free Software Foundation; either version 2, or (at your option)
  26. ;;; any later version.
  27. ;;;
  28. ;;; GNU Emacs is distributed in the hope that it will be useful,
  29. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  30. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  31. ;;; GNU General Public License for more details.
  32. ;;;
  33. ;;; You should have received a copy of the GNU General Public License
  34. ;;; along with GNU Emacs; see the file COPYING. If not, write to
  35. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  36. ;;}}}
  37. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38. ;;{{{ Required modules
  39. (require 'emacspeak-preamble)
  40. ;;}}}
  41. ;;{{{ Introduction:
  42. ;;; Commentary:
  43. ;;; This module speech enables net-texinfo mode
  44. ;;; Code:
  45. ;;}}}
  46. ;;{{{ voice locking
  47. (defun emacspeak-texinfo-mode-hook ()
  48. "Setup Emacspeak extensions"
  49. (declare (special dtk-split-caps))
  50. (voice-lock-mode 1)
  51. (dtk-set-punctuations 'all)
  52. (or dtk-split-caps
  53. (dtk-toggle-split-caps))
  54. (or emacspeak-audio-indentation
  55. (emacspeak-toggle-audio-indentation))
  56. (emacspeak-dtk-sync))
  57. (add-hook 'texinfo-mode-hook 'emacspeak-texinfo-mode-hook)
  58. ;;}}}
  59. ;;{{{ advice
  60. (defadvice texinfo-insert-@end (after emacspeak pre act
  61. comp)
  62. "Provide auditory feedback"
  63. (when (interactive-p)
  64. (emacspeak-auditory-icon 'close-object)
  65. (emacspeak-speak-line)))
  66. (defadvice TeXinfo-insert-environment (after emacspeak pre act
  67. comp)
  68. "Provide auditory feedback"
  69. (when (interactive-p)
  70. (emacspeak-auditory-icon 'open-object)
  71. (emacspeak-speak-line)))
  72. (defadvice texinfo-insert-@item (after emacspeak pre act
  73. comp)
  74. "Provide auditory feedback"
  75. (when (interactive-p)
  76. (emacspeak-auditory-icon 'item)
  77. (emacspeak-speak-line)))
  78. (defadvice texinfo-insert-@node (after emacspeak pre act
  79. comp)
  80. "Provide auditory feedback"
  81. (when (interactive-p)
  82. (emacspeak-auditory-icon 'open-object)
  83. (emacspeak-speak-line)))
  84. ;;}}}
  85. (provide 'emacspeak-texinfo)
  86. ;;{{{ end of file
  87. ;;; local variables:
  88. ;;; folded-file: t
  89. ;;; byte-compile-dynamic: t
  90. ;;; end:
  91. ;;}}}