###############################################################################
# check Env
###############################################################################
if ENV['PAGER'] == nil || ENV['PAGER'] == "" then
    ENV['PAGER'] = "more"
end

if ENV['EDITOR'] == nil || ENV['EDITOR'] == "" then
    ENV['EDITOR'] = "vi"
end

if ENV['SHELL'] == nil || ENV['SHELL'] == "" then
    ENV['SHELL'] = "/bin/sh"
end

###############################################################################
# function definitions
###############################################################################
def key_left()
    vo = view_option();
    
    if vo == "one_dir" || vo == "one_dir2" || vo == "one_dir3" || vo == "one_dir5" 
    then
        if cursor_x > 0 then
            cursor_move(-cursor_maxy)
        end
    else
        if is_adir_left() then
            dir_move('..');
        else
            cursor_left();
        end
    end
end

def key_right()
    vo = view_option();
  
    if vo == "one_dir" || vo == "one_dir2" || vo == "one_dir3" || vo == "one_dir5" then
        if cursor_x < (cursor_maxx-1)
            cursor_move(cursor_maxy)
        end
    else
        if is_adir_right() then
            dir_move('..');
        else
            cursor_right();
        end
    end
end

def is_one_dir()
    vo = view_option();

    return vo == "one_dir" || vo == "one_dir2" || vo == "one_dir3" || vo == "one_dir5";
end

###############################################################################
# key settings
###############################################################################
keycommand NOMETA, KEY_UP,           "*",        "cursor_move(-1)"
keycommand NOMETA, KEY_DOWN,         "*",        "cursor_move(1)"
keycommand NOMETA, KEY_LEFT,         "*",        "key_left()"
keycommand NOMETA, KEY_RIGHT,        "*",        "key_right()"
keycommand NOMETA, KEY_PAGEUP,       "*",        "cursor_move(-5)"
keycommand NOMETA, KEY_PAGEDOWN,     "*",        "cursor_move(5)"
keycommand NOMETA, KEY_CTRL_P,       "*",        "cursor_move(-1)"
keycommand NOMETA, KEY_CTRL_N,       "*",        "cursor_move(1)"
keycommand NOMETA, KEY_CTRL_B,       "*",        "cursor_left()"
keycommand NOMETA, KEY_CTRL_F,       "*",        "cursor_right()"
keycommand NOMETA, KEY_CTRL_D,       "*",        "cursor_move(5)"
keycommand NOMETA, KEY_CTRL_U,       "*",        "cursor_move(-5)"
keycommand NOMETA, KEY_CTRL_A,       "*",        "cursor_move(-9999)"
keycommand NOMETA, KEY_CTRL_E,       "*",        "cursor_move(9999)"
keycommand NOMETA, KEY_LSS,          "*",        "cursor_move(-9999)"
keycommand NOMETA, KEY_GTR,          "*",        "cursor_move(9999)"
keycommand NOMETA, KEY_CTRL_H,       "*",        "dir_move('..')"
keycommand NOMETA, KEY_BACKSPACE,    "*",        "dir_move('..')"
keycommand NOMETA, 127,              "*",        "dir_move('..')"
keycommand NOMETA, KEY_DELETE,       "*",        "dir_move('..')"
keycommand META,   KEY_LEFT,         "*",        "dir_back()"
keycommand NOMETA, KEY_BACKSLASH,    "*",        "dir_move('/')"
keycommand NOMETA, KEY_TILDA,        "*",        "dir_move(\"#{ENV['HOME']}\")"
keycommand NOMETA, KEY_SPACE,        "*",        "mark()"
keycommand NOMETA, KEY_HOME,         "*",        "mark_all_files()"
keycommand NOMETA, KEY_END,          "*",        "mark_all()"
keycommand NOMETA, KEY_CTRL_L,       "*",        "refresh()"
keycommand NOMETA, KEY_CTRL_I,       "*",        "dir_up()"
keycommand NOMETA, KEY_CTRL_T,       "*",        "dir_new()"
keycommand NOMETA, KEY_CTRL_W,       "*",        "dir_close()"
keycommand NOMETA, KEY_SLASH,        "*",        "isearch()"
keycommand NOMETA, KEY_QMARK,        "*",        "help()"
keycommand NOMETA, KEY_ESCAPE,       "*",        "mf_exit()"

keycommand NOMETA, KEY_c,      "*",     "if is_one_dir then cmdline('%Q%r copy(adir_path(), adir_mark(), %D1)', -2) else cmdline('%Q%r copy(adir_path(), adir_mark(), %D2)', -2) end"
keycommand NOMETA, KEY_m,      "*",     "if is_one_dir then cmdline('%Q%r move(adir_path(), adir_mark(), %D1)', -2) else cmdline('%Q%r move(adir_path(), adir_mark(), %D2)', -2) end"
keycommand NOMETA, KEY_d,      "*",     "trashbox(adir_path(), adir_mark())"
keycommand NOMETA, KEY_e,      "*",     "shell('%q $EDITOR %f', '%f')"
keycommand NOMETA, KEY_v,      "*",     "shell('%q $PAGER %f', '%f')"
keycommand NOMETA, KEY_r,      "*",     "cmdline('%Q mv %f %f', -1)"
keycommand NOMETA, KEY_b,      "*",     "cmdline('%Q cp -Rpdi %f %f', -1)"
keycommand NOMETA, KEY_p,      "*",     "cmdline('tar cvfz %X.tgz %m1', -9)"
keycommand NOMETA, KEY_k,      "*",     "cmdline(\"%Q mkdir ''\", -1)"
keycommand NOMETA, KEY_n,      "*",     "cmdline(\"%Q touch ''\", -1)"
keycommand NOMETA, KEY_g,      "*",     "cmdline(\"%q grep '' * -n 2> /dev/null | $PAGER\", 10)"
keycommand NOMETA, KEY_f,      "*",     "cmdline(\"%Q%r set_mask('{*,.*}')\", -2)"
keycommand NOMETA, KEY_i,      ".dir",  "cmdline('du -sk %f', 7)"
keycommand NOMETA, KEY_i,      "*",     "cmdline('file %f', 0)"
keycommand NOMETA, KEY_l,      "*",     "cmdline(\"%r%Q dir_new(); dir_move(%D1)\", -2)"
keycommand NOMETA, KEY_w,      "*",     "if !is_one_dir then dir_move(sdir_path() + '/') end"
keycommand NOMETA, KEY_o,      "*",     "if !is_one_dir then tmp = adir_path(); dir_move(sdir_path() + '/'); sdir_move(tmp + '/') end"
keycommand NOMETA, KEY_q,      "*",     "mf_exit()"

defmenu("jump",
   "(~) $HOME", KEY_TILDA, "dir_new(); dir_move(\"#{ENV['HOME']}\")",
   "(\\) /", KEY_BACKSLASH, "dir_new(); dir_move('/')",
   "(1) $HOME/mp3", KEY_1, "dir_new(); dir_move(\"#{ENV['HOME']}/mp3\")",
   "(2) $HOME/song", KEY_2, "dir_new(); dir_move(\"#{ENV['HOME']}/song\")",
   "(3) $HOME/public_html", KEY_3, "dir_new(); dir_move(\"#{ENV['HOME']}/public_html\")"
);

defmenu("sort",
   "sort (n)ame", KEY_n, "sort_name()",
   "sort (N)ame reverse", KEY_N, "sort_name_reverse()",
   "sort (e)xtension", KEY_e, "sort_ext()",
   "sort (E)xtension reverse", KEY_E, "sort_ext_reverse()",
   "sort (s)ize", KEY_s, "sort_size()",
   "sort (S)ize reverse", KEY_S, "sort_size_reverse()",
   "sort (t)ime", KEY_t, "sort_time()",
   "sort (T)ime reverse", KEY_T, "sort_time_reverse()",
   "sort toggle (d)ir up", KEY_d, "sort_toggle_dir_up()",
   "view (a)ll", KEY_a, "view_all()",
   "view name(o)nly", KEY_o, "view_nameonly()",
   "view 1dir(1)", KEY_1, "view_onedir()",
   "view 1dir(2)", KEY_2, "view_onedir2()",
   "view 1dir(3)", KEY_3, "view_onedir3()",
   "view 1dir(5)", KEY_5, "view_onedir5()"
);

