39 |
;; modifications before inserting or typing anything. |
;; modifications before inserting or typing anything. |
40 |
;; |
;; |
41 |
;; Faces can be selected from the keyboard as well. |
;; Faces can be selected from the keyboard as well. |
42 |
;; The standard keybindings are M-g (or ESC g) + letter: |
;; The standard keybindings are M-o (or ESC o) + letter: |
43 |
;; M-g i = "set italic", M-g b = "set bold", etc. |
;; M-o i = "set italic", M-o b = "set bold", etc. |
44 |
|
|
45 |
;;; Customization: |
;;; Customization: |
46 |
;; An alternative set of keybindings that may be easier to type can be set up |
;; An alternative set of keybindings that may be easier to type can be set up |
91 |
(require 'button)) |
(require 'button)) |
92 |
|
|
93 |
;;; Provide some binding for startup: |
;;; Provide some binding for startup: |
94 |
;;;###autoload (define-key global-map "\M-g" 'facemenu-keymap) |
;;;###autoload (define-key global-map "\M-o" 'facemenu-keymap) |
95 |
;;;###autoload (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) |
;;;###autoload (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) |
96 |
|
|
97 |
;; Global bindings: |
;; Global bindings: |
98 |
(define-key global-map [C-down-mouse-2] 'facemenu-menu) |
(define-key global-map [C-down-mouse-2] 'facemenu-menu) |
99 |
(define-key global-map "\M-g" 'facemenu-keymap) |
(define-key global-map "\M-o" 'facemenu-keymap) |
100 |
|
|
101 |
(defgroup facemenu nil |
(defgroup facemenu nil |
102 |
"Create a face menu for interactively adding fonts to text" |
"Create a face menu for interactively adding fonts to text" |