Ctrl कुंजी और माउस स्क्रॉल के साथ Emacs फ़ॉन्ट आकार बदलना

Question

नोटपैड ++ मुझे Ctrl दबाकर फ़ॉन्ट आकार बढ़ाने की अनुमति दें और आगे बढ़ने के लिए माउस मध्य स्क्रॉल बटन घुमाएं।

उसी तरह, जब मैं Ctrl दबाता हूं और माउस मध्य स्क्रॉल बटन को पीछे घुमाता है, तो शौकीन आकार कम हो जाता है।

मैं Emacs के साथ कैसे प्राप्त कर सकता हूं?

Answer 1

AlexCombas' answer के लिए कोड:

 
(defun font-big() 
(interactive) 
(set-face-attribute 'default nil :height 
    (+ (face-attribute 'default :height) 10))) 

(defun font-small() 
(interactive) 
(set-face-attribute 'default nil :height 
    (- (face-attribute 'default :height) 10))) 

(global-set-key (kbd "<C-wheel-down>") 'font-small) 
(global-set-key (kbd "<C-wheel-up>") 'font-big) 

संपादित करें: एक मिनट और अधिकतम उपयोग के लिए

 
(defun font-big() 
(interactive) 
(set-face-attribute 'default nil :height 
    (min 720 
    (+ (face-attribute 'default :height) 10)))) 

(defun font-small() 
(interactive) 
(set-face-attribute 'default nil :height 
    (max 80 
    (- (face-attribute 'default :height) 10)))) 

Answer 2

सैद्धांतिक रूप से मैं आपको इसका उत्तर दे सकता हूं, लेकिन मेरे से अधिक कुशल मुझे लिस्प लिखना होगा, मैं खुद को समझने के लिए व्यस्त हूं।

अगर कोई कल तक जवाब नहीं देता है तो मैं किताबों को हिट करूंगा और इसे समझूंगा।

क्या किया जाना चाहिए: एक समारोह लिखें (font-बड़े) जो इस करता है:

1. फ़ॉन्ट डिफ़ॉल्ट आकार = font-डिफ़ॉल्ट आकार + 1`

2. फिर सभी खुले बफर का फिर से मूल्यांकन करें।

एक कुंजी (परिभाषित कुंजी नक्शा [सी पहिया ऊपर] 'font-बड़े)

तब के लिए भी ऐसा ही (font-छोटे) को समारोह में आबद्ध करें।

मुझे आशा है कि मैं विचार :)

Answer 3

emacs23 आप अपने .emacs.el लिए लाइनों निम्नलिखित जोड़ सकते हैं साथ

के लिए कम से कम आंशिक क्रेडिट मिलता है:

(global-set-key (kbd "<C-mouse-4>") 'text-scale-decrease) 
(global-set-key (kbd "<C-mouse-5>") 'text-scale-increase) 

Answer 4

इस प्रयास करें:

(global-set-key (kbd "<C-mouse-4>") (lambda() (interactive) (text-scale-decrease 1))) 
(global-set-key (kbd "<C-mouse-5>") (lambda() (interactive) (text-scale-increase 1))) 

Answer 5

Zoom Frame तुम क्या चाहते है। मैं वही करता हूं जो आप हर समय वर्णन करते हैं। zoom-frm.el लोड करने के बाद, इस तरह के कुछ बाइंडिंग जोड़ें:

 
    (global-set-key [S-mouse-1] 'zoom-in) 
    (global-set-key [C-S-mouse-1] 'zoom-out) 
    (global-set-key (vector (list 'control mouse-wheel-down-event)) 'zoom-in) 
    (global-set-key (vector (list 'control mouse-wheel-up-event)) 'zoom-out) 

यह भी देखें: http://www.emacswiki.org/emacs/SetFonts#ChangingFontSize