aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/generate-configs
diff options
context:
space:
mode:
authorAlex Tarkovsky <alextarkovsky@gmail.com>2007-10-13 11:02:51 +0200
committerAlex Tarkovsky <alextarkovsky@gmail.com>2007-10-13 11:02:51 +0200
commitc22d87f6dede9f55dfc5ebc8a1db8283fb078d95 (patch)
tree16cf13a51204bb06a5f0db47ed1b6c24c2e2729a /scripts/generate-configs
parent07a0bee8302ee0542117a2b8a4511e478ca3bd44 (diff)
downloadXMonadContrib-c22d87f6dede9f55dfc5ebc8a1db8283fb078d95.tar.gz
XMonadContrib-c22d87f6dede9f55dfc5ebc8a1db8283fb078d95.tar.xz
XMonadContrib-c22d87f6dede9f55dfc5ebc8a1db8283fb078d95.zip
New features for generate-configs.sh; renamed to generate-configs
darcs-hash:20071013090251-bd4fb-cbc2dbc80107aa545c665fe552c19a9bbde2b04f.gz
Diffstat (limited to '')
-rwxr-xr-xscripts/generate-configs302
-rwxr-xr-xscripts/generate-configs.sh206
2 files changed, 302 insertions, 206 deletions
diff --git a/scripts/generate-configs b/scripts/generate-configs
new file mode 100755
index 0000000..e2880f6
--- /dev/null
+++ b/scripts/generate-configs
@@ -0,0 +1,302 @@
+#!/bin/bash
+
+# generate-configs - Docstring parser for generating xmonad build configs with
+# default settings for extensions
+# Author: Alex Tarkovsky <alextarkovsky@gmail.com>
+# Released into the public domain
+
+# This script parses custom docstrings specifying build-time configuration data
+# from xmonad extension source files, then inserts the data into copies of
+# xmonad's Config.hs and xmonad.cabal files accordingly.
+#
+# Usage: generate-configs [ OPTIONS ] --main MAIN_DIR --contrib CONTRIB_DIR
+#
+# OPTIONS:
+# --active, -a Insert data in active mode (default: passive)
+# --contrib, -c CONTRIB_DIR Path to contrib repository base directory
+# --help, -h Show help
+# --main, -m MAIN_DIR Path to main repository base directory
+# --output, -o OUTPUT_DIR Output directory (default: CONTRIB_DIR)
+#
+# Data parsed from the extension source files is inserted into Config.hs in
+# either active or passive mode. The default is passive mode, in which the
+# inserted data is commented out. The --active option inserts the data
+# uncommented. Data inserted into xmonad.cabal is always inserted in active
+# mode regardless of specified options.
+#
+# The docstring markup can be extended as needed. Currently the following tags
+# are defined, shown with some examples:
+#
+# ~~~~~
+#
+# %cabalbuilddep
+#
+# Cabal build dependency. Value is appended to the "build-depends" line in
+# xmonad.cabal and automatically prefixed with ", ". NB: Don't embed
+# comments in this tag!
+#
+# -- %cabalbuilddep readline>=1.0
+#
+# %def
+#
+# General definition. Value is appended to the end of Config.sh.
+#
+# -- %def commands :: [(String, X ())]
+# -- %def commands = defaultCommands
+#
+# %import
+#
+# Module needed by Config.sh to build the extension. Value is appended to
+# the end of the default import list in Config.sh and automatically
+# prefixed with "import ".
+#
+# -- %import XMonadContrib.Accordion
+# -- %import qualified XMonadContrib.FlexibleManipulate as Flex
+#
+# %keybind
+#
+# Tuple defining a key binding. Must be prefixed with ", ". Value is
+# inserted at the end of the "keys" list in Config.sh.
+#
+# -- %keybind , ((modMask, xK_d), date)
+#
+# %keybindlist
+#
+# Same as %keybind, but instead of a key binding tuple the definition is a
+# list of key binding tuples (or a list comprehension producing them). This
+# list is concatenated to the "keys" list must begin with the "++" operator
+# rather than ", ".
+#
+# -- %keybindlist ++
+# -- %keybindlist -- mod-[1..9] @@ Switch to workspace N
+# -- %keybindlist -- mod-shift-[1..9] @@ Move client to workspace N
+# -- %keybindlist -- mod-control-shift-[1..9] @@ Copy client to workspace N
+# -- %keybindlist [((m .|. modMask, k), f i)
+# -- %keybindlist | (i, k) <- zip [0..fromIntegral (workspaces-1)] [xK_1 ..]
+# -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
+#
+# %layout
+#
+# A layout. Must be prefixed with ", ". Value is inserted at the end of the
+# "defaultLayouts" list in Config.sh.
+#
+# -- %layout , accordion
+#
+# %mousebind
+#
+# Tuple defining a mouse binding. Must be prefixed with ", ". Value is
+# inserted at the end of the "mouseBindings" list in Config.sh.
+#
+# -- %mousebind , ((modMask, button3), (\\w -> focus w >> Flex.mouseResizeWindow w))
+#
+# ~~~~~
+#
+# NB: '/' and '\' characters must be escaped with a '\' character!
+#
+# Tags may also contain comments, as illustrated in the %keybindlist examples
+# above. Comments are a good place for special user instructions:
+#
+# -- %def -- comment out default logHook definition above if you uncomment this:
+# -- %def logHook = dynamicLog
+
+# Markup tag to search for in source files.
+TAG_CABALBUILDDEP="%cabalbuilddep"
+TAG_DEF="%def"
+TAG_IMPORT="%import"
+TAG_KEYBIND="%keybind"
+TAG_KEYBINDLIST="%keybindlist"
+TAG_LAYOUT="%layout"
+TAG_MOUSEBIND="%mousebind"
+
+# Insert markers to search for in Config.sh and xmonad.cabal. Values are
+# extended sed regular expressions.
+INS_MARKER_CABALBUILDDEP='^build-depends:.*'
+INS_MARKER_IMPORT='-- % Extension-provided imports$'
+INS_MARKER_LAYOUT='-- % Extension-provided layouts$'
+INS_MARKER_KEYBIND='-- % Extension-provided key bindings$'
+INS_MARKER_KEYBINDLIST='-- % Extension-provided key bindings lists$'
+INS_MARKER_MOUSEBIND='-- % Extension-provided mouse bindings$'
+INS_MARKER_DEF='-- % Extension-provided definitions$'
+
+# Literal indentation strings. Values may contain escaped chars such as \t.
+INS_INDENT_CABALBUILDDEP=""
+INS_INDENT_DEF=""
+INS_INDENT_IMPORT=""
+INS_INDENT_KEYBIND=" "
+INS_INDENT_KEYBINDLIST=" "
+INS_INDENT_LAYOUT=" "
+INS_INDENT_MOUSEBIND=" "
+
+# Prefix applied to inserted passive data after indent strings have been applied.
+INS_PREFIX_DEF="-- "
+INS_PREFIX_IMPORT="--import "
+INS_PREFIX_KEYBIND="-- "
+INS_PREFIX_KEYBINDLIST="-- "
+INS_PREFIX_LAYOUT="-- "
+INS_PREFIX_MOUSEBIND="-- "
+
+# Prefix applied to inserted active data after indent strings have been applied.
+ACTIVE_INS_PREFIX_CABALBUILDDEP=", "
+ACTIVE_INS_PREFIX_DEF=""
+ACTIVE_INS_PREFIX_IMPORT="import "
+ACTIVE_INS_PREFIX_KEYBIND=""
+ACTIVE_INS_PREFIX_KEYBINDLIST=""
+ACTIVE_INS_PREFIX_LAYOUT=""
+ACTIVE_INS_PREFIX_MOUSEBIND=""
+
+# Don't touch these
+opt_active=0
+opt_contrib=""
+opt_main=""
+opt_output=""
+
+generate_configs() {
+ for extension_srcfile in $(ls --color=never -1 "${opt_contrib}"/*.hs | head -n -1 | sort -r) ; do
+ for tag in $TAG_CABALBUILDDEP \
+ $TAG_DEF \
+ $TAG_IMPORT \
+ $TAG_KEYBIND \
+ $TAG_KEYBINDLIST \
+ $TAG_LAYOUT \
+ $TAG_MOUSEBIND ; do
+
+ ifs="$IFS"
+ IFS=$'\n'
+ tags=( $(sed -n -r -e "s/^.*--\s*${tag}\s//p" "${extension_srcfile}") )
+ IFS="${ifs}"
+
+ case $tag in
+ $TAG_CABALBUILDDEP) ins_indent=$INS_INDENT_CABALBUILDDEP
+ ins_marker=$INS_MARKER_CABALBUILDDEP
+ ins_prefix=$ACTIVE_INS_PREFIX_CABALBUILDDEP
+ ;;
+ $TAG_DEF) ins_indent=$INS_INDENT_DEF
+ ins_marker=$INS_MARKER_DEF
+ ins_prefix=$INS_PREFIX_DEF
+ ;;
+ $TAG_IMPORT) ins_indent=$INS_INDENT_IMPORT
+ ins_marker=$INS_MARKER_IMPORT
+ ins_prefix=$INS_PREFIX_IMPORT
+ ;;
+ $TAG_KEYBIND) ins_indent=$INS_INDENT_KEYBIND
+ ins_marker=$INS_MARKER_KEYBIND
+ ins_prefix=$INS_PREFIX_KEYBIND
+ ;;
+ $TAG_KEYBINDLIST) ins_indent=$INS_INDENT_KEYBINDLIST
+ ins_marker=$INS_MARKER_KEYBINDLIST
+ ins_prefix=$INS_PREFIX_KEYBINDLIST
+ ;;
+ $TAG_LAYOUT) ins_indent=$INS_INDENT_LAYOUT
+ ins_marker=$INS_MARKER_LAYOUT
+ ins_prefix=$INS_PREFIX_LAYOUT
+ ;;
+ $TAG_MOUSEBIND) ins_indent=$INS_INDENT_MOUSEBIND
+ ins_marker=$INS_MARKER_MOUSEBIND
+ ins_prefix=$INS_PREFIX_MOUSEBIND
+ ;;
+ esac
+
+ # Insert in reverse so values will ultimately appear in correct order.
+ for i in $( seq $(( ${#tags[*]} - 1 )) -1 0 ) ; do
+ [ -z "${tags[i]}" ] && continue
+ if [[ $tag == $TAG_CABALBUILDDEP ]] ; then
+ sed -i -r -e "s/${ins_marker}/\\0${ins_prefix}${tags[i]}/" "${CABAL_FILE}"
+ else
+ sed -i -r -e "/${ins_marker}/{G;s/$/${ins_indent}${ins_prefix}${tags[i]}/;}" "${CONFIG_FILE}"
+ fi
+ done
+
+ if [[ $tag != $TAG_CABALBUILDDEP && -n "${tags}" ]] ; then
+ ins_group_comment="${ins_indent}-- For extension $(basename $extension_srcfile .hs):"
+ sed -i -r -e "/${ins_marker}/{G;s/$/${ins_group_comment}/;}" "${CONFIG_FILE}"
+ fi
+ done
+ done
+}
+
+parse_opts() {
+ [[ -z "$1" ]] && show_usage 1
+
+ while [[ $# > 0 ]] ; do
+ case "$1" in
+ --active|-a) opt_active=1
+ shift ;;
+
+ --contrib|-c) shift
+ if [[ -z "$1" || ! -d "$1" ]] ; then
+ echo "Error: Option --contrib requires a directory as argument. See: generate-configs -h"
+ exit 1
+ fi
+ opt_contrib="$1"
+ shift ;;
+
+ --help|-h) show_usage ;;
+
+ --main|-m) shift
+ if [[ -z "$1" || ! -d "$1" ]] ; then
+ echo "Error: Option --main requires a directory as argument. See: generate-configs -h"
+ exit 1
+ fi
+ opt_main="$1"
+ shift ;;
+
+ --output|-o) shift
+ if [[ -z "$1" || ! -d "$1" ]] ; then
+ echo "Error: Option --output requires a directory as argument. See: generate-configs -h"
+ exit 1
+ fi
+ opt_output="$1"
+ shift ;;
+
+ -*) echo "Error: Unknown option ${1}. See: generate-configs -h"
+ exit 1 ;;
+
+ *) show_usage 1 ;;
+ esac
+ done
+
+ if [[ -z "$opt_main" ]] ; then
+ echo "Error: Missing required option --main. See: generate-configs -h"
+ exit 1
+ fi
+
+ if [[ -z "$opt_contrib" ]] ; then
+ echo "Error: Missing required option --contrib. See: generate-configs -h"
+ exit 1
+ fi
+}
+
+show_usage() {
+cat << EOF
+Usage: generate-configs [ OPTIONS ] --main MAIN_DIR --contrib CONTRIB_DIR
+
+OPTIONS:
+ --active, -a Insert data in active mode (default: passive)
+ --contrib, -c CONTRIB_DIR Path to contrib repository base directory
+ --help, -h Show help
+ --main, -m MAIN_DIR Path to main repository base directory
+ --output, -o OUTPUT_DIR Output directory (default: CONTRIB_DIR)
+EOF
+ exit ${1:-0}
+}
+
+parse_opts $*
+
+[[ -z "$opt_output" ]] && opt_output="$opt_contrib"
+
+CABAL_FILE="${opt_output}/xmonad.cabal"
+CONFIG_FILE="${opt_output}/Config.hs"
+
+cp -f "${opt_main}/xmonad.cabal" "${CABAL_FILE}"
+cp -f "${opt_main}/Config.hs" "${CONFIG_FILE}"
+
+if [[ $opt_active == 1 ]] ; then
+ INS_PREFIX_DEF=$ACTIVE_INS_PREFIX_DEF
+ INS_PREFIX_IMPORT=$ACTIVE_INS_PREFIX_IMPORT
+ INS_PREFIX_KEYBIND=$ACTIVE_INS_PREFIX_KEYBIND
+ INS_PREFIX_KEYBINDLIST=$ACTIVE_INS_PREFIX_KEYBINDLIST
+ INS_PREFIX_LAYOUT=$ACTIVE_INS_PREFIX_LAYOUT
+ INS_PREFIX_MOUSEBIND=$ACTIVE_INS_PREFIX_MOUSEBIND
+fi
+
+generate_configs
diff --git a/scripts/generate-configs.sh b/scripts/generate-configs.sh
deleted file mode 100755
index 60fdc61..0000000
--- a/scripts/generate-configs.sh
+++ /dev/null
@@ -1,206 +0,0 @@
-#!/bin/bash
-
-# generate-configs.sh - Docstring parser for generating xmonad build configs
-# with default settings for extensions
-# Author: Alex Tarkovsky <alextarkovsky@gmail.com>
-# Released into the public domain
-
-# This script parses custom docstrings specifying build-time configuration data
-# from xmonad extension source files, then inserts the data into copies of
-# xmonad's Config.hs and xmonad.cabal files accordingly.
-#
-# Usage: generate-configs.sh PATH_TO_CONTRIBS
-#
-# Run this script from the directory containing xmonad's main Config.hs and
-# xmonad.cabal files, otherwise you'll need to change the value of
-# $REPO_DIR_BASE below.
-#
-# The docstring markup can be extended as needed. Currently the following tags
-# are defined, shown with some examples:
-#
-# ~~~~~
-#
-# %cabalbuilddep
-#
-# Cabal build dependency. Value is appended to the "build-depends" line in
-# xmonad.cabal and automatically prefixed with ", ". NB: Don't embed
-# comments in this tag!
-#
-# -- %cabalbuilddep readline>=1.0
-#
-# %def
-#
-# General definition. Value is appended to the end of Config.sh.
-#
-# -- %def commands :: [(String, X ())]
-# -- %def commands = defaultCommands
-#
-# %import
-#
-# Module needed by Config.sh to build the extension. Value is appended to
-# the end of the default import list in Config.sh and automatically
-# prefixed with "import ".
-#
-# -- %import XMonadContrib.Accordion
-# -- %import qualified XMonadContrib.FlexibleManipulate as Flex
-#
-# %keybind
-#
-# Tuple defining a key binding. Must be prefixed with ", ". Value is
-# inserted at the end of the "keys" list in Config.sh.
-#
-# -- %keybind , ((modMask, xK_d), date)
-#
-# %keybindlist
-#
-# Same as %keybind, but instead of a key binding tuple the definition is a
-# list of key binding tuples (or a list comprehension producing them). This
-# list is concatenated to the "keys" list must begin with the "++" operator
-# rather than ", ".
-#
-# -- %keybindlist ++
-# -- %keybindlist -- mod-[1..9] @@ Switch to workspace N
-# -- %keybindlist -- mod-shift-[1..9] @@ Move client to workspace N
-# -- %keybindlist -- mod-control-shift-[1..9] @@ Copy client to workspace N
-# -- %keybindlist [((m .|. modMask, k), f i)
-# -- %keybindlist | (i, k) <- zip [0..fromIntegral (workspaces-1)] [xK_1 ..]
-# -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
-#
-# %layout
-#
-# A layout. Must be prefixed with ", ". Value is inserted at the end of the
-# "defaultLayouts" list in Config.sh.
-#
-# -- %layout , accordion
-#
-# %mousebind
-#
-# Tuple defining a mouse binding. Must be prefixed with ", ". Value is
-# inserted at the end of the "mouseBindings" list in Config.sh.
-#
-# -- %mousebind , ((modMask, button3), (\\w -> focus w >> Flex.mouseResizeWindow w))
-#
-# ~~~~~
-#
-# NB: '/' and '\' characters must be escaped with a '\' character!
-#
-# Tags may also contain comments, as illustrated in the %keybindlist examples
-# above. Comments are a good place for special user instructions:
-#
-# -- %def -- comment out default logHook definition above if you uncomment this:
-# -- %def logHook = dynamicLog
-
-if [[ -z "$1" || $# > 1 || ! -d "$1" ]] ; then
- echo "Usage: generate-configs.sh PATH_TO_CONTRIB"
- exit 1
-fi
-
-REPO_DIR_BASE="."
-
-CABAL_FILE_BASE="${REPO_DIR_BASE}/xmonad.cabal"
-CABAL_FILE_CONTRIB="${1}/xmonad.cabal"
-
-CONFIG_FILE_BASE="${REPO_DIR_BASE}/Config.hs"
-CONFIG_FILE_CONTRIB="${1}/Config.hs"
-
-# Markup tag to search for in source files.
-TAG_CABALBUILDDEP="%cabalbuilddep"
-TAG_DEF="%def"
-TAG_IMPORT="%import"
-TAG_KEYBIND="%keybind"
-TAG_KEYBINDLIST="%keybindlist"
-TAG_LAYOUT="%layout"
-TAG_MOUSEBIND="%mousebind"
-
-# Insert markers to search for in Config.sh and xmonad.cabal. Values are
-# extended sed regular expressions.
-INS_MARKER_CABALBUILDDEP='^build-depends:.*'
-INS_MARKER_IMPORT='-- % Extension-provided imports$'
-INS_MARKER_LAYOUT='-- % Extension-provided layouts$'
-INS_MARKER_KEYBIND='-- % Extension-provided key bindings$'
-INS_MARKER_KEYBINDLIST='-- % Extension-provided key bindings lists$'
-INS_MARKER_MOUSEBIND='-- % Extension-provided mouse bindings$'
-INS_MARKER_DEF='-- % Extension-provided definitions$'
-
-# Literal indentation strings. Values may contain escaped chars such as \t.
-INS_INDENT_CABALBUILDDEP=""
-INS_INDENT_DEF=""
-INS_INDENT_IMPORT=""
-INS_INDENT_KEYBIND=" "
-INS_INDENT_KEYBINDLIST=" "
-INS_INDENT_LAYOUT=" "
-INS_INDENT_MOUSEBIND=" "
-
-# Prefix applied to inserted values after indent strings have been applied.
-INS_PREFIX_CABALBUILDDEP=", "
-INS_PREFIX_DEF="-- "
-INS_PREFIX_IMPORT="--import "
-INS_PREFIX_KEYBIND="-- "
-INS_PREFIX_KEYBINDLIST="-- "
-INS_PREFIX_LAYOUT="-- "
-INS_PREFIX_MOUSEBIND="-- "
-
-cp -f "${CABAL_FILE_BASE}" "${CABAL_FILE_CONTRIB}"
-cp -f "${CONFIG_FILE_BASE}" "${CONFIG_FILE_CONTRIB}"
-
-for extension_srcfile in $(ls --color=never -1 "${1}"/*.hs | head -n -1 | sort -r) ; do
- for tag in $TAG_CABALBUILDDEP \
- $TAG_DEF \
- $TAG_IMPORT \
- $TAG_KEYBIND \
- $TAG_KEYBINDLIST \
- $TAG_LAYOUT \
- $TAG_MOUSEBIND ; do
-
- ifs="$IFS"
- IFS=$'\n'
- tags=( $(sed -n -r -e "s/^.*--\s*${tag}\s//p" "${extension_srcfile}") )
- IFS="${ifs}"
-
- case $tag in
- $TAG_CABALBUILDDEP) ins_indent=$INS_INDENT_CABALBUILDDEP
- ins_marker=$INS_MARKER_CABALBUILDDEP
- ins_prefix=$INS_PREFIX_CABALBUILDDEP
- ;;
- $TAG_DEF) ins_indent=$INS_INDENT_DEF
- ins_marker=$INS_MARKER_DEF
- ins_prefix=$INS_PREFIX_DEF
- ;;
- $TAG_IMPORT) ins_indent=$INS_INDENT_IMPORT
- ins_marker=$INS_MARKER_IMPORT
- ins_prefix=$INS_PREFIX_IMPORT
- ;;
- $TAG_KEYBIND) ins_indent=$INS_INDENT_KEYBIND
- ins_marker=$INS_MARKER_KEYBIND
- ins_prefix=$INS_PREFIX_KEYBIND
- ;;
- $TAG_KEYBINDLIST) ins_indent=$INS_INDENT_KEYBINDLIST
- ins_marker=$INS_MARKER_KEYBINDLIST
- ins_prefix=$INS_PREFIX_KEYBINDLIST
- ;;
- $TAG_LAYOUT) ins_indent=$INS_INDENT_LAYOUT
- ins_marker=$INS_MARKER_LAYOUT
- ins_prefix=$INS_PREFIX_LAYOUT
- ;;
- $TAG_MOUSEBIND) ins_indent=$INS_INDENT_MOUSEBIND
- ins_marker=$INS_MARKER_MOUSEBIND
- ins_prefix=$INS_PREFIX_MOUSEBIND
- ;;
- esac
-
- # Insert in reverse so values will ultimately appear in correct order.
- for i in $( seq $(( ${#tags[*]} - 1 )) -1 0 ) ; do
- [ -z "${tags[i]}" ] && continue
- if [[ $tag == $TAG_CABALBUILDDEP ]] ; then
- sed -i -r -e "s/${ins_marker}/\\0${ins_prefix}${tags[i]}/" "${CABAL_FILE_CONTRIB}"
- else
- sed -i -r -e "/${ins_marker}/{G;s/$/${ins_indent}${ins_prefix}${tags[i]}/;}" "${CONFIG_FILE_CONTRIB}"
- fi
- done
-
- if [[ $tag != $TAG_CABALBUILDDEP && -n "${tags}" ]] ; then
- ins_group_comment="${ins_indent}-- For extension $(basename $extension_srcfile .hs):"
- sed -i -r -e "/${ins_marker}/{G;s/$/${ins_group_comment}/;}" "${CONFIG_FILE_CONTRIB}"
- fi
- done
-done