mirror of
				https://framagit.org/benjamin.vaudour/elv-lib.git
				synced 2024-01-13 09:20:05 +01:00 
			
		
		
		
	Fix elvish 0.18 compatibility
This commit is contained in:
		
							parent
							
								
									7a8f6207f9
								
							
						
					
					
						commit
						22b5ba1dfa
					
				
					 5 changed files with 5 additions and 5 deletions
				
			
		| 
						 | 
				
			
			@ -5,5 +5,5 @@ use ./completion/kcp
 | 
			
		|||
use ./completion/mpv
 | 
			
		||||
use ./completion/pacman
 | 
			
		||||
use ./completion/ssh
 | 
			
		||||
#use ./completion/sudo
 | 
			
		||||
use ./completion/sudo
 | 
			
		||||
use ./completion/use
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -27,7 +27,7 @@ fn -comp-commands {
 | 
			
		|||
fn -comp-inline-files {|archive|
 | 
			
		||||
  try {
 | 
			
		||||
    arc ls $archive | eawk {|_ @argv| put $argv[-1] }
 | 
			
		||||
  } except e {
 | 
			
		||||
  } catch e {
 | 
			
		||||
    nop
 | 
			
		||||
  }
 | 
			
		||||
}
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -46,7 +46,7 @@ fn -complete-remote-dir {|port address dir|
 | 
			
		|||
    ssh -p $port $address $cmd | each {|f|
 | 
			
		||||
      put (printf '%s:%s' $address $f)
 | 
			
		||||
    }
 | 
			
		||||
  } except e { }
 | 
			
		||||
  } catch e { }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
fn -complete-args {|hosts cmd @argv|
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -40,7 +40,7 @@ fn -s {|&sort=$false &type=exact @motive|
 | 
			
		|||
        $f $m | peach {|e|
 | 
			
		||||
          set result[$e] = $nil
 | 
			
		||||
        }
 | 
			
		||||
      } except e { }
 | 
			
		||||
      } catch e { }
 | 
			
		||||
    } $motive
 | 
			
		||||
  }
 | 
			
		||||
  -r $sort $result
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -38,7 +38,7 @@ fn int {|v|
 | 
			
		|||
      var n = (math:trunc $v)
 | 
			
		||||
      var s @_ = (str:split '.' (to-string $n))
 | 
			
		||||
      put $s
 | 
			
		||||
    } except e {
 | 
			
		||||
    } catch e {
 | 
			
		||||
      fail (printf '%s n’est pas un nombre' $v)
 | 
			
		||||
    }
 | 
			
		||||
  } elif (eq $k 'number') {
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue