ejri.dev
fork
Configure Feed
Select the types of activity you want to include in your feed.
Modules for Elvish Shell
fork
Configure Feed
Select the types of activity you want to include in your feed.
Adding atuin.elv
+70
-9
+11
-9
README.md
+11
-9
README.md
···
16
16
17
17
```nix
18
18
{
19
-
inputs = {
20
-
mellon.url = "github:ejrichards/mellon";
21
-
};
22
-
23
-
outputs = {
24
-
mellon,
25
-
...
26
-
}:
27
-
{
28
19
...
29
20
nixosConfigurations = {
30
21
modules = [
···
38
29
39
30
```elvish
40
31
use github.com/ejrichards/mellon/<module>
32
+
```
33
+
34
+
## `atuin.elv`
35
+
36
+
Add bindings for `Ctrl-r` and `Up` to use atuin for searching history.
37
+
```elvish
38
+
if (has-external atuin) {
39
+
use github.com/ejrichards/mellon/atuin
40
+
set edit:insert:binding[Ctrl-r] = { atuin:search }
41
+
set edit:insert:binding[Up] = { atuin:search-up }
42
+
}
41
43
```
42
44
43
45
## `fzf.elv`
+59
atuin.elv
+59
atuin.elv
···
1
+
use math
2
+
use os
3
+
use file
4
+
use str
5
+
6
+
set-env ATUIN_SESSION (atuin uuid)
7
+
unset-env ATUIN_HISTORY_ID
8
+
9
+
set edit:after-readline = [$@edit:after-readline {|line|
10
+
try {
11
+
set-env ATUIN_HISTORY_ID (atuin history start -- $line)
12
+
} catch e {
13
+
unset-env ATUIN_HISTORY_ID
14
+
}
15
+
}]
16
+
17
+
set edit:after-command = [$@edit:after-command {|m|
18
+
if (has-env ATUIN_HISTORY_ID) {
19
+
var exit-status = 0
20
+
if (not-eq $m[error] $nil) {
21
+
if (has-key $m[error][reason] exit-status) {
22
+
set exit-status = $m[error][reason][exit-status]
23
+
} else {
24
+
set exit-status = 127
25
+
}
26
+
}
27
+
var duration = (exact-num (math:round (* $m[duration] 1000000000)))
28
+
29
+
with E:ATUIN_LOG = 'error' { atuin history end --exit $exit-status --duration=$duration -- $E:ATUIN_HISTORY_ID >$os:dev-null 2>&1 & }
30
+
31
+
unset-env ATUIN_HISTORY_ID
32
+
}
33
+
}]
34
+
35
+
fn search {|@argv|
36
+
var accept-prefix = '__atuin_accept__:'
37
+
38
+
var p = (file:pipe)
39
+
# TODO: Will need an elvish flag in Atuin binary
40
+
with [E:ATUIN_LOG = 'error'] [E:ATUIN_SHELL_BASH = t] [E:ATUIN_QUERY = $edit:current-command] {
41
+
atuin search $@argv -i >$os:dev-tty 2>$p; edit:redraw &full=$true
42
+
}
43
+
file:close $p[w]
44
+
var command = (str:trim-space (slurp < $p))
45
+
file:close $p[r]
46
+
47
+
if (not-eq $command '') {
48
+
if (str:has-prefix $command $accept-prefix) {
49
+
edit:replace-input (str:trim-prefix $command $accept-prefix)
50
+
edit:return-line
51
+
} else {
52
+
edit:replace-input $command
53
+
}
54
+
}
55
+
}
56
+
57
+
fn search-up {
58
+
search --shell-up-key-binding
59
+
}