
				RBOOK
		         

 Rbook    Emacs    ,
   ,    ,
      
      .

      
,  ,  ,    
.     , 
    MP3-,  
    .


			      

 ,   .  rbook.el, 
  ,   ,  Emacs 
  , ,  /usr/share/emacs/site-lisp. 
   -, ,   
    ,      
.  ,  , - play, mp3, speak,
progress.au, task-done.au, -    
/usr/local/lib/rbook. , ,      
,       
     rbook.el.  speak, mp3  play - 
 ,   ,   
    .

, ,  -  ,    Emacs,
,  ~/.emacs  /usr/share/emacs/site-lisp/default.el,
   :

(autoload 'rbook-read-text "rbook" nil t)
(autoload 'rbook-read-bookmark "rbook" nil t)
(autoload 'rbook-make-audio-book "rbook" nil t)
(autoload 'rbook-show-time "rbook" nil t)
(autoload 'rbook-customize "rbook" nil t)
(global-set-key (kbd "C-c b") 'rbook-read-bookmark)
(global-set-key (kbd "C-c r") 'rbook-read-text)
(global-set-key (kbd "C-c a") 'rbook-make-audio-book)
(global-set-key (kbd "C-c t") 'rbook-show-time)
(global-set-key (kbd "C-c c") 'rbook-customize)

,      .   
,        :

(setq rbook-menu (make-sparse-keymap "RBOOK"))
(define-key global-map [menu-bar tools RBOOK] (cons "Book reader" rbook-menu))
(define-key global-map [menu-bar tools RBOOK customize] '("Customize parameters" . rbook-customize))
(define-key global-map [menu-bar tools RBOOK show-time] '("Show processed time" . rbook-show-time))
(define-key global-map [menu-bar tools RBOOK make-audio-book] '("Make audio book" . rbook-make-audio-book))
(define-key global-map [menu-bar tools RBOOK read-bookmark] '("Read text from bookmark" . rbook-read-bookmark))
(define-key global-map [menu-bar tools RBOOK read-text] '("Read text from cursor" . rbook-read-text))

         .  , 
 "Tools"   "Book reader".




         
 :

`C-c r' (rbook-read-text) --       
.

`C-c b' (rbook-read-bookmark) --  ,   . 
   `book', ,   
   ,      .

         
  `C-g'.     
  ,      . 
          
.  ,    
    .

. Rbook     Emacs  
(`bookmark'),      Emacs, 
       .

  `C-c c' (rbook-customize)   ,
        ,
 , ,  ,      
.

 `C-c a' (rbook-make-audio-book)   
  ,    . 
    .   
        
   .   
        
   .     
  ,     
.      
         .

         
     `C-c t' (rbook-show-time).

       
  :

1)        .

2)        .

3)        .   
   ,        
    .

        
     ,  ,   
 . Rbook     
,      ,   
   . ,   ,
     .


					 
					<root@goga.energo.ru>
