Dave Jarvis' Repositories

# always use LF line endings

# ALL FILES:

#   Normalize line endings to LF on checkin and

#   prevent conversion to CRLF when the file is checked out.

* text eol=lf

# BINARY FILES:

#   Disable line ending normalize on checkin.

*.gif binary

*.jar binary

*.png binary

*.zip binary

*.ttf binary

*.otf binary

*.blend binary

---

name: Bug report

about: Create a report to help us improve

title: ''

labels: bug

assignees: ''

---

**Description**

A concise problem description.

**Replicate**

Exact and complete steps to reproduce the problem 100% of the time:

1. Open '...'

1. Click '....'

1. Click '....'

**Expected**

Describe the expected behaviour.

**Actual**

Describe the actual behaviour.

**Screenshots**

Add screenshots to show the problem, if applicable.

**Environment**

 - Operating System: (Windows, Linux, Mac)

 - Application: e.g., 1.7.16

**Details**

Add additional information, if applicable.

dist

*.bin

*.exe

build

.gradle

contacted.csv

video

.settings

.classpath

workspace.xml

<component name="ProjectCodeStyleConfiguration">

  <state>

    <option name="PREFERRED_PROJECT_CODE_STYLE" value="Default" />

  </state>

</component>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="CompilerConfiguration">

    <bytecodeTargetLevel target="14" />

  </component>

  <component name="JavacSettings">

    <option name="ADDITIONAL_OPTIONS_OVERRIDE">

      <module name="scrivenvar.main" options="--add-exports java.desktop/sun.swing=ALL-UNNAMED" />

    </option>

  </component>

</project>

<component name="ProjectDictionaryState">

  <dictionary name="jarvisd">

    <words>

      <w>blockquotes</w>

      <w>sigil</w>

      <w>transcoded</w>

    </words>

  </dictionary>

