From c3362aefa2e762211409923cfff065541bebf9e7 Mon Sep 17 00:00:00 2001
From: Saumit Dinesan <justsaumit@protonmail.com>
Date: Sun, 22 May 2022 00:37:40 +0530
Subject: ble.sh & z4h addition

---
 .local/src/blesh/lib/vim-arpeggio.sh | 48 ++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 .local/src/blesh/lib/vim-arpeggio.sh

(limited to '.local/src/blesh/lib/vim-arpeggio.sh')

diff --git a/.local/src/blesh/lib/vim-arpeggio.sh b/.local/src/blesh/lib/vim-arpeggio.sh
new file mode 100644
index 0000000..cb59766
--- /dev/null
+++ b/.local/src/blesh/lib/vim-arpeggio.sh
@@ -0,0 +1,48 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+source "$_ble_base/keymap/vi.sh"
+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
+}
-- 
cgit v1.2.3