diff options
Diffstat (limited to 'code/keys.rb')
| -rw-r--r-- | code/keys.rb | 323 |
1 files changed, 323 insertions, 0 deletions
diff --git a/code/keys.rb b/code/keys.rb new file mode 100644 index 00000000..0ce660a9 --- /dev/null +++ b/code/keys.rb @@ -0,0 +1,323 @@ +module Fm + # ALL combinations of multiple keys (without the last letter) + # or regexps which match combinations need to be in here! + COMBS = %w( + g d y c Z rmdi t + /[m`']/ /[f/!].*/ + /(cw|cd|mv).*/ + /m(k(d(i(r(.*)?)?)?)?)?/ + /r(e(n(a(m(e(.*)?)?)?)?)?)?/ + ) + + # Create a regular expression which detects these combos + ary = [] + for token in COMBS + if token =~ /^\/(.*)\/$/ + ary << $1 + elsif token.size > 0 + ary << token.each_char.map {|t| "(?:#{t}" }.join + + (')?' * (token.size - 1)) + ')' + end + end + REGX = Regexp.new('^(?:' + ary.uniq.join('|') + ')$') + + def self.ignore_keys_for(t) + @ignore_until = Time.now + t + end + + def self.search(str, offset=0, backwards=false) + rx = Regexp.new(str, Regexp::IGNORECASE) + + ary = @pwd.files.dup + ary.wrap(@pwd.pos + offset) + + ary.reverse! if backwards + + for f in ary + g = File.basename(f) + if g =~ rx + @pwd.pointed_file = f + break + end + end + end + + def self.hints(str) + rx = Regexp.new(str, Regexp::IGNORECASE) + + ary = @pwd.files.dup + ary.wrap(@pwd.pos) + + n = 0 + pointed = false + for f in ary + g = File.basename(f) + if g =~ rx + unless pointed + @pwd.pointed_file = f + pointed = true + end + n += 1 + end + end + + return n + end + + def self.remember_dir + @memory["`"] = @memory["'"] = @pwd.path + end + + def self.press(key) + return if @ignore_until and Time.now < @ignore_until + + @ignore_until = nil + + case @buffer << key + + when '<redraw>' + closei + starti + + when 'j' + if @pwd.size == 0 + @pwd.pos = 0 + elsif @pwd.pos >= @pwd.size - 1 + @pwd.pos = @pwd.size - 1 + else + @pwd.pos += 1 + end + + when 's' + closei + system('clear') + system('ls', '--color=auto', '--group-directories-first') + system('bash') + @pwd.refresh + starti + + when 'J' + (lines/2).times { press 'j' } + + when 'K' + (lines/2).times { press 'k' } + + when 'cp', 'yy' + @copy = [currentfile] + + when 'n' + search(@search_string, 1) + + when 'x' + fork { + sleep 1 + Ncurses.ungetch(104) + } + + when 'N' + search(@search_string, 0, true) + + when 'fh' + @buffer.clear + press('h') + + when /^f(.+)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^\s?(.*)(L|;|<cr>|<esc>)$/ + @buffer = '' + @search_string = $1 + press('l') if $2 == ';' or $2 == 'L' + else + test = hints(str) + if test == 1 + @buffer = '' + press('l') + ignore_keys_for 0.5 + elsif test == 0 + @buffer = '' + ignore_keys_for 1 + end + end + + when /^\/(.+)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^\s?(.*)(L|;|<cr>|<esc>)$/ + @buffer = '' + @search_string = $1 + press('l') if $2 == ';' or $2 == 'L' + else + search(str) + end + + when /^mkdir(.*)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^\s?(.*)(<cr>|<esc>)$/ + @buffer = '' + if $2 == '<cr>' + closei + system('mkdir', $1) + starti + @pwd.refresh + end + end + + when /^!(.+)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^(\!?)(.*)(<cr>|<esc>)$/ + @buffer = '' + if $3 == '<cr>' + closei + system("bash", "-c", $2) + gets unless $1.empty? + starti + @pwd.refresh + end + end + + when /^cd(.+)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^\s?(.*)(<cr>|<esc>)$/ + @buffer = '' + if $2 == '<cr>' + remember_dir + enter_dir_safely($1) + end + end + + when /^(?:mv|cw|rename)(.+)$/ + str = $1 + if @buffer =~ /^(.*).<bs>$/ + @buffer = $1 + elsif str =~ /^\s?(.*)(<cr>|<esc>)$/ + @buffer = '' + if $2 == '<cr>' + closei + system('mv', '-v', currentfile, $1) + starti + @pwd.refresh + end + end + + when 'th' + OPTIONS['hidden'] ^= true + @pwd.refresh + + when 'rmdir' + cf = currentfile + if cf and File.exists?(cf) + if File.directory?(cf) + system('rm', '-r', cf) + @pwd.refresh + end + end + + when 'p' + unless @copy.empty? + closei + system('cp','-v',*(@copy+[@pwd.path])) + starti + @pwd.refresh + end + + when /^[`'](.)$/ + if dir = @memory[$1] and not @pwd.path == dir + remember_dir + enter_dir_safely(dir) + end + + when /^m(.)$/ + @memory[$1] = @pwd.path + + when 'gg' + @pwd.pos = 0 + + when 'dd' + new_path = move_to_trash(currentfile) + @copy = [new_path] if new_path + @pwd.refresh + + when 'dD' + cf = currentfile + if cf and File.exists?(cf) + if File.directory?(cf) + Dir.delete(cf) rescue nil + else + File.delete(cf) rescue nil + end + @pwd.refresh + end + + when 'g0' + remember_dir + enter_dir('/') + + when 'gh' + remember_dir + enter_dir('~') + + when 'gu' + remember_dir + enter_dir('/usr') + + when 'ge' + remember_dir + enter_dir('/etc') + + when 'gm' + remember_dir + enter_dir('/media') + + when 'gt' + remember_dir + enter_dir('~/.trash') + + when 'G' + @pwd.pos = @pwd.size - 1 + + when 'k' + @pwd.pos -= 1 + @pwd.pos = 0 if @pwd.pos < 0 + + when '<bs>', 'h', 'H' + enter_dir(@buffer=='H' ? '..' : @path[-2].path) unless @path.size == 1 + + when 'E' + cf = currentfile + unless cf.nil? or enter_dir_safely(cf) + closei + system VI % cf + starti + end + + when '<cr>', 'l', ';', 'L' + cf = currentfile + unless cf.nil? or enter_dir_safely(cf) + handler, wait = getfilehandler(currentfile) + if handler + closei + system(handler) + if @buffer == 'L' + gets + end + starti + end + end + + when 'q', 'ZZ', "\004" + exit + + end + + @buffer = '' unless @buffer == '' or @buffer =~ REGX + end +end |