-function info_print () {
- local esc_begin esc_end
- esc_begin="$1"
- esc_end="$2"
- shift 2
- printf '%s' ${esc_begin}
- printf '%s' "$*"
- printf '%s' "${esc_end}"
-}
-
-function set_title () {
- info_print $'\e]0;' $'\a' "$@"
-}
+#function info_print () {
+# local esc_begin esc_end
+# esc_begin="$1"
+# esc_end="$2"
+# shift 2
+# printf '%s' ${esc_begin}
+# printf '%s' "$*"
+# printf '%s' "${esc_end}"
+#}
+#
+#function set_title () {
+# info_print $'\e]0;' $'\a' "$@"
+#}
+#
+#function ESC_print () {
+# info_print $'\ek' $'\e\\' "$@"
+#}
+#
+#preexec () {
+# case $TERM in
+# (xterm*|rxvt*)
+# set_title "${(%):-"%n@%m:"}" "$1"
+# ;;
+# (screen*)
+# local CMD=${1[(wr)^(*=*|sudo|ssh|evince|-*)]}
+# ESC_print ${CMD}
+# ;;
+# esac
+#}
+#
+#precmd () {
+# case $TERM in
+# (xterm*|rxvt*)
+# set_title ${(%):-"%n@%m: %~"}
+# ;;
+# (screen*)
+# ESC_print "zsh"
+# ;;
+# esac
+#
+# vcs_info
+#
+## local INBOXINFO="$(task rc.gc=off rc.verbose=nothing +in +PENDING count) "
+#
+# PS1="${HENKSPROMPTHEADER}%(0?..%F{red}E%?%f )%(1j.%F{yellow}J%j%f .)%(3L.%F{yellow}L%L%f .)%3~ %F{green}$VCSH_REPO_NAME%f%F{yellow}${vcs_info_msg_0_}%f%# "
+#}
-function ESC_print () {
- info_print $'\ek' $'\e\\' "$@"
+function vifind () {
+ vi $( find $@)
}
-preexec () {
- case $TERM in
- (xterm*|rxvt*)
- set_title "${(%):-"%n@%m:"}" "$1"
- ;;
- (screen*)
- local CMD=${1[(wr)^(*=*|sudo|ssh|evince|-*)]}
- ESC_print ${CMD}
- ;;
- esac
+function new_haskell_project () {
+ stack new $1 simple
+ cd $1
+ git init
}
-precmd () {
- case $TERM in
- (xterm*|rxvt*)
- set_title ${(%):-"%n@%m: %~"}
- ;;
- (screen*)
- ESC_print "zsh"
- ;;
- esac
-
- vcs_info
- if [[ -n ${vcs_info_msg_0_} ]]; then
- local HENKSPROMPT="%(0?..%F{red}E%?%f )%(1j.%F{yellow}J%j%f .)%(3L.%F{yellow}L%L%f .)%3~ %F{green}$VCSH_REPO_NAME%f%F{yellow}${vcs_info_msg_0_}%f%# "
- PS1="$HENKSPROMPTHEADER$HENKSPROMPT"
- else
- local HENKSPROMPT="%(0?..%F{red}E%?%f )%(1j.%F{yellow}J%j%f .)%(3L.%F{yellow}L%L%f .)%3~ %F{green}$VCSH_REPO_NAME%f%F{yellow}${vcs_info_msg_0_}%f%# "
- PS1="$HENKSPROMPTHEADER$HENKSPROMPT"
- fi
+function henkspngpostproc () {
+ local resize_by
+ local img
+ resize_by="$1"
+ shift
+ for img in $*
+ do
+ mkdir -p resized/pngnqed/optipnged
+ convert -resize $resize_by% $img resized/$img
+ pngnq -f -d resized/pngnqed -e .png resized/$img
+ optipng -out resized/pngnqed/optipnged/$img resized/pngnqed/$img
+ done
}
-function vifind () {
- vi $( find $1 -type f )
+function with () {
+ local prefix="$* " str compcontext=normal:normal:_normal
+ while :
+ do
+ str=$prefix
+ vared str && eval $str
+ done
}
-function shufflevideos () {
- find $@ -type f -iregex ".*\.\(avi\|flv\|mkv\|mpeg\|mpg\|wmv\|wva\|mp4\|webm\|wva\|m4v\|ogm\|mp4\|mov\)" -exec mpv --shuffle $MPVOPTS \{\} +
+function stardewpause () {
+ while read bar
+ do
+ xdotool \
+ search --class 'StardewValley' \
+ windowactivate --sync \
+ type --delay 100 t/pause\r
+ done
}