X-Git-Url: https://git.madduck.net/etc/zsh.git/blobdiff_plain/33230b65afa1076218abff057d0bbcc7486af0a8..8375a5c6acd872547e7f2236a5a9f55dd04ac791:/.zsh/util

diff --git a/.zsh/util b/.zsh/util
index d3292f4..9b86536 100644
--- a/.zsh/util
+++ b/.zsh/util
@@ -16,7 +16,7 @@ array_prepend() {
   local arrayname="$1"; shift
   local i
   for i; do
-    eval "$arrayname=(\$i \${$arrayname[@]/\$i})"
+    eval "typeset -ga $arrayname; $arrayname=(\$i \${$arrayname[@]/\$i})"
   done
 }
 
@@ -24,10 +24,30 @@ array_append() {
   local arrayname="$1"; shift
   local i
   for i; do
-    eval "$arrayname=(\${$arrayname[@]/\$i} \$i)"
+    eval "typeset -ga $arrayname; $arrayname=(\${$arrayname[@]/\$i} \$i)"
   done
 }
 
 function trace() { ( eval "set -x; $@"; ) }
 
+function run_at_most_every() {
+  local timespec=
+  case "$1" in
+    ((#b)([0-9]##)([smhd])) timespec="${match[2]}-${match[1]}";;
+    (*)
+      zerror "missing timespec: $@"
+      return
+  esac
+  shift
+
+  local sentinel_dir="${XDG_RUNTIME_DIR:-${TMPDIR:-/tmp}}/run_at_most_once_per"
+  mkdir --parent "${sentinel_dir}"
+  local sentinel="${sentinel_dir}/${*//[^[:alnum:]]##/_}_${timespec}"
+  if test -z ${sentinel}(#qNm${timespec}); then
+    touch "${sentinel}"
+    $@
+    return $?
+  fi
+}
+
 # vim:ft=zsh