···

       
1
       
1
       
 
       
use str

     

       
2
       
2
       
 
       
use store

     

       
3
       
3
       
 
       


     

       
4
       
4
       
-
       
fn history {|&exact=$true &edit-key='tab' &delete-key='ctrl-d' &border='rounded' &down-exit=$true|

     

       
4
       
4
       
+
       
fn history {|&edit-key='tab' &delete-key='ctrl-d' &down-exit=$true @argv|

     

       
5
       
5
       
 
       
	tmp E:SHELL = 'elvish'

     

       
6
       
6
       
 
       


     

       
7
       
7
       
 
       
	var fzf-args = [

     
···

       
11
       
11
       
 
       
		--print0

     

       
12
       
12
       
 
       
		--info-command="print History"

     

       
13
       
13
       
 
       
		--scheme=history

     

       
14
       
14
       
-
       
		--border=$border

     

       
15
       
15
       
-
       
		--query=$edit:current-command 

     

       
14
       
14
       
+
       
		--query=$edit:current-command

     

       
15
       
15
       
+
       
		$@argv

     

       
16
       
16
       
 
       
	]

     

       
17
       
17
       
 
       


     

       
18
       
18
       
 
       
	if (not-eq $edit-key $nil) {

     
···

       
20
       
20
       
 
       
	}

     

       
21
       
21
       
 
       
	if (not-eq $delete-key $nil) {

     

       
22
       
22
       
 
       
		set fzf-args = [$@fzf-args --expect=$delete-key]

     

       
23
       
23
       
-
       
	}

     

       
24
       
24
       
-
       
	if $exact {

     

       
25
       
25
       
-
       
		set fzf-args = [$@fzf-args --exact]

     

       
26
       
23
       
 
       
	}

     

       
27
       
24
       
 
       
	if $down-exit {

     

       
28
       
25
       
 
       
		set fzf-args = [$@fzf-args --bind 'down:transform:if (<= $E:FZF_POS 1) { print abort } else { print down }']