require 'socket' module Fm DONT_PREVIEW_THESE_FILES = /\.(avi|[mj]pe?g|iso|mp\d|og[gmv]|wm[av]|mkv|torrent|so|class|flv|png|bmp|vob|divx?)$/i def column_put_file(n, file) i = 0 if Option.preview and Option.file_preview and file.path !~ DONT_PREVIEW_THESE_FILES m = lines - 2 attr_set(Color.base) left, wid = get_boundaries(n) if false and file.ext =~ /(?:rar|zip|7z|tar|gz)$/ and file.size < 10485760 text = `aunpack -l #{file.sh} 2>> /dev/null` text.each_line do |l| puti i+1, left, l[0, wid-1].ljust(wid) i += 1 break if i == m end else File.open(file.path, 'r') do |f| check = true left, wid = get_boundaries(n) f.lines.each do |l| if check check = false break unless l.each_char.all? {|x| x[0] > 0 and x[0] < 128} end puti i+1, left, l.gsub("\t"," ")[0, wid-1].ljust(wid) i += 1 break if i == m end end end end column_clear(n, i) end def put_directory(c, d) l = 1 return column_clear(c, 0) unless d infos = (c == COLUMNS - 2) left, wid = get_boundaries(c) right = left + wid if not d.read? if (c == COLUMNS - 1) and @entering_directory # puti l, left, "reading...".ljust(wid+1) puti l, left, " " * (wid+1) column_clear(c, 1) @entering_directory = false end Scheduler << d return elsif d.read? and d.empty? puti l, left, 'empty'.ljust(wid+1) column_clear(c, 1) return end offset = get_offset(d, lines) (lines - 1).times do |l| lpo = l + offset l += 1 break if (f = d.files[lpo]) == nil mycolor = if lpo == d.pos if infos Color.selected_current_row else Color.selected end elsif f.marked? Color.marked else Color.normal end dir = false clrname = if f.symlink? dir = f.dir? if f.broken_symlink? :badlink else :goodlink end elsif f.dir? dir = true :directory elsif f.movie? :video elsif f.audio? :sound elsif f.image? :image elsif f.executable? :executable else :file end fn = f.basename fn = "* #{fn}" if f.marked? if infos myinfo = " #{f.infostring} " sz = myinfo.size str = fn[0, wid-1].ljust(wid+1) if str.size > sz str[-sz..-1] = myinfo yes = true else yes = false end puti l, left, str attr_at(l, right-sz, sz, Color.normal.send(clrname)) else puti l, left, fn[0, wid-1].ljust(wid+1) end if infos and Option.wide_bar attr_at(l, left-1, wid+1, mycolor.send(clrname)) else attr_at(l, left, fn.size.limit(wid-1), mycolor.send(clrname)) end end column_clear(c, l-1) end def self.column_clear(n, from=0) attr_set(Color.base) left, wid = get_boundaries(n) (from -1).upto(lines) do |l| puti l+2, left, ' ' * (wid+1) end end def self.get_offset(dir, max) pos = dir.pos len = dir.files.size max -= 2 if len <= max or pos < max/2 return 0 elsif pos >= (len - max/2) return len - max else return pos - max/2 end end def self.get_boundaries(column) cols = CLI.cols # to cache case column when 0 return 0, cols / 8 when 1 q = cols / 8 if !Option.preview# or (!Option.filepreview and !currentfile.dir?) return q, 2*q # elsif currentfile.path != DONT_PREVIEW_THESE_FILES # return q, 2*q else return q, q end when 2 if !Option.preview q = cols * 0.375 - 1 w = @path.last.width.limit(cols * 0.625, cols/8) # elsif currentfile.path =~ DONT_PREVIEW_THESE_FILES or (!Option.filepreview and !currentfile.dir?) # q = cols / 4 # w = @path.last.width.limit(cols * 0.75, cols/8) else q = cols / 4 w = @path.last.width.limit(cols/2, cols/8) end return q, w when 3 l = cols / 4 + 1 l += @path.last.width.limit(cols/2, cols/8) return l, cols - l end end def self.draw attr_set(Color.base) @cur_y = get_boundaries(COLUMNS-2)[0] if @buffer =~ /^block/ screensaver elsif @buffer =~ /^\?/ cleari puti 0, " - - - Help - - -" if text = HELP[@buffer[1..-1]] i = 2 text.each_line do |l| break if i == lines puti(i, l) i += 1 end end elsif @buffer =~ /^o|`|'$/ cleari i = 0 case @buffer when 'o'; puti 0, " move files to:" when '`', "'"; puti 0, " go to:" end for key,val in @memory next if key == "'" break if key == lines puti i+=1, 2, "#{key} => #{val}" end else @pwd.recheck_stuff() cf = currentfile if cf and s0 = cf.mimetype puti 0, cols-s0.size, s0 end s1 = "#{Socket.gethostname}:" s2 = "#{@path.last.path}#{"/" unless @path.size == 1}" s3 = "#{cf ? cf.basename : ''}" if s0 puti 0, (s1 + s2 + s3).ljust(cols-s0.size) else puti 0, (s1 + s2 + s3).ljust(cols) end bg = -1 attr_at(0, 0, s1.size, *Color.hostname) attr_at(0, s1.size, s2.size, *Color.currentdir) attr_at(0, s1.size + s2.size, s3.size, *Color.currentfile) # color_at 0, 0, -1, 7, bg # color_at 0, 0, s1.size, 7, bg # color_at 0, s1.size, s2.size, 6, bg # color_at 0, s1.size + s2.size, s3.size, 5, bg # bold false begin if Option.preview if cf.dir? put_directory(3, @dirs[cf.path]) elsif cf.file? column_put_file(3, cf) else column_clear(3) end else column_clear(3) end rescue column_clear(3) end pos_constant = @path.size - COLUMNS + 1 (COLUMNS - 1).times do |c| pos = pos_constant + c if pos >= 0 put_directory(c, @path[pos]) else column_clear(c) end end attr_set(Color.base) btm = lines - 1 case @buffer when 'S' puti btm, "Sort by (n)ame (s)ize (m)time (c)time (CAPITAL:reversed)" when 't' puti btm, "Toggle (h)idden_files (d)irs_first (f)ilepreview (p)review (w)idebar" else attr_set(Color.base) attr_set(Color.info) puti btm, "#@buffer #{@pwd.file_size.bytes(false)}, #{@pwd.free_space.bytes(false)} free, #{@pwd.size}, #{@pwd.pos+1} ".rjust(cols) more = '' if cf.symlink? more = "#{cf.readlink}" end attr_set(Color.date) left = " #{Time.now.strftime("%H:%M:%S %a %b %d")} " puti btm, left attr_set(cf.writable? ? Color.allowed : Color.denied) second = "#{cf.rights} " puti btm, left.size, second if more attr_set(cf.exists? ? Color.allowed : Color.denied) puti btm, left.size + second.size, "#{more} " end end attr_set(Color.base) draw_bars unless @bars.empty? movi(@pwd.pos + 1 - get_offset(@pwd, lines), @cur_y) end CLI.refresh end def self.draw_bars() l = CLI.lines @bars.each do |bar| bar.update l -= 1 puti l, bar.text[0..cols-1].ljust(cols) done = bar.done c = (done * cols).to_i unless done == 0 attr_at(l, 0, c, *Color.bar_done) end unless done == cols attr_at(l, c, -1, *Color.bar_undone) end end end end