From ea5be11c0f620292728ba40f5194294e79c65abb Mon Sep 17 00:00:00 2001
From: Nigel <windymilla@users.noreply.github.com>
Date: Tue, 28 May 2024 17:16:35 +0100
Subject: [PATCH] Add Mac binding for beg/end of line (#1296)

Also fix bug in "Select to end of file" shortcut - it did sel to beg.
---
 src/lib/Guiguts/KeyBindings.pm | 36 +++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 16 deletions(-)

diff --git a/src/lib/Guiguts/KeyBindings.pm b/src/lib/Guiguts/KeyBindings.pm
index 53220bcf..71f94fc4 100644
--- a/src/lib/Guiguts/KeyBindings.pm
+++ b/src/lib/Guiguts/KeyBindings.pm
@@ -239,22 +239,26 @@ sub keybindings {
 
     # Extra bindings for Mac
     if ($::OS_MAC) {
-        keybind( '<Meta-q>',          sub { ::_exit(); } );
-        keybind( '<Meta-s>',          sub { ::savefile(); } );
-        keybind( '<Meta-a>',          sub { $textwindow->selectAll; } );
-        keybind( '<Meta-c>',          sub { ::textcopy(); } );
-        keybind( '<Meta-x>',          sub { ::cut(); } );
-        keybind( '<Meta-v>',          sub { ::paste(); } );
-        keybind( '<Meta-f>',          sub { ::searchpopup(); } );
-        keybind( '<Meta-Shift-f>',    sub { ::quicksearchpopup(); } );
-        keybind( '<Meta-g>',          undef, '<<FindNext>>' );
-        keybind( '<Meta-Shift-g>',    undef, '<<FindNextReverse>>' );
-        keybind( '<Meta-z>',          undef, '<<Undo>>' );
-        keybind( '<Meta-y>',          undef, '<<Redo>>' );
-        keybind( '<Meta-Up>',         [ 'SetCursor', '1.0' ] );
-        keybind( '<Meta-Shift-Up>',   [ 'KeySelect', '1.0' ] );
-        keybind( '<Meta-Down>',       [ 'SetCursor', 'end-1c' ] );
-        keybind( '<Meta-Shift-Down>', [ 'KeySelect', '1.0' ] );
+        keybind( '<Meta-q>',           sub { ::_exit(); } );
+        keybind( '<Meta-s>',           sub { ::savefile(); } );
+        keybind( '<Meta-a>',           sub { $textwindow->selectAll; } );
+        keybind( '<Meta-c>',           sub { ::textcopy(); } );
+        keybind( '<Meta-x>',           sub { ::cut(); } );
+        keybind( '<Meta-v>',           sub { ::paste(); } );
+        keybind( '<Meta-f>',           sub { ::searchpopup(); } );
+        keybind( '<Meta-Shift-f>',     sub { ::quicksearchpopup(); } );
+        keybind( '<Meta-g>',           undef, '<<FindNext>>' );
+        keybind( '<Meta-Shift-g>',     undef, '<<FindNextReverse>>' );
+        keybind( '<Meta-z>',           undef, '<<Undo>>' );
+        keybind( '<Meta-y>',           undef, '<<Redo>>' );
+        keybind( '<Meta-Up>',          [ 'SetCursor', '1.0' ] );
+        keybind( '<Meta-Shift-Up>',    [ 'KeySelect', '1.0' ] );
+        keybind( '<Meta-Down>',        [ 'SetCursor', 'end-1c' ] );
+        keybind( '<Meta-Shift-Down>',  [ 'KeySelect', 'end-1c' ] );
+        keybind( '<Meta-Left>',        [ 'SetCursor', 'insert linestart' ] );
+        keybind( '<Meta-Shift-Left>',  [ 'KeySelect', 'insert linestart' ] );
+        keybind( '<Meta-Right>',       [ 'SetCursor', 'insert lineend' ] );
+        keybind( '<Meta-Shift-Right>', [ 'KeySelect', 'insert lineend' ] );
     }
 
     # Bookmarks - multiple key-combinations to allow for keyboard differences