addet blesh

.local/share/blesh/lib/vim-arpeggio.sh

@@ -0,0 +1,56 @@
+# Copyright 2015 Koichi Murase <myoga.murase@gmail.com>. All rights reserved.
+# This script is a part of blesh (https://github.com/akinomyoga/ble.sh)
+# provided under the BSD-3-Clause license.  Do not edit this file because this
+# is not the original source code: Various pre-processing has been applied.
+# Also, the code comments and blank lines are stripped off in the installation
+# process.  Please find the corresponding source file(s) in the repository
+# "akinomyoga/ble.sh".
+#
+# Source: /lib/vim-arpeggio.sh
+ble-import keymap.vi
+bleopt/declare -v vim_arpeggio_timeoutlen 40
+function ble/lib/vim-arpeggio.sh/bind/.usage {
+  ble/util/print "usage: ble/lib/vim-arpeggio.sh/bind [-m KEYMAP] -[fxcs@] KEYS COMMAND"
+  ble/util/print "  KEYS has the form of {mods}{X}{Y}. {mods} are modifiers of the form"
+  ble/util/print "  /([CSMAsH]-)*/ and {X} and {Y} are alphabets which specify simultaneous"
+  ble/util/print "  keys."
+}
+function ble/lib/vim-arpeggio.sh/bind {
+  local -a opts=()
+  if [[ $1 == -m ]]; then
+    if [[ ! $2 ]]; then
+      ble/util/print "vim-arpeggio.sh: invalid option argument for \`-m'." >&2
+      ble/lib/vim-arpeggio.sh/bind/.usage >&2
+      return 1
+    fi
+    ble/array#push opts -m "$2"
+    shift 2
+  fi
+  local type=$1 keys=$2 cmd=$3
+  if [[ $type == --help ]]; then
+    ble/lib/vim-arpeggio.sh/bind/.usage
+    return 0
+  elif [[ $type != -[fxcs@] ]]; then
+    ble/util/print "vim-arpeggio.sh: invalid bind type." >&2
+    ble/lib/vim-arpeggio.sh/bind/.usage >&2
+    return 1
+  fi
+  local mods=
+  if local rex='^(([CSMAsH]-)+)..'; [[ $keys =~ $rex ]]; then
+    mods=${BASH_REMATCH[1]}
+    keys=${keys:${#mods}}
+  fi
+  local timeout=$((bleopt_vim_arpeggio_timeoutlen))
+  ((timeout<0)) && timeout=
+  if ((${#keys}==2)); then
+    local k1=$mods${keys::1} k2=$mods${keys:1:1}
+    ble-bind "${opts[@]}" "$type" "$k1 $k2" "$cmd"
+    ble-bind "${opts[@]}" "$type" "$k2 $k1" "$cmd"
+    ble-bind "${opts[@]}" -T "$k1" "$timeout"
+    ble-bind "${opts[@]}" -T "$k2" "$timeout"
+  else
+    ble/util/print "vim-arpeggio.sh: sorry only 2-key bindings are supported now." >&2
+    ble/lib/vim-arpeggio.sh/bind/.usage >&2
+    return 1
+  fi
+}