|
|
- /* A library to output the right key shortcut in any common app.
- Given a global variable babble_mode to show the environment and a
- key that calls the paste macro, do the right type of paste.
- Setting the context is done by another macro, or TBD interaction with the host.
-
- Emacs mode is probably most useful for people who don't usually use emacs
-
- https://www.ast.cam.ac.uk/~vasily/idl/emacs_commands_list.html
- */
-
- #include QMK_KEYBOARD_H
-
- #ifdef USE_BABBLEPASTE
- # include "babblePaste.h"
-
- # ifdef BABL_EMACS
-
- // probably should allow meta to not be ALT
- # define DMETA IMALT
-
- bool babblePaste_emacs(uint16_t keycode) {
- # ifdef BABL_MOVE
- BABLM(BABL_GO_LEFT_1C, SS_TAP(X_LEFT));
- BABLM(BABL_GO_RIGHT_1C, SS_TAP(X_RIGHT));
- BABLM(BABL_GO_LEFT_WORD, IMALT(X_B));
- BABLM(BABL_GO_RIGHT_WORD, IMALT(X_F));
- BABLM(BABL_GO_START_LINE, SS_LCTRL("a"));
- BABLM(BABL_GO_END_LINE, SS_LCTRL("e"));
- BABLM(BABL_GO_START_DOC, OMALT(IMSFT(X_COMMA)));
- BABLM(BABL_GO_END_DOC, OMALT(IMSFT(X_DOT)));
- BABLM(BABL_GO_NEXT_LINE, SS_LCTRL("n"));
- BABLM(BABL_GO_PREV_LINE, SS_LCTRL("p"));
- BABLM(BABL_GO_PARA_START, OMALT(IMSFT(X_LBRACKET)));
- BABLM(BABL_GO_PARA_END, OMALT(IMSFT(X_RBRACKET)));
- BABLM(BABL_PGDN, SS_LCTRL("v"));
- BABLM(BABL_PGUP, IMALT(X_V));
- BABLM(BABL_DEL_RIGHT_1C, SS_LCTRL("d"));
- BABLM(BABL_DEL_LEFT_WORD, IMCTL(X_BSPACE));
- BABLM(BABL_DEL_RIGHT_WORD, IMALT(X_D));
- BABLM(BABL_DEL_TO_LINE_END, SS_LCTRL("k"));
- BABLM(BABL_DEL_TO_LINE_START, SS_TAP(X_ESCAPE) "0" SS_LCTRL("k"));
- BABLM(BABL_MODE, "Emacs ");
- # endif
- # ifdef BABL_OSKEYS
- BABLM(BABL_UNDO, SS_LCTRL("x") "c");
- BABLM(BABL_REDO, SS_LCTRL("x") "c"); // arguably
- BABLM(BABL_CUT, SS_LCTRL("w"));
- BABLM(BABL_COPY, SS_LALT("w")); // really?
- BABLM(BABL_PASTE, SS_LCTRL("y"));
- BABLM(BABL_SELECT_ALL, SS_LCTRL("x") "h");
- BABLM(BABL_FIND, SS_LCTRL("s"));
- BABLM(BABL_FIND_NEXT, SS_LCTRL("s"));
- BABLM(BABL_FIND_PREV, SS_LCTRL("r"));
- BABLM(BABL_FIND_REPLACE, OMALT(IMSFT(X_5)));
- // BABLM( BABL_RUNAPP , //(SS_LALT("x") "shell") );// arguably
- BABLM(BABL_RUNAPP, IMALT(X_X) "split-window" SS_TAP(X_ENTER)); // arguably
- BABLM(BABL_WINDOW_NEXT, SS_LCTRL("x") "o");
- BABLM(BABL_WINDOW_PREV, SS_LCTRL("x") "o"); // arguably
- // BABLM( BABL_WINDOW_NEW, IMCTL(X_X)"n" ); //
- BABLM(BABL_CLOSE_APP, SS_LCTRL("x") "c");
- BABLM(BABL_HELP, SS_LCTRL("h") "a"); // start search in help
- // BABLM( BABL_LOCK, () ); // lock buffer? Too many options.
- // BABLM( BABL_SCREENCAPTURE, () ); // requires plugin?
-
- # endif
- # ifdef BABL_BROWSER
- /* you get to figure w3 out */
- # endif
-
- # ifdef BABL_APP
- BABLM(BABL_APP_SAVE, SS_LCTL("x") SS_LCTL("s"));
- BABLM(BABL_APP_SET_MARK, IMCTL(X_SPACE));
- /// BABLM( BABL_APP_MULTI_SELECT, SS_LCTRL("x") "rt" ); // arguably
- BABLM(BABL_SPLIT_FRAME_VERT, SS_LCTRL("x") "3");
- BABLM(BABL_UNSPLIT_FRAME_VERT, SS_LCTRL("u") SS_LCTRL("x") "0");
- BABLM(BABL_SPLIT_FRAME_HORIZONTAL, SS_LCTRL("x") "2");
- BABLM(BABL_UNSPLIT_FRAME_HORIZONTAL, SS_LCTRL("u") SS_LCTRL("x") "0");
- BABLM(BABL_NEXT_FRAME, SS_LCTRL("x") "o");
- BABLM(BABL_PREV_FRAME, SS_LCTRL("u") "-1" SS_LCTRL("x") "o");
- # endif
-
- // Todo, ring bell, flash light, show user this isn't supported
- return false;
- }
- # endif /* emacs mode*/
- #endif
|