defmenu("file_attr",
   "ch(m)od (permission)", KEY_m, "cmdline('%Q chmod -R  %m1', 13)",
   "ch(o)wn (owner)", KEY_o, "cmdline('%Q chown -R  %m1', 13)",
   "ch(g)rp (group)", KEY_g, "cmdline('%Q chgrp -R  %m1', 13)",
   "m(a)ttr (permission and date)", KEY_a, "shell('%q mattr %m1', 'mattr')"
);

defmenu("context-menu",
   "(d)elete", KEY_d, "remove(adir_path(), adir_mark())",
    "(f)ind", KEY_f, "cmdline(\"%q find . -name '' 2> /dev/null | $PAGER\", 18)", 
   "new symbolic (l)ink", KEY_l, "if is_one_dir() then cmdline('%Q ln -s %F %D1', -1) else cmdline('%Q ln -s %F %D2', -1) end",   
   "new (s)hell script", KEY_s, "cmdline(\"%Q echo '#!/bin/sh' > /tmp/sscript; chmod 755 /tmp/sscript; mv /tmp/sscript '.sh'\", -4)",
   "(c)p",  KEY_c, "if is_one_dir() then cmdline('cp -Rpf %m1 %D1', -1) else cmdline('cp -Rpf %m1 %D2', -1) end",
   "(m)v",  KEY_m, "if is_one_dir() then cmdline('mv -f %m1 %D1', -1) else cmdline('mv -f %m1 %D2', -1) end",
   "(r)m",  KEY_r, "cmdline('rm -R %m1', 0)",
   "re(h)ash",  KEY_h, "rehash",
   "m(a)rk_all_files", KEY_a, "mark_all_files()",
   "mar(k)_all", KEY_k, "mark_all()",
   "(b)ack to previous direcotry", KEY_b, "dir_back()"
);

keycommand NOMETA, KEY_j,      "*",     "menu('jump')"
keycommand NOMETA, KEY_s,      "*",     "menu('sort')"
keycommand NOMETA, KEY_a,      "*",     "menu('file_attr')"
keycommand NOMETA, KEY_ATMARK, "*",     "menu('context-menu')"

keycommand NOMETA, KEY_h,            "*",        "cmdline('', 0)"
keycommand NOMETA, KEY_x,            ".mark",    "cmdline('for i in %m1; do  ./$i; done', 18)"
keycommand NOMETA, KEY_x,            "*",        "cmdline(' ./%f', 1)"
keycommand NOMETA, KEY_COLON,        "*",        "shell('%q cd %D1; echo \"-+- %D1 -+-\"; ls -aF --color; $SHELL', \"#{ENV['SHELL']}\")"
keycommand NOMETA, KEY_z,            "*",        "xterm_next()"

keycommand NOMETA, KEY_CTRL_C,       "*",        "copy2()"
keycommand NOMETA, KEY_CTRL_X,       "*",        "cut()"
keycommand NOMETA, KEY_CTRL_V,       "*",        "past()"

###############################################################################
# extension settings
###############################################################################
defmenu("mp3-menu",
   "(m)pg123", KEY_m, "shell('mpg123 %f', '%f')",
   "m(p)layer", KEY_p, "shell('%q mplayer -zoom -framedrop %f', '%f')"
);

defmenu("gz-menu",
    "(t)ar xvfz", KEY_t, "shell('tar xvfz %f', '%f')",
    "(g)zip -d", KEY_g, "shell('gzip -d %f', '%f')"
);

defmenu("bz2-menu",
    "(t)ar xvfj", KEY_t, "shell('tar xvfj %f', '%f')",
    "(b)zip2 -d", KEY_b, "shell('bzip2d -d %f', '%f')"
);

