Keyboard macros: Difference between revisions

 

=={{header|AutoHotkey}}==

{

TrayTip, counting, %A_Index% press alt-p to pause

TrayTip, resume, resuming, 2

Pause, off

See [http://www.autohotkey.com/forum/topic44290.html&highlight=vim ahk-viper-mode] for a context sensitive vi key bindings example.

 

=={{header|BBC BASIC}}==

===Native===

*KEY 2 |!|B

REPEAT

DEF PROCmethod2

PRINT "You pressed F2"

===Windows===

{{works with|BBC BASIC for Windows}}

VK_F1 = &70

VK_F2 = &71

DEF PROCmethod2

PRINT "You pressed F2"

 

=={{header|C}}==

 

The following example grabs Alt+F6 and Alt+F7 system-wide on a X server.

#include <stdlib.h>

#include <X11/Xlib.h>

}

return EXIT_SUCCESS;

 

=={{header|Clojure}}==

 

The following example is at application level, printing out what key was pressed:

(ns hello-seesaw.core

(:use seesaw.core))

pack!

show!)))

 

=={{header|Delphi}}==

Version Console Application

program Key_Bindings_test;

 

readln;

end.

{{out}}

<pre>

=={{header|EchoLisp}}==

The '''(meta-key "key-value" "bound-string")''' function binds a modifier+key keypress to a string or function call.

;; see initial bindings : GREEK DICTIONARY

