Textmate command for creating Jekyll-Bootstrap posts via Knitr

knit-to-post

#!/usr/bin/env bash
[[ -f "${TM_SUPPORT_PATH}/lib/bash_init.sh" ]] && . "${TM_SUPPORT_PATH}/lib/bash_init.sh"

# Source some support functions we need.
. "${TM_SUPPORT_PATH}/lib/html.sh"
. "${TM_SUPPORT_PATH}/lib/webpreview.sh"

# Get the viewer program. Any program (that works with open -a <name>) can be used,
# except 'html' which is reserved to mean the internal HTML window. This is also the
# default option.

## I am using the following extension to preview markdown files
## https://chrome.google.com/webstore/detail/jmchmkecamhbiokiopfpnfgbidieafmd
V="Google Chrome"
M=${TM_LATEX_MASTER:-$TM_FILEPATH}
DIR=`dirname "$M"`
FILE=`basename "${M%.*}".Rmd`
FINAL="${FILE%.*}.md"
echo $FILE
echo $DIR
echo $FINAL

# Switch to the right directory.
cd "$TM_PROJECT_DIRECTORY"
cd "$DIR"

# Prepare output window.
html_header 'knit html result' "$FILE"
echo '<h2>Kniting…</h2>'

SW=${TM_SWEAVE_WD:=${TM_DIRECTORY}}
echo -e "setwd('$SW'); library(knitr); KnitPost <- function(input, base.url = '/') { opts_knit\$set(base.url = base.url); fig.path <- paste0('figs/', sub('.Rmd$', '', basename(input)), '/'); opts_chunk\$set(fig.path = fig.path); opts_chunk\$set(fig.cap = 'center'); render_jekyll(); knit(input) }; KnitPost('$FILE')" | R --vanilla --quiet | pre

# If there is output and it's newer than the current document, then we go directly to preview or link to it.
if [ -s "${FINAL}" -a ! "$FINAL" -ot "$FILE" ]; then
	if [[ "$V" == html ]]; then
		WEB_LOC="file://${DIR}/${FINAL}"
		WEB_LOC="${WEB_LOC//\\#/%23}"
		redirect "${WEB_LOC}"
	else
		V=${V%.app} # strip potential .app extension
		if find_app >/dev/null "$V.app"; then
			open -a "$V" "$FINAL"
		else
			strong "Error locating external viewer: $V"
		fi
	fi
else
	strong "Error: Markdown file not written to disk"
fi
html_footer