Quellcode durchsuchen

Add zoom key binding and menu item

Fred Gilham vor 1 Monat
Ursprung
Commit
879b472771
1 geänderte Dateien mit 10 neuen und 2 gelöschten Zeilen
  1. 10 2
      bible.el

+ 10 - 2
bible.el

@@ -329,7 +329,7 @@ bible--display-lemma-hebrew."
 
 ;;;; Keymaps
 
-;; N.B. Bible menu items appear in reverse order of their definition
+;; N.B. Bible Menu items appear in reverse order of their definition
 ;; below
 
 (defconst bible-map (make-sparse-keymap)
@@ -364,11 +364,17 @@ bible--display-lemma-hebrew."
 (define-key bible-map "w" 'bible-toggle-word-study)
 (define-key bible-map "l" 'bible-toggle-red-letter)
 
+(define-key bible-map "z" 'text-scale-adjust)
+(define-key bible-map
+	    [menu-bar bible zoom-text]
+	    '("Zoom Text" . text-scale-adjust))
+
 (define-key bible-map "x" 'bible-split-display)
 (define-key bible-map
 	    [menu-bar bible split-display]
 	    '("Split Display" . bible-split-display))
 
+
 ;;;;; Search
 (define-key bible-map "/" 'bible-search)
 (define-key bible-map "s" 'bible-search)
@@ -389,8 +395,10 @@ bible--display-lemma-hebrew."
 (define-key bible-search-mode-map (kbd "RET") 'bible-search-mode-follow-verse)
 
 (defconst bible-term-hebrew-mode-map (make-sparse-keymap))
-(defconst bible-term-greek-mode-map (make-sparse-keymap))
+(define-key bible-term-hebrew-mode-map "z" 'text-scale-adjust)
 
+(defconst bible-term-greek-mode-map (make-sparse-keymap))
+(define-key bible-term-greek-mode-map "z" 'text-scale-adjust)
 (define-key bible-term-greek-mode-map [mouse-1] 'bible-search-mode-follow-xref)
 
 ;;;;; Navigation