(meta-keys) → (("0" "❌") ("1" "❗️") ("2" "❓") ("3" "✔️") ("4" "⛔️") ("5" "✅") ("6" "🚩") ("7" "⌚️")

(meta-key "A" "Antoinette") ; string

(meta-key "H" "(begin (writeln 'HELLO) (date 'today))") ; function call

 

=={{header|Go}}==

 

Note also that if you pass 'nil' to the XOpenDisplay function, it defaults to the value of the DISPLAY environment variable which has to be in a certain format to enable a connection to the X server to be established - check [https://www.x.org/releases/X11R7.7/doc/libX11/libX11/libX11.html the documentation] for details.

 

/*

fmt.Println("XOpenDisplay did not succeed")

}

 

=={{header|HicEst}}==

CALL F2

! ...

! Fn is suspended if m > n AND n <= 5, else Fm is queued

! ...

 

=={{header|Icon}} and {{header|Unicon}}==

 

This is application-specific and works in both languages:

global kMap

 

procedure italicsOff()

return "<\\i>"

 

Sample run:

 

=={{header|Java}}==

package keybord.macro.demo;

 

}

}

 

=={{header|JavaScript}}==

The example below captures the F7 key when pressed, if the document (that is, the web page) has focus. If the function returns ''false'', the event processing is halted. If it returns any other value, including ''undefined'', the event continues up the DOM tree ('bubbling').

 

if (evt.keyCode === 118) {

alert("You pressed F7!");

return false;

}

 

See [http://www.quirksmode.org/js/keys.html quirksmode] for more information about key detection in JavaScript.

=={{header|Julia}}==

Macros are within the Gtk window.

 

function keypresswindow()

 

keypresswindow()

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import javax.swing.JFrame

isVisible = true

}

 

=={{header|M2000 Interpreter}}==

Module CheckIt {

\\ Scan statement exist from version 1

}

Checkit

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Map the keystroke t to a simple script

 

=={{header|Nim}}==

{{libheader|gintro}}

As we need to catch the key press events, we give an example inside a Gtk3 application.

 

import gintro/[glib, gobject, gio]

let app = newApplication(App, "Rosetta.KeyboardMacros")

discard app.connect("activate", activate)

 

=={{header|Oz}}==

Window-specific key bindings:

[QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}

Label

action:toplevel#close

)}

 

=={{header|Perl}}==

use warnings;

use Term::ReadKey;

}

 

 

=={{header|Phix}}==

a general key handler.

Obviously K_C and K_F2 could be swapped without any problem.

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

 

===system===

of "keyboard macros" - though of course you could easily replace that

SendInput call with any routine of your choosing.

<span style="color: #000080;font-style:italic;">--

-- demo\arwendemo\hotkey.exw

<span style="color: #000000;">WinMain</span><span style="color: #0000FF;">(</span><span style="color: #000000;">Main</span><span style="color: #0000FF;">,</span><span style="color: #000000;">SW_NORMAL</span><span style="color: #0000FF;">)</span>

 

=={{header|PicoLisp}}==

global variable, 'Up' and 'Down' arrows to increment or decrement that value,

and 'Home' to print the current value to the console.

 

(fkey *XtF1

 

(fkey *XtHome

Output when hitting 'F1', 'Down', 'Up', 'Up' and 'Home':

<pre>Initialized value to 1

PureBasic has support for shortcut/macro creation in any window that supports events. This allows for creation of both single and combinations as shown in the code below.

For full set of combinations on PC, Mac & Linux please see the official manual, [http://www.purebasic.com/documentation/window/addkeyboardshortcut.html here].

#Demo1 = 0

#Demo2 = 1

EndSelect

ForEver

 

=={{header|Python}}==

Works on Unix platforms.

 

import curses

 

curses.echo()

curses.endwin()

 

=={{header|Racket}}==

 

#lang racket

 

macros '())]

[else (write-byte b) (flush-output) (loop inps v '())])))))

 

=={{header|Raku}}==

(formerly Perl 6)

my @INPUT;

 

default { log "Unrecognized key: $_"; }

}

 

=={{header|REBOL}}==

Title: "Keyboard Macros"

URL: http://rosettacode.org/wiki/Keyboard_macros

pad 1x100 return

text "(c) 1977 G. Beker"

 

=={{header|REXX}}==

<br><br>REXX programs not included are '''$T''' which is only used when specific options are used (used when TOPS is specified),

<br>the '''$ERR''' program which issues errors, and '''$H''' which shows '''help''' and other documentation.

trace off

parse arg !

syntax: !sigl=sigl; call er 13,!FID(2) !FID(3) !sigl !cal() condition('D') sourceline(!sigl)

whenstamp: arg whenFID; call lineout whenFID,strip(left(date('U'),6)left(date("S"),4) time() arg(2)); call lineout whenFID,' '; call lineout whenFID; return

 

=={{header|Ring}}==

load "guilib.ring"

 

on 16777265 see "You pressed F2 " + nl

off

Output:

<pre>

Here's a sample from the Shoes manual showing how to capture key sequences. This is application specific.

 

@info = para "NO KEY is PRESSED."

keypress do |k|

@info.replace "#{k.inspect} was PRESSED."

end

 

A more specific example, using some emacs bindings

 

keypress do |key|

case key

end

end

 

=={{header|Scala}}==

===Java Swing Interoperability===

{{libheader|Scala Java Swing interoperability}}

 

import javax.swing.{JFrame, JLabel, WindowConstants}

}

 

 

=={{header|Tcl}}==

{{libheader|Tk}}

All Tk bindings are bound to a context that is no wider than a particular application and is frequently smaller (e.g., a single dialog box or an individual widget).

# Show off some emacs-like bindings...

pack [label .l -text "C-x C-s to save, C-x C-c to quit"]

tk_messageBox -message "We would save here"

}

===Key-to-key mapping macros===

A more direct macro-like facility (substituting one key sequence for another) would be:

foreach c [split "Macro demo!" {}] {

event generate %W $c

}

This can then be wrapped up like this:

proc sendMacro {w string} {

foreach c [split $string {}] {

macro F2 "You pressed the F2 key"

macro F3 "I'm getting bored here..."

 

=={{header|Vedit macro language}}==

// The menu item may then contain the commands directly, or it may call a macro from disk.

// This has the advantage that the key binding is shown in the menu.

 

// Remove a key assignment. If INSERT option was used when the key was assigned, the old assignment will come in effect again.

 

=={{header|Wren}}==

<br>

As it's not currently possible for Wren-cli to access Xlib directly, we embed a Wren script in a C application to complete this task.

 

var GrabModeAsync = 1

xd.ungrabKey(xd.keysymToKeycode(X.stringToKeysym("F7")), Mod1Mask, drw)

xd.ungrabKey(xd.keysymToKeycode(X.stringToKeysym("F6")), Mod1Mask, drw)

<br>

We now embed this Wren script in the following C program, compile and run it.

#include <stdlib.h>

#include <string.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;

 

{{omit from|ACL2}}