From 615a77b17230dc41d5b0607626a94009a1204b09 Mon Sep 17 00:00:00 2001 From: Maciej Szlosarczyk Date: Mon, 3 Jul 2023 20:58:53 +0300 Subject: [PATCH] Add emulation of CMD key for Linux --- pkg/fonts.el | 4 ++-- pkg/sys-specific.el | 10 ++++++++++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/pkg/fonts.el b/pkg/fonts.el index edfefd9..82a61e0 100644 --- a/pkg/fonts.el +++ b/pkg/fonts.el @@ -84,9 +84,9 @@ ((>= 1920 (x-display-pixel-height)) (set-font +custom-font +custom-font-size)) - ;; 4K screen on Windows + ;; 4K screen on Windows or Linux ((>= 2160 (x-display-pixel-height)) - (set-font +custom-font (+ +custom-font-size 6))) + (set-font +custom-font (- +custom-font-size 5))) ;; Default (t (set-font +custom-font (+ +custom-font-size 2))))) diff --git a/pkg/sys-specific.el b/pkg/sys-specific.el index 94d59d7..a378e5d 100644 --- a/pkg/sys-specific.el +++ b/pkg/sys-specific.el @@ -65,6 +65,16 @@ ;;;;;;;;; Mac-specific config ;;;;;;;;;;;;;;;;;;;;; (if IS-GNU (progn + ;;;; Save and undo + (define-key +custom-keys-mode-map (kbd "s-s") 'save-buffer) + (define-key +custom-keys-mode-map (kbd "s-z") 'undo) + (define-key +custom-keys-mode-map (kbd "s-a") 'mark-whole-buffer) + + ;;;;;;;; Copy and paste bindings ;;;;;;;;;;;;;;;;;; + (define-key +custom-keys-mode-map (kbd "s-x") 'kill-region) + (define-key +custom-keys-mode-map (kbd "s-v") 'yank) + (define-key +custom-keys-mode-map (kbd "s-c") 'kill-ring-save) + ;;;;;;;;; Linux Ergo bindings (fix) ;;;;;;;;;;;;;;;;;; (define-key +custom-keys-mode-map (kbd "C-") 'end-of-line) (define-key +custom-keys-mode-map (kbd "C-") 'beginning-of-line)