Dave Jarvis' Repositories

    <bytecodeTargetLevel target="14" />

  <component name="ProjectRootManager" version="2" languageLevel="JDK_14" default="true" project-jdk-name="14" project-jdk-type="JavaSDK">

# the unit is not included. The words (year, month, day) are pluralized

  concat( cms( n ), concat( " ", pluralize( s, n ) ) )

# Pluralize s if n is not equal to 1.

  implementation 'org.controlsfx:controlsfx:11.0.2'

rm( dir_home + "/.scrivenvar" )

heading( "What is this application?" )

heading( "What are definitions?" )

heading( "What is interpolation?" )

typer( "their definition value is called *interpolation*. Let's see how it works." )

heading( "What text formats are supported?" )

typer( "Many text editors can only open one type of plain text markup format that is " )

typer( "only output as HTML. With a little more effort, text editors could support " )

typer( "multiple input and output formats. Scr" )

typer( " does so and goes one step further by introducing interpolated definitions." )

heading( "What is R?" )

typer( "other quirks can be tackled using R." )

# -----------------------------------------------------------------------------

# Demo bootstrapping

# -----------------------------------------------------------------------------

# Jump to the end

type( Key.END, Key.CTRL )

paragraph()

set_typing_speed( 300 )

heading( "How is R used?" )

typer( "R must be instructed where to find script files and what ones to load. The " )

typer( "*working directory* is the full path to those R files; the *startup script* " )

typer( "defines what R files to load. Both preferences must be changed before prose " )

typer( "may be processed. Preferences can be opened using either the " )

typeln( "**Edit > Preferences** menu or by pressing `Ctrl+Alt+s`. Here goes!" ) 

wait( 5 )

# -----------------------------------------------------------------------------

# Select the R script directory

# -----------------------------------------------------------------------------

# Change the working directory by clicking "Browse"

type( "s", Key.CTRL + Key.ALT )

wait("1594592396134.png", 1)

click("1594592396134.png")

wait( 0.5 )

# Navigate to and select the "r" directory

type( Key.UP, Key.ALT )

wait( 0.5 )

end()

wait( 0.5 )

enter()

wait( 0.5 )

end()

wait( 0.5 )

type( Key.UP )

wait( 0.5 )

recur( 2, tab )

wait( 0.5 )

enter()

wait( 1 )

# -----------------------------------------------------------------------------

# Set the R startup script instructions

# -----------------------------------------------------------------------------

wait("1594593710440.png", 5)

click("1594593710440.png")

set_typing_speed( 440 )

typeln( "setwd( '$application.r.working.directory$' )" )

typeln( "assign( ""anchor"", '$date.anchor$', envir = .GlobalEnv )" )

typeln( "source( 'pluralize.R' )" )

typeln( "source( 'possessive.R' )" )

typeln( "source( 'conversion.R' )" )

typeln( "source( 'csv.R' )" )

wait( 2 )

wait("1594593794335.png", 5)

click("1594593794335.png")

paragraph()

set_typing_speed( 220 )

typer( "R is now configured. The startup script and other R " )

typer( "files can be found in the " )

typer( "[repository](https://github.com/DaveJarvis/scrivenvar/tree/master/R). " )

wait( 2.25 )

wait("1594594984108.png", 5)

click("1594594984108.png")

wait( 5 )

click("1594595370191.png")

paragraph()

typer( "Next, we'll see how definitions and R can work together." )

wait( 2 )

set_typing_speed( 220 )

# Re-open the corresponding definition file.

file_open()

recur( 2, down )

wait( 1 )

enter()

wait( 1 )

# -----------------------------------------------------------------------------

# Brief introduction to R

# -----------------------------------------------------------------------------

type( Key.HOME, Key.CTRL )

end()

typer( "## Using R" )

paragraph()

typer( "Insert R code into documents as follows: `r# 1+1`. " )

wait( 1.5 )

typer( "Notice how the right-hand pane shows the computed result. I'll wait. " )

wait( 3 )

typer( "The syntax is: open backtick, r#, *computable expression*, close " )

typer( "backtick. That expression can be any valid R statement. The status bar " ) 

typer( "will provide clues when an R expression cannot be computed by the " )

typer( "editor. `r# glitch`" )

wait( 4 )

recur( 11, backspace )

typer( "Let's swap 34 storeys for a definition value and replace the number " )

typer( "according to the Chicago Manual of Style (cms) rules." )

set_typing_speed( 80 )

edit_find( "34" )

autoinsert()

edit_find( "x(" )

typer( "cms(" )

edit_find( "storeys." )

typer( "34." )

autoinsert()

edit_find( "x(" )

typer( "pl( 'storey'," )

wait( 4 )

tab()

rename_definition( "1" )

wait( 4 )

rename_definition( "142" )

wait( 4 )

rename_definition( "34" )

wait( 4 )

tab()

# Demo possessives (it, her, his, Director)

type( Key.HOME, Key.CTRL )

edit_find( "Director" )

autoinsert()

edit_find_next()

autoinsert()

edit_find_next()

autoinsert()

type( Key.RIGHT )

recur( 2, delete )

autoinsert()

home()

edit_find( "x(" )

typer( "pos(" )

wait( 2 )

tab()

rename_definition( "Headmistress" )

wait( 4 )

rename_definition( "Director" )

wait( 2 )

tab()

type( Key.END, Key.CTRL )

paragraph()

typer( "Other possessives: `r# pos( 'it' )`, `r# pos( 'her' )`, `r# pos( 'his' )`, " )

typer( "and `r# pos( 'my' )`." )

set_typing_speed( 160 )

paragraph()

heading( "Date Conversions" )

typer( "Mixing R code with definitions invites endless possibilities. " )

typer( "Imagine someone racing to the " ) 

typer( "`r#cms( v$location$breeder$storeys, ordinal=TRUE )` floor, whereby that " )

typer( "ordinal stems from the Hatchery's storeys' definition. Or how about " )

typer( "a complex timeline where dates are expressed in days relative to one " )

typer( "point in time. Let's call this the *anchor date* and define it." )

tab()

home()

typer( Key.SPACE )

insert()

rename_definition( "date" )

insert()

rename_definition( "anchor" )

insert()

rename_definition( "1969-10-29" )

tab()

paragraph()

typer( "Next, set an R variable named `now` to the current date" )

typer( "`r# now = format( Sys.time(), '%Y-%m-%d' ); ''`--- the empty single quotes " )

typer( "prevent the date from appearing in the output document. " )

paragraph()

typer( "We set the anchor date to `r# annal()`, which was " )

typer( "`r# elapsed( 0, days( v$date$anchor, format( Sys.time(), '%Y-%m-%d' ) ) )` " )

typer( "ago from `r# format( as.Date( now ), '%B %d, %Y' )`. " )

# -----------------------------------------------------------------------------

paragraph()

heading( "Tabular Data" )

typer( "The following table shows average Canadian lifespans by birth " )

typer( "year and sex:" )

paragraph()

typer( "`r# csv2md( '../data.csv', total=FALSE )`" )

paragraph()

typer( "Calling `csv2md` converts the comma-separated values in the spreadsheet " )

typer( "to a table formatted using Markdown. The HTML preview pane changes the " )

typer( "appearance of the resulting table. Using `../data.csv` instructs R to " )

typer( "open `data.csv` from one directory above the *working directory*." )

# -----------------------------------------------------------------------------

# Demo HTML export

paragraph()

heading( "Export" )

typer( "Retrieve the output HTML by using the **Edit > Copy HTML** menu. Let's " )

typer( "look at the output document." )

type( "e", Key.ALT )

wait( 0.5 )

down()

wait( 0.25 )

enter()

wait( 0.25 )

type( "a", Key.CTRL )

wait( 0.25 )

type( "v", Key.CTRL )

dir_home = expanduser( "~" )

app_home = dir_home + "/bin"

# -----------------------------------------------------------------------------

# Type a line of text followed by typing the ENTER key.

# -----------------------------------------------------------------------------

def typeln( text ):

    typer( text )

    enter()

def heading( text ):

    resetProcessors();

import com.dlsc.preferencesfx.PreferencesFxEvent;

import javafx.event.EventHandler;

  }

  /**

   * Delegates to the {@link PreferencesFx} event handler for monitoring

   * save events.

   *

   * @param eventHandler The handler to call when the preferences are saved.

   */

  public void addSaveEventHandler(

      final EventHandler<? super PreferencesFxEvent> eventHandler ) {

    final var eventType = PreferencesFxEvent.EVENT_PREFERENCES_SAVED;

    mPreferencesFx.addEventHandler( eventType, eventHandler );

  public ObjectProperty<File> rDirectoryProperty() {

  public StringProperty rScriptProperty() {

import javafx.beans.property.ObjectProperty;

import javafx.beans.property.StringProperty;

import java.io.File;

import java.util.concurrent.atomic.AtomicBoolean;

import static java.lang.String.format;

  private final AtomicBoolean mDirty = new AtomicBoolean( false );

    bootstrapScriptProperty().addListener(

        ( ob, oldScript, newScript ) -> setDirty( true ) );

    workingDirectoryProperty().addListener(

        ( ob, oldScript, newScript ) -> setDirty( true ) );

    getUserPreferences().addSaveEventHandler( ( handler ) -> {

      if( isDirty() ) {

        init();

        setDirty( false );

      }

    } );

   * Initialises the R code so that R can find imported libraries. Note that

   * any existing R functionality will not be overwritten if this method is

   * called multiple times.

    getNotifier().clear();

    try {

      final var bootstrap = getBootstrapScript();

        final var wd = getWorkingDirectory();

        final var dir = wd.toString().replace( '\\', '/' );

        final var map = getDefinitions();

        map.put( "$application.r.working.directory$", dir );

  }

  /**

   * Sets the dirty flag to indicate that the bootstrap script or working

   * directory has been modified. Upon saving the preferences, if this flag

   * is true, then {@link #init()} will be called to reload the R environment.

   *

   * @param dirty Set to true to reload changes upon closing preferences.

   */

  private void setDirty( final boolean dirty ) {

    mDirty.set( dirty );

  }

  /**

   * Answers whether R-related settings have been modified.

   *

   * @return {@code true} when the settings have changed.

   */

  private boolean isDirty() {

    return mDirty.get();

    getNotifier().clear();

      final String expr = r.substring( 0, min( r.length(), 30 ) );

      final String msg = format(

          "Error with [%s...]: %s", expr, ex.getMessage() );

      getNotifier().notify( msg );

    return "";

   * Return the given path if not {@code null}, otherwise return the path to

   * the user's directory.

  }

  private ObjectProperty<File> workingDirectoryProperty() {

    return getUserPreferences().rDirectoryProperty();

   * @return A non-null string, possibly empty.

  }

  private StringProperty bootstrapScriptProperty() {

    return getUserPreferences().rScriptProperty();

Main.menu.edit.selectAll=Select _All