</component>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="GradleMigrationSettings" migrationVersion="1" />

  <component name="GradleSettings">

    <option name="linkedExternalProjectsSettings">

      <GradleProjectSettings>

        <option name="distributionType" value="LOCAL" />

        <option name="externalProjectPath" value="$PROJECT_DIR$" />

        <option name="gradleHome" value="/opt/gradle" />

        <option name="gradleJvm" value="#JAVA_HOME" />

        <option name="modules">

          <set>

            <option value="$PROJECT_DIR$" />

          </set>

        </option>

      </GradleProjectSettings>

    </option>

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="RemoteRepositoriesConfiguration">

    <remote-repository>

      <option name="id" value="central" />

      <option name="name" value="Maven Central repository" />

      <option name="url" value="https://repo1.maven.org/maven2" />

    </remote-repository>

    <remote-repository>

      <option name="id" value="jboss.community" />

      <option name="name" value="JBoss Community repository" />

      <option name="url" value="https://repository.jboss.org/nexus/content/repositories/public/" />

    </remote-repository>

    <remote-repository>

      <option name="id" value="MavenRepo" />

      <option name="name" value="MavenRepo" />

      <option name="url" value="https://repo.maven.apache.org/maven2/" />

    </remote-repository>

    <remote-repository>

      <option name="id" value="maven" />

      <option name="name" value="maven" />

      <option name="url" value="https://oss.sonatype.org/content/repositories/snapshots/" />

    </remote-repository>

    <remote-repository>

      <option name="id" value="BintrayJCenter" />

      <option name="name" value="BintrayJCenter" />

      <option name="url" value="https://jcenter.bintray.com/" />

    </remote-repository>

    <remote-repository>

      <option name="id" value="maven2" />

      <option name="name" value="maven2" />

      <option name="url" value="https://nexus.bedatadriven.com/content/groups/public" />

    </remote-repository>

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="ExternalStorageConfigurationManager" enabled="true" />

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

    <output url="file://$PROJECT_DIR$/build" />

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="RGraphicsSettings">

    <option name="height" value="1600" />

    <option name="resolution" value="112" />

    <option name="version" value="1" />

    <option name="width" value="2560" />

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="RSettings">

    <option name="interpreterPath" value="/usr/bin/R" />

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="RPackageService">

    <option name="enabledRepositoryUrls">

      <list>

        <option value="@CRAN@" />

      </list>

    </option>

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<module type="JAVA_MODULE" version="4" />

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="Palette2">

    <group name="Swing">

      <item class="com.intellij.uiDesigner.HSpacer" tooltip-text="Horizontal Spacer" icon="/com/intellij/uiDesigner/icons/hspacer.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="1" hsize-policy="6" anchor="0" fill="1" />

      </item>

      <item class="com.intellij.uiDesigner.VSpacer" tooltip-text="Vertical Spacer" icon="/com/intellij/uiDesigner/icons/vspacer.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="1" anchor="0" fill="2" />

      </item>

      <item class="javax.swing.JPanel" icon="/com/intellij/uiDesigner/icons/panel.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="3" hsize-policy="3" anchor="0" fill="3" />

      </item>

      <item class="javax.swing.JScrollPane" icon="/com/intellij/uiDesigner/icons/scrollPane.png" removable="false" auto-create-binding="false" can-attach-label="true">

        <default-constraints vsize-policy="7" hsize-policy="7" anchor="0" fill="3" />

      </item>

      <item class="javax.swing.JButton" icon="/com/intellij/uiDesigner/icons/button.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="3" anchor="0" fill="1" />

        <initial-values>

          <property name="text" value="Button" />

        </initial-values>

      </item>

      <item class="javax.swing.JRadioButton" icon="/com/intellij/uiDesigner/icons/radioButton.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="3" anchor="8" fill="0" />

        <initial-values>

          <property name="text" value="RadioButton" />

        </initial-values>

      </item>

      <item class="javax.swing.JCheckBox" icon="/com/intellij/uiDesigner/icons/checkBox.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="3" anchor="8" fill="0" />

        <initial-values>

          <property name="text" value="CheckBox" />

        </initial-values>

      </item>

      <item class="javax.swing.JLabel" icon="/com/intellij/uiDesigner/icons/label.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="0" anchor="8" fill="0" />

        <initial-values>

          <property name="text" value="Label" />

        </initial-values>

      </item>

      <item class="javax.swing.JTextField" icon="/com/intellij/uiDesigner/icons/textField.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="8" fill="1">

          <preferred-size width="150" height="-1" />

        </default-constraints>

      </item>

      <item class="javax.swing.JPasswordField" icon="/com/intellij/uiDesigner/icons/passwordField.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="8" fill="1">

          <preferred-size width="150" height="-1" />

        </default-constraints>

      </item>

      <item class="javax.swing.JFormattedTextField" icon="/com/intellij/uiDesigner/icons/formattedTextField.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="8" fill="1">

          <preferred-size width="150" height="-1" />

        </default-constraints>

      </item>

      <item class="javax.swing.JTextArea" icon="/com/intellij/uiDesigner/icons/textArea.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JTextPane" icon="/com/intellij/uiDesigner/icons/textPane.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JEditorPane" icon="/com/intellij/uiDesigner/icons/editorPane.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JComboBox" icon="/com/intellij/uiDesigner/icons/comboBox.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="0" hsize-policy="2" anchor="8" fill="1" />

      </item>

      <item class="javax.swing.JTable" icon="/com/intellij/uiDesigner/icons/table.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JList" icon="/com/intellij/uiDesigner/icons/list.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="2" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JTree" icon="/com/intellij/uiDesigner/icons/tree.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3">

          <preferred-size width="150" height="50" />

        </default-constraints>

      </item>

      <item class="javax.swing.JTabbedPane" icon="/com/intellij/uiDesigner/icons/tabbedPane.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="3" hsize-policy="3" anchor="0" fill="3">

          <preferred-size width="200" height="200" />

        </default-constraints>

      </item>

      <item class="javax.swing.JSplitPane" icon="/com/intellij/uiDesigner/icons/splitPane.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="3" hsize-policy="3" anchor="0" fill="3">

          <preferred-size width="200" height="200" />

        </default-constraints>

      </item>

      <item class="javax.swing.JSpinner" icon="/com/intellij/uiDesigner/icons/spinner.png" removable="false" auto-create-binding="true" can-attach-label="true">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="8" fill="1" />

      </item>

      <item class="javax.swing.JSlider" icon="/com/intellij/uiDesigner/icons/slider.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="8" fill="1" />

      </item>

      <item class="javax.swing.JSeparator" icon="/com/intellij/uiDesigner/icons/separator.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="6" anchor="0" fill="3" />

      </item>

      <item class="javax.swing.JProgressBar" icon="/com/intellij/uiDesigner/icons/progressbar.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="0" fill="1" />

      </item>

      <item class="javax.swing.JToolBar" icon="/com/intellij/uiDesigner/icons/toolbar.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="6" anchor="0" fill="1">

          <preferred-size width="-1" height="20" />

        </default-constraints>

      </item>

      <item class="javax.swing.JToolBar$Separator" icon="/com/intellij/uiDesigner/icons/toolbarSeparator.png" removable="false" auto-create-binding="false" can-attach-label="false">

        <default-constraints vsize-policy="0" hsize-policy="0" anchor="0" fill="1" />

      </item>

      <item class="javax.swing.JScrollBar" icon="/com/intellij/uiDesigner/icons/scrollbar.png" removable="false" auto-create-binding="true" can-attach-label="false">

        <default-constraints vsize-policy="6" hsize-policy="0" anchor="0" fill="2" />

      </item>

    </group>

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<project version="4">

  <component name="VcsDirectoryMappings">

    <mapping directory="$PROJECT_DIR$" vcs="Git" />

  </component>

</project>

<?xml version="1.0" encoding="UTF-8"?>

<projectDescription>

	<name>Markdown Writer FX</name>

	<comment></comment>

	<projects>

	</projects>

	<buildSpec>

		<buildCommand>

			<name>org.eclipse.jdt.core.javabuilder</name>

			<arguments>

			</arguments>

		</buildCommand>

		<buildCommand>

			<name>org.eclipse.buildship.core.gradleprojectbuilder</name>

			<arguments>

			</arguments>

		</buildCommand>

	</buildSpec>

	<natures>

		<nature>org.eclipse.jdt.core.javanature</nature>

		<nature>org.eclipse.buildship.core.gradleprojectnature</nature>

	</natures>

	<filteredResources>

		<filter>

			<id>1438449113801</id>

			<name></name>

			<type>26</type>

			<matcher>

				<id>org.eclipse.ui.ide.multiFilter</id>

				<arguments>1.0-projectRelativePath-matches-false-false-build</arguments>

			</matcher>

		</filter>

		<filter>

			<id>1438449113801</id>

			<name></name>

			<type>26</type>

			<matcher>

				<id>org.eclipse.ui.ide.multiFilter</id>

				<arguments>1.0-projectRelativePath-matches-false-false-.gradle</arguments>

			</matcher>

		</filter>

	</filteredResources>

