New set of chanegs

Author: Szpadel

array.bash

@@ -9,6 +9,15 @@ array::pop() {
     unset "arr[-1]"
 }
 
+# array::from_string some_array " "  "a b c"
+array::from_string() {
+    local output_var=$1
+    local split_by=${2:-$'\n'}
+
+    mapfile -t -d "$split_by" "$output_var"
+}
+
+# array::contains "find_me" "${array[@]}"
 array::contains() {
     local item="$1"
     shift

develop.bash

@@ -23,8 +23,7 @@ develop::lint() {
 
 develop::is_in_dev_mode() {
     local dir=$1
-    if ! git::is_git_repo "$dir" || ! git::is_dirty "$dir";then
-        # we are not in git or git ins't dirty, then we run in production mode
+    if git::is_git_repo "$dir" && git::is_dirty "$dir";then
         return 0
     fi
     return 1

dialog.bash

@@ -44,6 +44,29 @@ dialog::menu() {
     return 1
 }
 
+dialog::select_from_array() {
+    local msg=$1
+    local -n _list=$2
+    
+    local order=()
+    local -A menu
+    local line
+    local n=0
+    local index
+    for line in "${_list[@]}";do
+        index="$(echo "$line" | grep -o '[0-9A-Za-z]'|head -n1)$n"
+        order+=( "$index" )
+        menu[$index]="$line"
+        n=$((n+1))
+    done
+    if dialog::menu "$msg" menu order 0 60;then
+        # shellcheck disable=SC2034
+        _output="${menu[$(dialog::result)]}"
+        return 0
+    fi
+    return 1
+}
+
 dialog::simple_list_select() {
     local msg=$1
     local list=$2
@@ -52,9 +75,11 @@ dialog::simple_list_select() {
     local -A menu
     local line
     local n=0
+    local index
     while IFS= read -r line;do
-        order+=( "$n" )
-        menu[$n]="$line"
+        index="$(echo "$line" | grep -o '[0-9A-Za-z]'|head -n1)$n"
+        order+=( "$index" )
+        menu[$index]="$line"
         n=$((n+1))
     done < <(echo "$list")
     if dialog::menu "$msg" menu order 0 60;then

fetch.bash

@@ -36,7 +36,7 @@ fetch::verify() {
     local sha=$1
     local file=$2
     local actual
-    actual=$(sha256sum "$file" | awk '{print $1}')
+    actual=$(sha256sum "$file" | gawk '{print $1}')
     if [ "$sha" != "$actual" ];then
         log::panic "Sha256 does not match. Expected ${sha} but got ${actual}"
     fi

git.bash

@@ -1,5 +1,6 @@
 #!/usr/bin/env bash
 
+import exec
 import dialog
 
 git::_git() {
@@ -11,6 +12,25 @@ git::_git() {
     ) || return 1
 }
 
+git::clone() {
+    local path=$1
+    local repo=$2
+
+    exec::silent git::_git "$path" clone "$repo" .
+}
+
+git::push_all() {
+    local path=$1
+    
+    exec::silent git::_git "$path" push --all
+}
+
+git::push_tags() {
+    local path=$1
+    
+    exec::silent git::_git "$path" push --tags
+}
+
 git::is_git_repo() {
     local path=$1
 
@@ -24,19 +44,32 @@ git::is_dirty() {
     return 1
 }
 
-git:::tag() {
+git::tag() {
     local path=$1
     local sha=$2
     local tag=$3
     local msg=$4
 
     if [ -n "$msg" ];then
-        git::_git "$path" -m "$msg" "$tag" "$sha"
+        git::_git "$path" tag -m "$msg" "$tag" "$sha"
     else
-        git::_git "$path" "$tag" "$sha"
+        git::_git "$path" tag "$tag" "$sha"
     fi
 }
 
+git::list_tags() {
+    local path=$1
+
+    git::_git "$path" tag -l
+}
+
+git::is_object_exists() {
+    local path=$1
+    local sha=$2
+
+    git::_git "$path" show -q "$sha" &> /dev/null || return 1
+}
+
 git::tag2commit_ref() {
     local path=$1
     local tag=$2
@@ -77,7 +110,7 @@ git::clone_progress() {
     (
         dialog::progress_msg "Cloning $repo_display"
         # There are 4 passes with progress when clonning git repo, last awk command make every 100 worth 25%
-        git clone "$repo" "$path" --progress 2>&1 | stdbuf -i0 -o0 -e0 tr '\r' '\n' | stdbuf -i0 -o0 -e0 grep -o "[0-9]\{1,2\}\%" | stdbuf -i0 -o0 -e0 grep -o '[0-9]*' | stdbuf -i0 -o0 -e0 awk "BEGIN{p=0;x=0} {if(\$1 < p) {x+=25;print x} else {print x+(\$1/4)};p=\$1 }"
+        git clone "$repo" "$path" --progress 2>&1 | stdbuf -i0 -oL -eL tr '\r' '\n' | stdbuf -oL -eL grep -o "[0-9]\{1,3\}\%" | stdbuf -eL sed 's/%//g' | stdbuf -oL -eL gawk "BEGIN{p=0;x=0} {if(\$1 < p) {x+=25;print x} else {print x+(\$1/4)};p=\$1 }"
     ) | dialog::progress "git clone" 8 80
     if ! [ -d "$path/.git" ];then
         dialog::msg "Failed to clone $repo"