larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Replaced global-text-scale-mode.

Browse Source 
It's replaced with functions to increase/decrease the font.
This commit is contained in:
Lars Tveito 2015-04-07 21:28:16 +02:00
parent d28a3a9e61
commit edf83961b9
2 changed files with 46 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
init.el
View File

@ -707,27 +707,29 @@ given, the duplicated region will be commented out."
;; Presentation-mode
;; When giving talks it's nice to be able to scale the text
;; globally. =text-scale-mode= works great for a single buffer, this advice
;; makes this work globally.
;; When giving talks it's nice to be able to adjust the size of everything
;; (not just a buffer like ~text-scale-mode~ provides). This is not a
;; particularly neat solution, but it works OK. It simply
;; increases/decreases the size of the font. It assumes that your using
;; Inconsolata with size 14 by default. This should be probably be
;; generalized (or maybe be substituted by a package if it's out there).
(defadvice text-scale-mode (around all-buffers (arg) activate)
(if (not global-text-scale-mode)
ad-do-it
(setq-default text-scale-mode-amount text-scale-mode-amount)
(dolist (buffer (buffer-list))
(with-current-buffer buffer
ad-do-it))))
(defun global-scale-default ()
(interactive)
(set-face-attribute 'default nil :font "Inconsolata-14"))
;; We don't want this to be default behavior, so we can make a global mode
;; from the =text-scale-mode=, using =define-globalized-minor-mode=.
(lexical-let ((size 14))
(defun global-scale-up ()
(interactive)
(set-face-attribute
'default nil
:font (concat "Inconsolata-" (number-to-string (incf size)))))
(require 'face-remap)
(define-globalized-minor-mode
global-text-scale-mode
text-scale-mode
(lambda () (text-scale-mode 1)))
(defun global-scale-down ()
(interactive)
(set-face-attribute
'default nil
:font (concat "Inconsolata-" (number-to-string (decf size))))))
;; Shell
@ -1042,6 +1044,9 @@ math-block around the region."
(define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "C-c .") (cycle-themes))
(define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch)
(define-key custom-bindings-map (kbd "C-c C-0") 'global-scale-default)
(define-key custom-bindings-map (kbd "C-c C-=") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C--") 'global-scale-down)
(define-key custom-bindings-map (kbd "C-x t") 'toggle-shell)
(define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines)
(define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing)

43
init.org
View File

@ -893,30 +893,30 @@
** Presentation-mode
When giving talks it's nice to be able to scale the text
globally. =text-scale-mode= works great for a single buffer, this advice
makes this work globally.
When giving talks it's nice to be able to adjust the size of everything
(not just a buffer like ~text-scale-mode~ provides). This is not a
particularly neat solution, but it works OK. It simply
increases/decreases the size of the font. It assumes that your using
Inconsolata with size 14 by default. This should be probably be
generalized (or maybe be substituted by a package if it's out there).
#+BEGIN_SRC emacs-lisp
(defadvice text-scale-mode (around all-buffers (arg) activate)
(if (not global-text-scale-mode)
ad-do-it
(setq-default text-scale-mode-amount text-scale-mode-amount)
(dolist (buffer (buffer-list))
(with-current-buffer buffer
ad-do-it))))
#+END_SRC
(defun global-scale-default ()
(interactive)
(set-face-attribute 'default nil :font "Inconsolata-14"))
We don't want this to be default behavior, so we can make a global mode
from the =text-scale-mode=, using =define-globalized-minor-mode=.
(lexical-let ((size 14))
(defun global-scale-up ()
(interactive)
(set-face-attribute
'default nil
:font (concat "Inconsolata-" (number-to-string (incf size)))))
#+BEGIN_SRC emacs-lisp
(require 'face-remap)
(define-globalized-minor-mode
global-text-scale-mode
text-scale-mode
(lambda () (text-scale-mode 1)))
(defun global-scale-down ()
(interactive)
(set-face-attribute
'default nil
:font (concat "Inconsolata-" (number-to-string (decf size))))))
#+END_SRC
* Mode specific
@ -1318,6 +1318,9 @@
(define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "C-c .") (cycle-themes))
(define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch)
(define-key custom-bindings-map (kbd "C-c C-0") 'global-scale-default)
(define-key custom-bindings-map (kbd "C-c C-=") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C--") 'global-scale-down)
(define-key custom-bindings-map (kbd "C-x t") 'toggle-shell)
(define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines)
(define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing)