summaryrefslogtreecommitdiffstats
path: root/SlickEdit/kkeys.e
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-11 08:21:29 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-11 08:21:29 +0000
commit29cd838eab01ed7110f3ccb2e8c6a35c8a31dbcc (patch)
tree63ef546b10a81d461e5cf5ed9e98a68cd7dee1aa /SlickEdit/kkeys.e
parentInitial commit. (diff)
downloadkbuild-29cd838eab01ed7110f3ccb2e8c6a35c8a31dbcc.tar.xz
kbuild-29cd838eab01ed7110f3ccb2e8c6a35c8a31dbcc.zip
Adding upstream version 1:0.1.9998svn3589+dfsg.upstream/1%0.1.9998svn3589+dfsg
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'SlickEdit/kkeys.e')
-rw-r--r--SlickEdit/kkeys.e427
1 files changed, 427 insertions, 0 deletions
diff --git a/SlickEdit/kkeys.e b/SlickEdit/kkeys.e
new file mode 100644
index 0000000..e7f39aa
--- /dev/null
+++ b/SlickEdit/kkeys.e
@@ -0,0 +1,427 @@
+/* $Id: kkeys.e 3555 2022-02-16 13:20:30Z bird $ */
+/** @file
+ * Bird's key additions to Visual Slickedit.
+ */
+
+/*
+ * Copyright (c) 2004-2010 knut st. osmundsen <bird-kBuild-spamx@anduin.net>
+ *
+ * This file is part of kBuild.
+ *
+ * kBuild is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * kBuild is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with kBuild. If not, see <http://www.gnu.org/licenses/>
+ *
+ */
+
+/*******************************************************************************
+* Header Files *
+*******************************************************************************/
+#include 'slick.sh'
+
+
+/*******************************************************************************
+* Global Variables *
+*******************************************************************************/
+defeventtab default_keys
+def 'A-UP' = find_prev
+def 'A-DOWN' = find_next
+def 'A-PGUP' = prev_proc
+def 'A-PGDN' = next_proc
+def 'A-d' = delete_line
+def 'A-o' = kkeys_duplicate_line
+def 'A-s' = kkeys_switch_lines
+def 'A-u' = undo_cursor /* will cursor movement in one undo step. */
+def 'A-g' = goto_line
+def 'A-z' = kkeys_fullscreen
+def 'INS' = boxer_paste
+def 'S-INS' = insert_toggle
+def 'S- ' = kkey_space;
+def 'C-UP' = kkeys_scroll_down
+def 'C-DOWN' = kkeys_scroll_up
+def 'C-PGUP' = prev_window
+def 'C-PGDN' = next_window
+def 'C-DEL' = kkeys_delete_right
+#if __VERSION__ >= 15.0
+def 'S-C-=' = svn_diff_with_base
+#endif
+#if __VERSION__ >= 22.0
+def 'C-=' = diff;
+def 'C--' = nil;
+def 'S-A-C-=' = wfont_zoom_in;
+def 'S-A-C--' = wfont_zoom_out;
+#endif
+#if __VERSION__ >= 14.0
+def 'C-/' = kkeys_push_ref
+def 'S-C-/' = push_ref
+def 'S-A-]' = next_buff_tab
+def 'S-A-[' = prev_buff_tab
+def 'S-A-U' = kkeys_gen_uuid
+#endif
+/* For the mac (A/M mix, all except A-z): */
+def 'M-1' = cursor_error
+def 'M-UP' = find_prev
+def 'M-DOWN' = find_next
+def 'M-PGUP' = prev_proc
+def 'M-PGDN' = next_proc
+def 'M-d' = delete_line
+def 'M-f' = kkeys_open_file_menu
+def 'M-e' = kkeys_open_edit_menu
+def 'M-o' = kkeys_duplicate_line
+def 'M-s' = kkeys_switch_lines
+def 'M-t' = kkeys_open_tools_menu
+def 'M-u' = undo_cursor
+def 'M-g' = goto_line
+#if __VERSION__ >= 14.0
+def 'S-M-]' = next_buff_tab
+def 'S-M-[' = prev_buff_tab
+def 'S-M-U' = kkeys_gen_uuid
+#endif
+#if __VERSION__ >= 22.0
+def 'S-M-C-=' = wfont_zoom_in;
+def 'S-M-C--' = wfont_zoom_out;
+#endif
+/* Fixing brainfucked slickedit silliness: */
+def 'M-v' = paste
+
+/* Want proper shift-space in C. */
+defeventtab c_keys
+def 'S- ' = kkey_space;
+
+
+/** Saves the cursor position. */
+static long kkeys_save_cur_pos()
+{
+ long offset = _QROffset();
+ message(offset);
+ return offset;
+}
+
+/** Restores a saved cursor position. */
+static void kkeys_restore_cur_pos(long lSavedCurPos)
+{
+ _GoToROffset(lSavedCurPos);
+}
+
+/** Fixes shift-space while in block select, default slickedit since a while
+ * is to exit selection mode and insert a single space. A long long time
+ * ago, I think slickedit would ask if you wanted the normal 'space'
+ * behaviour for this. */
+_command void kkey_space()
+{
+ /** @todo figure out when these functions were added and such. */
+ if (!select_active() || _select_type('') != 'BLOCK')
+ keyin(' ');
+ else
+ block_insert_text(' ');
+}
+
+_command kkeys_switch_lines()
+{
+ /* Allocate a selection for copying the current line. */
+ cursor_down();
+ mark_id= _alloc_selection();
+ if (mark_id>=0)
+ {
+ _select_line(mark_id);
+ cursor_up();
+ cursor_up();
+ _move_to_cursor(mark_id);
+ cursor_down();
+ _free_selection(mark_id);
+ // This selection can be freed because it is not the active selection.
+ }
+ else
+ message(get_message(mark_id));
+}
+
+_command kkeys_duplicate_line()
+{
+ /* Allocate a selection for copying the current line. */
+ mark_id= _alloc_selection();
+ if (mark_id>=0)
+ {
+ _select_line(mark_id);
+ _copy_to_cursor(mark_id);
+ // This selection can be freed because it is not the active selection.
+ _free_selection(mark_id);
+ cursor_down();
+ }
+ else
+ message(get_message(mark_id));
+}
+
+_command kkeys_delete_right()
+{
+ col=p_col;
+
+ /* virtual space hack */
+ keyin(" ");
+ left();
+ _delete_char();
+
+ /* are we in a word, delete it? */
+ ch = get_text();
+ if (ch != ' ' && ch != "\t" && ch != "\r" && ch != "\n")
+ {
+ /* Delete word and any trailing spaces, but stop at new line.
+ (Don't use delete_word here!) */
+ if (search('([[:alnum:]_]#|?)[ \t]@','r+') == 0)
+ {
+ _nrseek(match_length('s'));
+ _delete_text(match_length());
+ }
+ }
+ else
+ {
+ /* delete spaces and newlines until the next word. */
+ if (search('[ \t\n\r]#','r+') == 0)
+ {
+ _nrseek(match_length('s'));
+ _delete_text(match_length());
+ }
+ }
+
+ p_col=col
+ //retrieve_command_results()
+}
+
+_command kkeys_scroll_up()
+{
+ if (p_cursor_y == 0)
+ down();
+ set_scroll_pos(p_left_edge, p_cursor_y-1);
+}
+
+_command kkeys_scroll_down()
+{
+ if (p_cursor_y intdiv p_font_height == p_char_height-1)
+ up()
+ set_scroll_pos(p_left_edge, p_cursor_y+p_font_height);
+}
+
+_command boxer_paste()
+{
+ long lSavedCurPos = kkeys_save_cur_pos()
+ paste();
+ kkeys_restore_cur_pos(lSavedCurPos);
+}
+
+_command kkeys_fullscreen()
+{
+ fullscreen();
+}
+
+
+/* for later, not used yet. */
+
+_command boxer_select()
+{
+ if (command_state())
+ fSelected = (p_sel_length != 0);
+ else
+ fSelected = select_active();
+
+ key = last_event();
+ if (key :== name2event('s-down'))
+ {
+ if (!fSelected)
+ select_line();
+ else
+ cursor_down();
+ }
+ else if (key :== name2event('s-up'))
+ {
+ if (!fSelected)
+ select_line();
+ else
+ cursor_up();
+ }
+ else if (key :== name2event('s-left'))
+ {
+ if (!fSelected)
+ select_char();
+ else
+ cursor_left();
+ }
+ else if (key :== name2event('s-right'))
+ {
+ if (!fSelected)
+ select_char();
+ else
+ cursor_right();
+ }
+ else if (key :== name2event('s-home'))
+ {
+ if (!fSelected) select_char();
+ begin_line_text_toggle();
+ }
+ else if (key :== name2event('s-end'))
+ {
+ if (!fSelected) select_char();
+ end_line();
+ if (p_col > 0) //this is not identical with boxer...
+ cursor_left();
+ }
+ else if (key :== name2event('c-s-home'))
+ {
+ if (!fSelected) select_char();
+ top_of_buffer();
+ }
+ else if (key :== name2event('c-s-end'))
+ {
+ if (!fSelected) select_char();
+ bottom_of_buffer();
+ }
+ else if (key :== name2event('c-s-left'))
+ {
+ if (!fSelected)
+ {
+ cursor_left();
+ select_char(); /* start this selection non-inclusive */
+ }
+ prev_word();
+ }
+ else if (key :== name2event('c-s-right'))
+ {
+ if (!fSelected)
+ {
+ select_char(); /* start this selection non-inclusive */
+ }
+ /* temporary hack */
+ prevpos = p_col;
+ prevline = p_line;
+ p_col++;
+ next_word();
+ if ((p_line == prevline && p_col > prevpos + 1) || (p_line != prevline && p_col > 0))
+ p_col--;
+ }
+}
+
+#if __VERSION__ >= 14.0
+
+/**
+ * Search for references only in the current workspace.
+ */
+_command kkeys_push_ref()
+{
+ if (_isEditorCtl())
+ {
+ sProjTagFile = project_tags_filename();
+ sLangId = p_LangId;
+ if (sProjTagFile != '')
+ {
+
+# if __VERSION__ < 21.0 /** @todo fix me? */
+ /* HACK ALERT: Make sure gtag_filelist_last_ext has the right value. */
+ _update_tag_filelist_ext(sLangId);
+
+ /* save */
+ boolean saved_gtag_filelist_cache_updated = gtag_filelist_cache_updated;
+ _str saved_gtag_filelist_ext[] = gtag_filelist_ext;
+
+ /* HACK ALERT: Replace the tag file list for this language. */
+ gtag_filelist_ext._makeempty();
+ gtag_filelist_ext[0] = sProjTagFile;
+ gtag_filelist_cache_updated = true;
+# endif
+
+ /* Do the reference searching. */
+ push_ref('-e ' :+ sLangId);
+
+# if __VERSION__ < 21.0
+ /* restore*/
+ gtag_filelist_cache_updated = saved_gtag_filelist_cache_updated;
+ gtag_filelist_ext = saved_gtag_filelist_ext;
+# endif
+ }
+ else
+ push_ref();
+ }
+ else
+ push_ref();
+}
+
+
+_command kkeys_gen_uuid()
+{
+ _str uuid = guid_create_string('G');
+ uuid = lowcase(uuid);
+
+ long lSavedCurPos = kkeys_save_cur_pos();
+ _insert_text(uuid);
+ kkeys_restore_cur_pos(lSavedCurPos);
+}
+
+#endif /* >= 14.0 */
+
+/** @name Mac OS X Hacks: Alt+[fet] -> drop down menu
+ *
+ * This only works when the alt menu hotkeys are enabled in the
+ * settings. Al
+ *
+ * @{
+ */
+_command void kkeys_open_file_menu()
+{
+ call_key(A_F)
+}
+
+_command void kkeys_open_edit_menu()
+{
+ call_key(A_E)
+}
+
+_command void kkeys_open_tools_menu()
+{
+ call_key(A_T)
+}
+/** @} */
+
+void nop()
+{
+
+}
+
+
+#if __VERSION__ >= 14.0
+
+/*
+ * Some diff keyboard hacks for Mac OS X.
+ */
+defeventtab _diff_form
+def 'M-f' = kkeys_diffedit_find
+def 'M-n' = kkeys_diffedit_next
+def 'M-p' = kkeys_diffedit_prev
+
+_command kkeys_diffedit_find()
+{
+ _nocheck _control _ctlfind;
+ _ctlfind.call_event(_ctlfind, LBUTTON_UP);
+}
+
+_command kkeys_diffedit_next()
+{
+ _nocheck _control _ctlfile1;
+ _nocheck _control _ctlfile2;
+ _DiffNextDifference(_ctlfile1, _ctlfile2);
+}
+
+_command kkeys_diffedit_prev()
+{
+ _nocheck _control _ctlfile1;
+ _nocheck _control _ctlfile2;
+ _DiffNextDifference(_ctlfile1, _ctlfile2, '-');
+}
+
+#endif /* >= 14.0 */
+