110 lines
2.2 KiB
Text
110 lines
2.2 KiB
Text
|
#lang scribble/manual
|
||
|
|
@(require (for-label racket))
|
||
|
|
|
||
|
|
@title{Emacs GUI}
|
||
|
|
Emacs user interfaces@section{categories}
|
||
|
|
Frontends
|
||
|
|
|
||
|
|
The Emacs interface actually has some nice options for user interfaces as well. Here are some examples:
|
||
|
|
|
||
|
|
@racketblock[
|
||
|
|
// create a buffer:
|
||
|
|
p = EmacsBuffer.new;
|
||
|
|
|
||
|
|
// show the buffer:
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// create a key action for the buffer:
|
||
|
|
|
||
|
|
p.defineKey( "hello", { "hey there".postln; } );
|
||
|
|
|
||
|
|
// type hello on the window and look at the postbuffer
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
p.defineKey( "hey there", { "hello".postln; } );
|
||
|
|
|
||
|
|
// type hey there and look at the postbuffer
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// put some text in the buffer:
|
||
|
|
|
||
|
|
p.insert( "this is a really interesting text to read in the buffer" );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// make a newline:
|
||
|
|
|
||
|
|
p.newline;
|
||
|
|
|
||
|
|
// make a button:
|
||
|
|
|
||
|
|
p.button( [ "on", "off", "in between" ], { |v| v.postln; } );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// make a button with a different look:
|
||
|
|
p.button( [ "on", "off", "in between" ], { |v| v.postln; }, "******", "+++++" );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// create a close button:
|
||
|
|
p.closeButton;
|
||
|
|
// clicking it will close the buffer!
|
||
|
|
|
||
|
|
p = EmacsBuffer.new;
|
||
|
|
|
||
|
|
p.editableField( "write something here", "like this?", { |v| v.postln; } );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// moving the cursor around in the buffer:
|
||
|
|
p.gotoBob; // beginning
|
||
|
|
p.gotoEob; // end
|
||
|
|
p.goto( 5 ); // go to fifth position
|
||
|
|
|
||
|
|
// making it a sclang-mode buffer to write code in:
|
||
|
|
Emacs.evalLispExpression( p.use( [ 'sclang-mode' ] ).asLispString );
|
||
|
|
|
||
|
|
// close it:
|
||
|
|
p.free;
|
||
|
|
|
||
|
|
//
|
||
|
|
|
||
|
|
p = EmacsBuffer.new; // args: name
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// making a number box
|
||
|
|
n = EmacsNumber.new( p, "number box", [0,5].asSpec, { |v| v.postln; } ); // args: buffer, tag/label, spec, action
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// making a button:
|
||
|
|
x = EmacsButton( p, [ "on", "off", "in between" ], { |v| v.postln; }, "******", "+++++" );
|
||
|
|
// args: buffer, states, action, prefix, suffix
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
t = EmacsText( p, "hello", 30 ); // args: buffer, string, size, align
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
p.newline;
|
||
|
|
t = EmacsText( p, "helloooo", 30, \right ); // args: buffer, string, size, align
|
||
|
|
|
||
|
|
p.newline;
|
||
|
|
e = EmacsEditableField( p, "edit field", "edit me" ).action_( { |v| v.postln; } );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
b = EmacsPushButton( p, "hello" ).action_( { "do it".postln; } );
|
||
|
|
p.front;
|
||
|
|
|
||
|
|
// you can disable things:
|
||
|
|
|
||
|
|
b.enabled_( false );
|
||
|
|
p.front;
|
||
|
|
::
|
||
|
|
|
||
|
|
And last but not least, it provides a class browser:
|
||
|
|
]
|
||
|
|
|
||
|
|
@racketblock[
|
||
|
|
EmacsClassBrowser.new( EmacsBuffer );
|
||
|
|
::
|
||
|
|
|
||
|
|
]
|
||
|
|
|
||
|
|
|