</projectDescription>

language: java

jdk:

- oraclejdk8

# enable Java 8u45+, see https://github.com/travis-ci/travis-ci/issues/4042

addons:

  apt:

    packages:

      - oracle-java8-installer

os:

  - linux

# run in container

sudo: false

# Introduction

This document describes how to build the application and platform binaries.

# Requirements

Download and install the following software packages:

* [OpenJDK 14.0.2](https://openjdk.java.net) (full JDK, including JavaFX)

* [Gradle 6.4](https://gradle.org/releases)

* [Git 2.28.0](https://git-scm.com/downloads)

## Repository

Clone the repository as follows:

    git clone https://github.com/DaveJarvis/keenwrite.git

The repository is cloned.

# Build

Build the application überjar as follows:

    cd keenwrite

    gradle clean jar

The application is built.

# Run

After the application is compiled, run it as follows:

    java -jar build/libs/keenwrite.jar

On Windows:

    java -jar build\libs\keenwrite.jar

# Integrated development environments

This section describes setup instructions to import and run the application using an integrated development environment (IDE). Running the application should trigger a build.

## IntelliJ IDEA

This section describes how to build and run the application using IntellIJ's IDEA.

### Import

Complete the following steps to import the application:

1. Start the IDE.

1. Click **File → New → Project from Existing Sources**.

1. Browse to the directory containing `keenwrite`.

1. Click **OK**.

1. Select **Gradle** as the external model.

1. Click **Finish**.

The project is imported into the IDE.

### Run

Run the application as follows:

1. Ensure the **Project** is open.

1. Expand **src → main → java → com.keenwrite**.

1. Open **Launcher**.

1. Run **main**.

The application is launched.

# Installers

This section describes how to set up the development environment and build native executables for supported operating systems.

## Setup

Follow these one-time setup instructions to begin:

1. Ensure `$HOME/bin` is set in the `PATH` environment variable.

1. Copy `build-template` into `$HOME/bin`.

Setup is complete.

## Binaries

Run the `installer` script to build platform-specific binaries, such as:

    ./installer -V -o linux

The `installer` script:

* downloads a JDK;

* generates a run script;

* bundles the JDK, run script, and JAR file; and

* creates a standalone binary, so no installation required.

Run `./installer -h` to see all command-line options.

# Versioning

Version numbers are read directly from Git using a plugin. The version number is written to `app.properties` in the `resources` directory. The application reads that file to display version information upon start.

# License

Copyright 2020 White Magic Software, Ltd.

Copyright 2015 Karl Tauber

All rights reserved.

Redistribution and use in source and binary forms, with or without

modification, are permitted provided that the following conditions are met:

* Redistributions of source code must retain the above copyright

  notice, this list of conditions and the following disclaimer.

* Redistributions in binary form must reproduce the above copyright

  notice, this list of conditions and the following disclaimer in the

  documentation and/or other materials provided with the distribution.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT

HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,

SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT

LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,

DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE

OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

# R Functions

Import the files in this directory into the application, which include:

* pluralize.R

* possessive.R

* conversion.R

* csv.R

# pluralize.R

This file defines a function that implements most of Damian Conway's [An Algorithmic Approach to English Pluralization](http://blob.perl.org/tpc/1998/User_Applications/Algorithmic%20Approach%20Plurals/Algorithmic_Plurals.html).

## Usage

Example usages of the pluralize function include:

    `r#pluralize( 'mouse' )` - mice

    `r#pluralize( 'buzz' )` - buzzes

    `r#pluralize( 'bus' )` - busses

# possessive.R

This file defines a function that applies possessives to English words.

## Usage

Example usages of the possessive function include:

    `r#pos( 'Ross' )` - Ross'

    `r#pos( 'Ruby' )` - Ruby's

    `r#pos( 'Lois' )` - Lois'

    `r#pos( 'my' )` - mine

    `r#pos( 'Your' )` - Yours

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

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

source( 'pluralize.R' )

source( 'possessive.R' )

source( 'conversion.R' )

source( 'csv.R' )

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

# Copyright 2020, White Magic Software, Ltd.

# 

# Permission is hereby granted, free of charge, to any person obtaining

# a copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, sublicense, and/or sell copies of the Software, and to

# permit persons to whom the Software is furnished to do so, subject to

# the following conditions:

# 

# The above copyright notice and this permission notice shall be

# included in all copies or substantial portions of the Software.

# 

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

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

# Substitute R expressions in a document with their evaluated value. The

# anchor variable must be set for functions that use relative dates.

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

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

# Evaluates an expression; writes s if there is no expression.

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

x <- function( s ) {

  tryCatch( {

    r = eval( parse( text = s ) )

    # If the result isn't primitive, then it was probably parsed into

    # an unprintable object (e.g., "gray" becomes a colour). In those

    # cases, return the original text string. Otherwise, an atomic

    # value means a primitive type (string, integer, etc.) that can be

    # written directly into the document.

    ifelse( is.atomic( r ), r, s );

  },

  warning = function( w ) { s },

  error = function( e ) { s } )

}

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

# Returns a date offset by a given number of days, relative to the given

# date (d). This does not use the anchor, but is used to get the anchor's

# value as a date.

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

when <- function( d, n = 0, format = "%Y-%m-%d" ) {

  as.Date( d, format = format ) + x( n )

}

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

# Full date (s) offset by an optional number of days before or after.

# This will remove leading zeros (applying leading spaces instead, which

# are ignored by any worthwhile typesetting engine).

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

annal <- function( days = 0, format = "%Y-%m-%d", oformat = "%B %d, %Y" ) {

  format( when( anchor, days ), format = oformat )

}

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

# Extracts the year from a date string.

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

year <- function( days = 0, format = "%Y-%m-%d" ) {

  annal( days, format, "%Y" )

}

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

# Day of the week (in days since the anchor date).

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

weekday <- function( n ) {

  weekdays( when( anchor, n ) )

}

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

# String concatenate function alias because paste0 is a terrible name.

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

concat <- paste0

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

# Translates a number from digits to words using Chicago Manual of Style.

# This does not translate numbers greater than one hundred. If ordinal

# is TRUE, this will return the ordinal name. This will not produce ordinals

# for numbers greater than 100.

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

cms <- function( n, ordinal = FALSE ) {

  n <- x( n )

  if( n == 0 ) {

    if( ordinal ) {

      return( "zeroth" )

    }

    return( "zero" )

  }

  # Concatenate this a little later.

  if( n < 0 ) {

    result = "negative "

    n = abs( n )

  }

  # Do not spell out numbers greater than one hundred.

  if( n > 100 ) {

    # Comma-separated numbers.

    return( commas( n ) )

  }

  # Don't go beyond 100.

  if( n == 100 ) {

    if( ordinal ) {

      return( "one hundredth" )

    }

    return( "one hundred" )

  }

  # Samuel Langhorne Clemens noted English has too many exceptions.

  small = c(

    "one", "two", "three", "four", "five",

    "six", "seven", "eight", "nine", "ten",

    "eleven", "twelve", "thirteen", "fourteen", "fifteen",

    "sixteen", "seventeen", "eighteen", "nineteen"

  )

  ord_small = c(

    "first", "second", "third", "fourth", "fifth",

    "sixth", "seventh", "eighth", "ninth", "tenth",

    "eleventh", "twelfth", "thirteenth", "fourteenth", "fifteenth",

    "sixteenth", "seventeenth", "eighteenth", "nineteenth", "twentieth"

  )

  # After this, the number (n) is between 20 and 99.

  if( n < 20 ) {

    if( ordinal ) {

      return( .subset( ord_small, n %% 100 ) )

    }

    return( .subset( small, n %% 100 ) )

  }

  tens = c( "",

    "twenty", "thirty", "forty", "fifty",

    "sixty", "seventy", "eighty", "ninety"

  )

  ord_tens = c( "",

    "twentieth", "thirtieth", "fortieth", "fiftieth",

    "sixtieth", "seventieth", "eightieth", "ninetieth"

  )

  ones_index = n %% 10

  n = n %/% 10

  # No number in the ones column, so the number must be a multiple of ten.

  if( ones_index == 0 ) {

    if( ordinal ) {

      return( .subset( ord_tens, n ) )

    }

    return( .subset( tens, n ) )

  }

  # Find the value from the ones column.

  if( ordinal ) {

    unit_1 = .subset( ord_small, ones_index )

  }

  else {

    unit_1 = .subset( small, ones_index )

  }

  # Find the tens column.

  unit_10 = .subset( tens, n )

  # Hyphenate the tens and the ones together.

  concat( unit_10, concat( "-", unit_1 ) )

}

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

# Returns a number as a comma-delimited string. This is a work-around

# until Renjin fixes https://github.com/bedatadriven/renjin/issues/338

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

commas <- function( n ) {

  n <- x( n )

  s <- sprintf( "%03.0f", n %% 1000 )

  n <- n %/% 1000

  while( n > 0 ) {

    s <- concat( sprintf( "%03.0f", n %% 1000 ), ',', s )

    n <- n %/% 1000

  }

  gsub( '^0*', '', s )

}

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

# Returns a human-readable string that provides the elapsed time between

# two numbers in terms of years, months, and days. If any unit value is zero,

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

# according to English grammar. The numbers are written out according to

# Chicago Manual of Style. This applies the serial comma.

#

# Both numbers are offsets relative to the anchor date.

#

# If all unit values are zero, this returns s ("same day" by default).

#

# If the start date (began) is greater than end date (ended), the dates are

# swapped before calculations are performed. This allows any two dates

# to be compared and positive unit values are always returned.

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

elapsed <- function( began, ended, s = "same day" ) {

  began = when( anchor, began )

  ended = when( anchor, ended )

  # Swap the dates if the end date comes before the start date.

  if( as.integer( ended - began ) < 0 ) {

    tempd = began

    began = ended

    ended = tempd

  }

  # Calculate number of elapsed years.

  years = length( seq( from = began, to = ended, by = 'year' ) ) - 1

  # Move the start date up by the number of elapsed years.

  if( years > 0 ) {

    began = seq( began, length = 2, by = concat( years, " years" ) )[2]

    years = pl.numeric( "year", years )

  }

  else {

    # Zero years.

    years = ""

  }

  # Calculate number of elapsed months, excluding years.

  months = length( seq( from = began, to = ended, by = 'month' ) ) - 1

  # Move the start date up by the number of elapsed months

  if( months > 0 ) {

    began = seq( began, length = 2, by = concat( months, " months" ) )[2]

    months = pl.numeric( "month", months )

  }

  else {

    # Zero months

    months = ""

  }

  # Calculate number of elapsed days, excluding months and years.

  days = length( seq( from = began, to = ended, by = 'day' ) ) - 1

  if( days > 0 ) {

    days = pl.numeric( "day", days )

  }

  else {

    # Zero days

    days = ""

  }

  if( years <= 0 && months <= 0 && days <= 0 ) {

    return( s )

  }

  # Put them all in a vector, then remove the empty values.

  s <- c( years, months, days )

  s <- s[ s != "" ]

  r <- paste( s, collapse = ", " )

  # If all three items are present, replace the last comma with ", and".

  if( length( s ) > 2 ) {

    return( gsub( "(.*),", "\\1, and", r ) )

  }

  # Does nothing if no commas are present.

  gsub( "(.*),", "\\1 and", r )

}

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

# Returns the number (n) in English followed by the plural or singular

# form of the given string (s; resumably a noun), if applicable, according

# to English grammar. That is, pl.numeric( "wolf", 5 ) will return

# "five wolves".

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

pl.numeric <- function( s, n ) {

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

}

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

# Pluralize s if n is not equal to 1.

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

pl <- function( s, n=2 ) {

  pluralize( s, x( n ) )

}

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

# Name of the season, starting with an capital letter.

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

season <- function( n, format = "%Y-%m-%d" ) {

  WS <- as.Date("2016-12-15", "%Y-%m-%d") # Winter Solstice

  SE <- as.Date("2016-03-15", "%Y-%m-%d") # Spring Equinox

  SS <- as.Date("2016-06-15", "%Y-%m-%d") # Summer Solstice

  AE <- as.Date("2016-09-15", "%Y-%m-%d") # Autumn Equinox

  d <- when( anchor, n )

  d <- as.Date( strftime( d, format="2016-%m-%d" ) )

  ifelse( d >= WS | d < SE, "Winter",

    ifelse( d >= SE & d < SS, "Spring",

      ifelse( d >= SS & d < AE, "Summer", "Autumn" )

    )

  )

}

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

# Converts the first letter in a string to lowercase

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

lc <- function( s ) {

  concat( tolower( substr( s, 1, 1 ) ), substr( s, 2, nchar( s ) ) )

}

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

# Converts the entire string to lowercase

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

lower <- tolower

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

# Converts the first letter in a string to uppercase

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

uc <- function( s ) {

  concat( toupper( substr( s, 1, 1 ) ), substr( s, 2, nchar( s ) ) )

}

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

# Returns the number of days between the given dates.

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

days <- function( d1, d2, format = "%Y-%m-%d" ) {

  dates = c( d1, d2 )

  dt = strptime( dates, format = format )

  as.integer( difftime( dates[2], dates[1], units = "days" ) )

}

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

# Returns the number of years elapsed.

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

years <- function( began, ended ) {

  began = when( anchor, began )

  ended = when( anchor, ended )

  # Swap the dates if the end date comes before the start date.

  if( as.integer( ended - began ) < 0 ) {

    tempd = began

    began = ended

    ended = tempd

  }

  # Calculate number of elapsed years.

  length( seq( from = began, to = ended, by = 'year' ) ) - 1

}

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

# Full name of the month, starting with a capital letter.

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

month <- function( n ) {

  # Faster than month.name[ x( n ) ]

  .subset( month.name, x( n ) )

}

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

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

money <- function( n ) {

  commas( x( n ) )

}

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

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

timeline <- function( n ) {

  concat( weekday( n ), ", ", annal( n ), " (", season( n ), ")" )

}

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

# Rounds to the nearest base value (e.g., round to nearest 10).

#

# @param base The nearest value to round to.

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

round.up <- function( n, base = 5 ) {

  base * round( x( n ) / base )

}

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

# Computes linear distance between two points using Haversine formula.

# Although Earth is an oblate spheroid, this will produce results close

# enough for most purposes.

#

# @param lat1/lon1 The source latitude and longitude.

# @param lat2/lon2 The destination latitude and longitude.

# @param radius The radius of the sphere.

#

# @return The distance between the two coordinates in meters.

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

haversine <- function( lat1, lon1, lat2, lon2, radius = 6371 ) {

  # Convert decimal degrees to radians

  lon1 = lon1 * pi / 180

  lon2 = lon2 * pi / 180

  lat1 = lat1 * pi / 180

  lat2 = lat2 * pi / 180

  # Haversine formula

  dlon = lon2 - lon1

  dlat = lat2 - lat1

  a = sin( dlat / 2 ) ** 2 + cos( lat1 ) * cos( lat2 ) * sin( dlon / 2 ) ** 2

  c = 2 * atan2( sqrt( a ), sqrt( 1-a ) )

  return( radius * c * 1000 )

}

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

# Copyright 2020, White Magic Software, Ltd.

# 

# Permission is hereby granted, free of charge, to any person obtaining

# a copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, sublicense, and/or sell copies of the Software, and to

# permit persons to whom the Software is furnished to do so, subject to

# the following conditions:

# 

# The above copyright notice and this permission notice shall be

# included in all copies or substantial portions of the Software.

# 

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

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

# Converts CSV to Markdown.

#

# Reads a CSV file and converts the contents to a Markdown table. The

# file must be in the working directory as specified by setwd.

#

# @param f The filename to convert.

# @param decimals Rounded decimal places (default 1).

# @param totals Include total sums (default TRUE).

# @param align Right-align numbers (default TRUE).

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

csv2md <- function( f, decimals = 2, totals = T, align = T ) {

  # Read the CVS data from the file; ensure strings become characters.

  df <- read.table( f, sep=',', header=T, stringsAsFactors=F )

  if( totals ) {

    # Determine what columns can be summed.

    number <- which( unlist( lapply( df, is.numeric ) ) )

    # Use colSums when more than one summable column exists.

    if( length( number ) > 1 ) {

      f.sum <- colSums

    }

    else {

      f.sum <- sum

    }

    # Calculate the sum of all the summable columns and insert the

    # results back into the data frame.

    df[ (nrow( df ) + 1), number ] <- f.sum( df[, number], na.rm=TRUE )

    # pluralise would be heavyweight here.

    if( length( number ) > 1 ) {

      t <- "**Totals**"

    }

    else {

      t <- "**Total**"

    }

    # Change the first column of the last line to "Total(s)".

    df[ nrow( df ), 1 ] <- t

    # Don't clutter the output with "NA" text.

    df[ is.na( df ) ] <- ""

  }

  if( align ) {

    is.char <- vapply( df, is.character, logical( 1 ) )

    dashes <- paste( ifelse( is.char, ':---', '---:' ), collapse='|' )

  }

  else {

    dashes <- paste( rep( '---', length( df ) ), collapse = '|' )

  }

  # Create a Markdown version of the data frame.

  paste(

    paste( names( df ), collapse = '|'), '\n',

    dashes, '\n', 

    paste(

      Reduce( function( x, y ) {

          paste( x, format( y, digits = decimals ), sep = '|' )

        }, df

      ),

      collapse = '|\n', sep=''

    )

  )

}

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

# Copyright 2020, White Magic Software, Ltd.

# 

# Permission is hereby granted, free of charge, to any person obtaining

# a copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, sublicense, and/or sell copies of the Software, and to

# permit persons to whom the Software is furnished to do so, subject to

# the following conditions:

# 

# The above copyright notice and this permission notice shall be

# included in all copies or substantial portions of the Software.

# 

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

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

# See Damian Conway's "An Algorithmic Approach to English Pluralization":

#   http://goo.gl/oRL4MP

# See Oliver Glerke's Evo Inflector: https://github.com/atteo/evo-inflector/

# See Shevek's Pluralizer: https://github.com/shevek/linguistics/

# See also: http://www.freevectors.net/assets/files/plural.txt

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

pluralize <- function( s, n ) {

  result <- s

  # Partial implementation of Conway's algorithm for nouns.

  if( n != 1 ) {

    if( pl.noninflective( s ) ||

        pl.suffix( "es", s ) ||

        pl.suffix( "fish", s ) ||

        pl.suffix( "ois", s ) ||

        pl.suffix( "sheep", s ) ||

        pl.suffix( "deer", s ) ||

        pl.suffix( "pox", s ) ||

        pl.suffix( "[A-Z].*ese", s ) ||

        pl.suffix( "itis", s ) ) {

      # 1. Retain non-inflective user-mapped noun as is.

      # 2. Retain non-inflective plural as is.

      result <- s

    }

    else if( pl.is.irregular.pl( s ) ) {

      # 4. Change irregular plurals based on mapping.

      result <- pl.irregular.pl( s )

    }

    else if( pl.is.irregular.es( s ) ) {

      # x. From Shevek's

      result <- pl.inflect( s, "", "es" )

    }

    else if( pl.suffix( "man", s ) ) {

      # 5. For -man, change -an to -en

      result <- pl.inflect( s, "an", "en" )

    }

    else if( pl.suffix( "[lm]ouse", s ) ) {

      # 5. For [lm]ouse, change -ouse to -ice

      result <- pl.inflect( s, "ouse", "ice" )

    }

    else if( pl.suffix( "tooth", s ) ) {

      # 5. For -tooth, change -ooth to -eeth

      result <- pl.inflect( s, "ooth", "eeth" )

    }

    else if( pl.suffix( "goose", s ) ) {

      # 5. For -goose, change -oose to -eese

      result <- pl.inflect( s, "oose", "eese" )

    }

    else if( pl.suffix( "foot", s ) ) {

      # 5. For -foot, change -oot to -eet

      result <- pl.inflect( s, "oot", "eet" )

    }

    else if( pl.suffix( "zoon", s ) ) {

      # 5. For -zoon, change -on to -a

      result <- pl.inflect( s, "on", "a" )

    }

    else if( pl.suffix( "[csx]is", s ) ) {

      # 5. Change -cis, -sis, -xis to -es

      result <- pl.inflect( s, "is", "es" )

    }

    else if( pl.suffix( "([cs]h|ss|zz|x|s)", s ) ) {

      # 8. Change -ch, -sh, -ss, -zz, -x, -s to -es

      result <- pl.inflect( s, "", "es" )

    }

    else if( pl.suffix( "([aeo]lf|[^d]eaf|arf)", s ) ) {

      # 9. Change -f to -ves

      result <- pl.inflect( s, "f", "ves" )

    }

    else if( pl.suffix( "[nlw]ife", s ) ) {

      # 10. Change -fe to -ves

      result <- pl.inflect( s, "fe", "ves" )

    }

    else if( pl.suffix( "[aeiou]y", s ) ) {

      # 11. Change -[aeiou]y to -ys

      result <- pl.inflect( s, "", "s" )

    }

    else if( pl.suffix( "y", s ) ) {

      # 12. Change -y to -ies

      result <- pl.inflect( s, "y", "ies" )

    }

    else if( pl.suffix( "z", s ) ) {

      # x. Change -z to -zzes

      result <- pl.inflect( s, "", "zes" )

    }

    else {

      # 13. Default plural: add -s

      result <- pl.inflect( s, "", "s" )

    }

  }

  result

}

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

# Returns the given string (s) with its suffix replaced by r.

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

pl.inflect <- function( s, suffix, r ) {

  gsub( paste( suffix, "$", sep="" ), r, s )

}

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

# Answers whether the given string (s) has the given ending.

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

pl.suffix <- function( ending, s ) {

  grepl( paste( ending, "$", sep="" ), s )

}

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

# Answers whether the given string (s) is a noninflective noun.

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

pl.noninflective <- function( s ) {

  v <- c(

    "aircraft",

    "Bhutanese",

    "bison",

    "bream",

    "Burmese",

    "carp",

    "chassis",

    "Chinese",

    "clippers",

    "cod",

    "contretemps",

    "corps",

    "debris",

    "djinn",

    "eland",

    "elk",

    "flounder",

    "fracas",

    "gallows",

    "graffiti",

    "headquarters",

    "high-jinks",

    "homework",

    "hovercraft",

    "innings",

    "Japanese",

    "Lebanese",

    "mackerel",

    "means",

    "mews",

    "mice",

    "mumps",

    "news",

    "pincers",

    "pliers",

    "Portuguese",

    "proceedings",

    "salmon",

    "scissors",

    "sea-bass",

    "Senegalese",

    "shears",

    "Siamese",

    "Sinhalese",

    "spacecraft",

    "swine",

    "trout",

    "tuna",

    "Vietnamese",

    "watercraft",

    "whiting",

    "wildebeest"

  )

  is.element( s, v )

}

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

# Answers whether the given string (s) is an irregular plural.

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

pl.is.irregular.pl <- function( s ) {

  # Could be refactored with pl.irregular.pl...

  v <- c(

    "beef", "brother", "child", "cow", "ephemeris", "genie", "money",

    "mongoose", "mythos", "octopus", "ox", "soliloquy", "trilby"

  )

  is.element( s, v )

}

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

# Call to pluralize an irregular noun. Only call after confirming

# the noun is irregular via pl.is.irregular.pl.

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

pl.irregular.pl <- function( s ) {

  v <- list(

    "beef" = "beefs",

    "brother" = "brothers",

    "child" = "children",

    "cow" = "cows",

    "ephemeris" = "ephemerides",

    "genie" = "genies",

    "money" = "moneys",

    "mongoose" = "mongooses",

    "mythos" = "mythoi",

    "octopus" = "octopuses",

    "ox" = "oxen",

    "soliloquy" = "soliloquies",

    "trilby" = "trilbys"

  )

  # Faster version of v[[ s ]]

  .subset2( v, s )

}

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

# Answers whether the given string (s) pluralizes with -es.

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

pl.is.irregular.es <- function( s ) {

  v <- c(

    "acropolis", "aegis", "alias", "asbestos", "bathos", "bias", "bronchitis",

    "bursitis", "caddis", "cannabis", "canvas", "chaos", "cosmos", "dais",

    "digitalis", "epidermis", "ethos", "eyas", "gas", "glottis", "hubris",

    "ibis", "lens", "mantis", "marquis", "metropolis", "pathos", "pelvis",

    "polis", "rhinoceros", "sassafrass", "trellis"

  )

  is.element( s, v )

}

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

# Copyright 2020, White Magic Software, Ltd.

# 

# Permission is hereby granted, free of charge, to any person obtaining

# a copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, sublicense, and/or sell copies of the Software, and to

# permit persons to whom the Software is furnished to do so, subject to

# the following conditions:

# 

# The above copyright notice and this permission notice shall be

# included in all copies or substantial portions of the Software.

# 

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

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

# Returns leftmost n characters of s.

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

lstr <- function( s, n = 1 ) {

  substr( s, 0, n )

}

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

# Returns rightmost n characters of s.

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

rstr <- function( s, n = 1 ) {

  l <- nchar( s )

  substr( s, l - n + 1, l )

}

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

# Returns the possessive form of the given word, s.

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

pos <- function( s ) {

  lcs <- tolower( s )

  pronouns <- c( 'your', 'our', 'her', 'it', 'their' )

  if( lcs == 'my' ) {

    # Change "[Mm]y" to "[Mm]ine".

    s <- paste0( lstr( s, 1 ), "ine" )

  }

  else if( lcs %in% pronouns ) {

    # Append an s to most pronouns.

    s <- paste0( s, 's' )

  }

  else if( lcs != 'his' ) {

    # Possessive for all other words except 'his'.

    s <- paste0( s, ifelse( rstr( s, 1 ) == 's', "'" ,"'s" ) )

  }

  s

}

# ![Logo](docs/images/app-title.png)

A text editor that uses [interpolated strings](https://en.wikipedia.org/wiki/String_interpolation) to reference externally defined values.

## Download

Download one of the following editions:

* [Windows](https://gitreleases.dev/gh/DaveJarvis/keenwrite/latest/keenwrite.exe)

* [Linux](https://gitreleases.dev/gh/DaveJarvis/keenwrite/latest/keenwrite.bin)

* [Java Archive](https://gitreleases.dev/gh/DaveJarvis/keenwrite/latest/keenwrite.jar)

## Run

Note that the first time the application runs, it will unpack itself into a local directory. Subsequent starts will be faster.

### Windows

On Windows, double-click the application to start. You will have to give the application permission to run.

When upgrading to a new version, delete the following directory;

    C:\Users\%USERNAME%\AppData\Local\warp\packages\keenwrite.exe

### Linux

On Linux, run `chmod +x keenwrite.bin` then `./keenwrite.bin`.

### Other

On other platforms, download and install a full version of [OpenJDK 14](https://bell-sw.com/pages/downloads/?version=java-14#mn) that includes JavaFX module support, then run:

``` bash

java -jar keenwrite.jar

```

## Features

* User-defined interpolated strings

* Real-time preview with variable substitution

* Auto-complete variable names based on variable values

* XML document transformation using XSLT3 or older

* Platform independent (Windows, Linux, MacOS)

* Spellcheck while typing

* Write mathematical formulas using a subset of TeX

* R integration

## Usage

See the [detailed documentation](docs/README.md) for information about

using the application.

## Screenshot

![Screenshot with Formulas](docs/images/equations.png)

## License

This software is licensed under the [BSD 2-Clause License](LICENSE.md) and

derived heavily from [Markdown-Writer-FX](licenses/MARKDOWN-WRITER-FX.md).

#!/usr/bin/env bash

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

# Copyright 2020 Dave Jarvis

#

# Permission is hereby granted, free of charge, to any person obtaining a

# copy of this software and associated documentation files (the

# "Software"), to deal in the Software without restriction, including

# without limitation the rights to use, copy, modify, merge, publish,

# distribute, sublicense, and/or sell copies of the Software, and to

# permit persons to whom the Software is furnished to do so, subject to

# the following conditions:

#

# The above copyright notice and this permission notice shall be included

# in all copies or substantial portions of the Software.

#

# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY

# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

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

set -o errexit

set -o nounset

readonly SCRIPT_SRC="$(dirname "${BASH_SOURCE[${#BASH_SOURCE[@]} - 1]}")"

readonly SCRIPT_DIR="$(cd "${SCRIPT_SRC}" >/dev/null 2>&1 && pwd)"

readonly SCRIPT_NAME=$(basename "$0")

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

# The main entry point is responsible for parsing command-line arguments,

# changing to the appropriate directory, and running all commands requested

# by the user.

#

# $@ - Command-line arguments

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

main() {

  arguments "$@"

  $usage       && terminate 3

  requirements && terminate 4

  traps        && terminate 5

  directory    && terminate 6

  preprocess   && terminate 7

  execute      && terminate 8

  postprocess  && terminate 9

  terminate 0

}

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

# Perform all commands that the script requires.

#

# @return 0 - Indicate to terminate the script with non-zero exit level

# @return 1 - All tasks completed successfully (default)

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

execute() {

  return 1

}

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

# Changes to the script's working directory, provided it exists.

#

# @return 0 - Change directory failed

# @return 1 - Change directory succeeded

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

directory() {

  $log "Change directory"

  local result=1

  # Track whether change directory failed.

  cd "${SCRIPT_DIR}" > /dev/null 2>&1 || result=0

  return "${result}"

}

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

# Perform any initialization required prior to executing tasks.

#

# @return 0 - Preprocessing failed

# @return 1 - Preprocessing succeeded

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

preprocess() {

  $log "Preprocess"

  return 1

}

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

# Perform any clean up required prior to executing tasks.

#

# @return 0 - Postprocessing failed

# @return 1 - Postprocessing succeeded

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

postprocess() {

  $log "Postprocess"

  return 1

}

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

# Check that all required commands are available.

#

# @return 0 - At least one command is missing

# @return 1 - All commands are available

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

requirements() {

  $log "Verify requirements"

  local -r expected_count=${#DEPENDENCIES[@]}

  local total_count=0

  # Verify that each command exists.

  for dependency in "${DEPENDENCIES[@]}"; do

    # Extract the command name [0] and URL [1].