Re: 26.1-rc1: global-set-key suggestions

[Alan Third <alan@idiocy.org>]

[-- Attachment #1: Type: text/plain, Size: 474 bytes --]

On Sat, Apr 28, 2018 at 09:03:42PM -0400, Van Ly wrote:
> I'd like to suggest the following improvement to the out-of-the-box
> behaviour on apple-darwin, NS appkit :-
> 
>     ;;
>     ;; Allow Command-Plus-or-Minus to text-scale fontsize.
>     ;;
> 
>     (global-set-key (kbd "s-+") #'text-scale-increase)
>     (global-set-key (kbd "s-=") #'text-scale-increase)
>     (global-set-key (kbd "s--") #'text-scale-decrease)

I’ve attached a patch for this.
-- 
Alan Third

[-- Attachment #2: 0001-Add-NS-style-text-scale-keybindings.patch --]
[-- Type: text/plain, Size: 1060 bytes --]

From 53670c6fdab102e2790ef7ff3c17bf0899d7e377 Mon Sep 17 00:00:00 2001
From: Alan Third <alan@idiocy.org>
Date: Thu, 31 May 2018 21:28:09 +0100
Subject: [PATCH] Add NS style text scale keybindings

* lisp/term/ns-win.el: Add super-based keybindings for adjusting text
zoom.
---
 lisp/term/ns-win.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index eff8adcd3b..8b23cab010 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -141,6 +141,10 @@ global-map
 (define-key global-map [?\s-x] 'kill-region)
 (define-key global-map [?\s-y] 'ns-paste-secondary)
 (define-key global-map [?\s-z] 'undo)
+(define-key global-map [?\s-+] 'text-scale-adjust)
+(define-key global-map [?\s-=] 'text-scale-adjust)
+(define-key global-map [?\s--] 'text-scale-adjust)
+(define-key global-map [?\s-0] 'text-scale-adjust)
 (define-key global-map [?\s-|] 'shell-command-on-region)
 (define-key global-map [s-kp-bar] 'shell-command-on-region)
 (define-key global-map [?\C-\s- ] 'ns-do-show-character-palette)
-- 
2.16.1