Ajout des fichiers manquants

This commit is contained in:
Benjamin VAUDOUR 2021-08-24 20:45:25 +02:00
parent ff9cefd28f
commit 62ebf74ebe
17 changed files with 472 additions and 0 deletions

6
lib/moi/alias.elv Normal file
View file

@ -0,0 +1,6 @@
local:dir = ~/.config/elvish/aliases
for file [(_ = ?(put $dir/*.elv))] {
content = (cat $file | slurp)
eval $content
}

View file

@ -0,0 +1,24 @@
local:libdir = $E:HOME/.config/elvish/lib
local:builtin_modules = [
builtin
epm
file
math
path
re
readline-binding
store
str
unix
]
edit:completion:arg-completer[use] = [@argv]{
use str
use path
all $builtin_modules
put $libdir/**.elv | each [f]{
if (path:is-regular $f) {
str:trim-prefix $f $libdir/
}
} | each [f]{ str:trim-suffix $f .elv }
}

42
lib/moi/util/common.elv Normal file
View file

@ -0,0 +1,42 @@
edit:add-var ++~ [n]{ + $n 1 }
edit:add-var --~ [n]{ + $n 1 }
edit:add-var sign~ [n]{
if (> $n 0) {
put 1
} elif (< $n 0) {
put -1
} else {
put 0
}
}
edit:add-var neg~ [n]{ * $n -1 }
edit:add-var abs~ [n]{
if (< $n 0) {
neg $n
} else {
put $n
}
}
edit:add-var sum~ [@numbers]{
local:s = 0
each [e]{ s = (+ $s e) } (to-list $numbers)
}
fn -minmax [t @numbers]{
local:l = (to-list $@numbers)
if (== (count $l) 0) {
return
}
local:m = $l[0]
each [n]{
if ($t $n $m) {
m = $n
}
} $l[1..]
put $m
}
edit:add-var min~ [@numbers]{ -minmax $'<~' $@numbers }
edit:add-var max~ [@numbers]{ -minmax $'>~' $@numbers }