keycommand NOMETA, KEY_ENTER, ".txt",     "shell('%q $PAGER %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".html",    "shell('%q w3m %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".gz",      "menu('gz-menu')"
keycommand NOMETA, KEY_ENTER, ".bz2",     "menu('bz2-menu')"
keycommand NOMETA, KEY_ENTER, ".tar",     "cmdline('tar xvf %f', 0)"
keycommand NOMETA, KEY_ENTER, ".tgz",     "cmdline('tar xvfz %f', 0)"
keycommand NOMETA, KEY_ENTER, ".lzh",     "cmdline('lha x %f', 0)"
keycommand NOMETA, KEY_ENTER, ".zip",     "cmdline('unzip %f', 0)"
keycommand NOMETA, KEY_ENTER, ".jpg",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".jpeg",    "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".gif",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".bmp",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".pnm",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".png",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".tif",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".eps",     "shell('%q display %f &', '%f')"
keycommand NOMETA, KEY_ENTER, ".mp3",     "menu('mp3-menu')"
keycommand NOMETA, KEY_ENTER, ".wav",     "shell('%q esdplay %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".WAV",     "shell('%q esdplay %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".mid",     "shell('timidity %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".mpg",     "shell('%q mplayer -zoom -framedrop %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".mpeg",    "shell('%q mplayer -zoom -framedrop %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".avi",     "shell('%q mplayer -zoom -framedrop %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".MID",     "shell('timidity %f', '%f')"
keycommand NOMETA, KEY_ENTER, ".sh",      "cmdline('./%f', 0)"
keycommand NOMETA, KEY_ENTER, ".pl",      "cmdline('perl %f', 0)"
keycommand NOMETA, KEY_ENTER, ".py",      "cmdline('python %f', 0)"
keycommand NOMETA, KEY_ENTER, ".rb",      "cmdline('ruby %f', 0)"
keycommand NOMETA, KEY_ENTER, ".java",    "cmdline('%q javac %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, ".class",   "cmdline('java %X', 0)"
keycommand NOMETA, KEY_ENTER, ".c",       "cmdline('gcc -o %X %f; ./%X; rm -f %X', 0)"
keycommand NOMETA, KEY_ENTER, ".cpp",     "cmdline('g++ -o %X %f; ./%X; rm -f %X', 0)"
keycommand NOMETA, KEY_ENTER, ".asm",     "cmdline('%q nasm -f elf %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, "makefile", "cmdline('%q make -f %f  2>&1| $PAGER', -13)"
keycommand NOMETA, KEY_ENTER, "Makefile", "cmdline('%q make -f %f  2>&1| $PAGER', -13)"
keycommand NOMETA, KEY_ENTER, ".pdf",     "cmdline('%q acroread %f &', 0)"
keycommand NOMETA, KEY_ENTER, ".tex",     "cmdline('%q platex %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, ".dvi",     "cmdline('xdvi %f &', 0)"
keycommand NOMETA, KEY_ENTER, ".ps",      "cmdline('%q lpr %f -P', 0)"
keycommand NOMETA, KEY_ENTER, ".diff",    "cmdline('patch < %f', 0)"
keycommand NOMETA, KEY_ENTER, ".deb",     "cmdline('dpkg -i %f', 0)"
keycommand NOMETA, KEY_ENTER, ".nb",      "cmdline('mathematica %f &', 0)"
keycommand NOMETA, KEY_ENTER, ".s",       "cmdline('%q as -o %X.o %f | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, ".a",       "cmdline('%q nm %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, ".so",      "cmdline('%q nm -D %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, ".o",       "cmdline('%q nm %f 2>&1 | $PAGER', 0)"
keycommand NOMETA, KEY_ENTER, "core",     "cmdline('%Q rm %f', 0)"

keycommand NOMETA, KEY_ENTER, ".mark",     "cmdline(' %m1', 1)"
keycommand NOMETA, KEY_ENTER, ".dir",     "dir_move(cursor_name())"
keycommand NOMETA, KEY_ENTER, ".execute", "cmdline('./%f ', 0)"
keycommand NOMETA, KEY_ENTER, "*",        "shell('%q $PAGER %f', '%f')"

###############################################################################
# alias
###############################################################################

malias "HOME", 0, "%r%Q dir_move(ENV['HOME'])"
malias "L", 0, "| less"
malias "CD", 1, "%r%Q dir_move('#0')"
malias "&", 0, "& %s"
malias "PSG", 1, "ps aux | grep #0 | grep -v grep"

###############################################################################
# option settings
###############################################################################
sort_name
#sort_name_reverse
#sort_ext
#sort_ext_reverse
#sort_size
#sort_size_reverse
#sort_time
#sort_time_reverse

view_all
#view_onedir
#view_nameonly
#view_onedir2
#view_onedir3
#view_onedir5

option_color false
option_individual_cursor true
option_isearch_enter_decision false
option_check_delete_file true
option_check_copy_file false
option_check_exit true
option_shift_isearch true
option_trashbox_name "mtrashbox"
option_gnu_screen false
option_pty false
option_remain_cursor true
option_auto_rehash false

option_bold_exe true
option_bold_dir true
option_color_mark YELLOW
option_color_dir CYAN
option_color_exe RED
option_color_link MAGENTA

# WHITE, BLUE, CYAN, GREEN, YELLOW, MAGENTA, RED

option_kanjicode "euc"
# option_kanjicode "sjis"
# option_kanjicode "utf"

option_xterm false
set_xterm("xterm", "-T", "-e", "")

#set_xterm("Eterm", "-T", "-e", "--mencoding eucj --scrollbar false -F 7x14 -M k14 --cmod 100 --trans")

set_mask("{*,.*}")
set_mask_sdir("{*,.*}")

###############################################################################
# keymap
###############################################################################
keymap_up        27,   91,   65,   0,       0,     0
keymap_down      27,   91,   66,   0,       0,     0
keymap_right     27,   91,   67,   0,       0,     0
keymap_left      27,   91,   68,   0,       0,     0 
keymap_insert    27,   91,   50,   126,     0,     0
keymap_delete    127,  0,    0,    0,       0,     0
keymap_home      27,   79,   72,   0,       0,     0
keymap_end       27,   79,   70,   0,       0,     0
keymap_page_up   27,   91,   53,   126,     0,     0
keymap_page_down 27,   91,   54,   126,     0,     0
keymap_f1        27,   91,   49,   49,      126,   0
keymap_f2        27,   91,   49,   50,      126,   0
keymap_f3        27,   91,   49,   51,      126,   0
keymap_f4        27,   91,   49,   52,      126,   0
keymap_f5        27,   91,   49,   53,      126,   0
keymap_f6        27,   91,   49,   55,      126,   0
keymap_f7        27,   91,   49,   56,      126,   0
keymap_f8        27,   91,   49,   57,      126,   0
keymap_f9        27,   91,   50,   48,      126,   0
keymap_f10       27,   91,   50,   49,      126,   0
keymap_f11       27,   91,   50,   51,      126,   0
keymap_f12       27,   91,   50,   52,      126,   0

###############################################################################
# user definition
###############################################################################
defmenu("iso-menu",
   "d(v)d", KEY_v, "cmdline('growisofs -Z /dev/dvd=%f', 0)",
   "(c)d", KEY_c, "cmdline('cdrecord -v dev=0,0,0 speed=8 -pad -dao %f', 0)"
);

keycommand NOMETA, KEY_ENTER, ".iso",     "menu('iso-menu')"

defmenu("user_commands",
   "g(e)dit",  KEY_e, "shell('%q gedit %f &', '%f')",
   "mk(i)sofs", KEY_i, "cmdline('mkisofs -R -J -o %f.iso %f', 0)",
   "(c)dparanoia", KEY_c, "cmdline('cdparanoia -B 1-; for i in *; do gogo $i; done; rm *wav', 0)",
   "(r)eadcd to iso", KEY_r, "cmdline('readcd dev=0,0 f=', 0)",
   "dvd (b)ackup", KEY_b, "cmdline('dvdbackup -M -i/dev/dvd -o', 0)",
   "(f)tp", KEY_f, "cmdline(\"cd /home/daisuke/public_html/geocities; lftp -u daisuke530221jp ftp.geocities.jp -e 'mirror -R .'\", 0)",
   "(m)ail", KEY_m, "cmdline('cat %f | nkf -j | mail -s ', 0)",
   "c(d)rom mount", KEY_d, "cmdline('mount -t iso9660 /dev/sr0 %f', 0)",
   "/var/(l)og/message", KEY_l, "cmdline('tail -f /var/log/messages', 0)",
   "(k)abegami", KEY_k, "cmdline('Esetroot -scale %f', 0)"
);

keycommand NOMETA, KEY_u, "*", "menu('user_commands')"

