if(export MF4HOME |chomp| -d) (
chmod 700 $MF4HOME
) else (
if(export MF4HOME |chomp| -e) (
raise "$MF4HOME is not directory"
)
mkdir -p $MF4HOME
chmod 700 $MF4HOME
)
print $MF4HOME/trashbox/ | export TRASHBOX_DIR # when pressing d, you can move files to this directory
mfiler4::prompt (
if(defined migemo::match) (
print "mfiler4 $VERSION with xyzsh $XYZSH_VERSION migemo (c)ab25cq 2004-2013 hit <?> for help"
) else (
print "mfiler4 $VERSION with xyzsh $XYZSH_VERSION (c)ab25cq 2004-2013 hit <?> for help"
)
)
def active_path (
path -d adir
)
def target_path (
path -d sdir
)
### file name ecode settings ###
if(export LC_ALL LANG | (| index -ignore-case -quiet utf8 || | index -ignore-case -quiet utf-8)) (
kanjicode -utf8
if(uname | chomp | = Darwin) (
kanjicode_file_name -utf8-mac
) else (
kanjicode_file_name -utf8
)
) else (
kanjicode -byte
kanjicode_file_name -byte
)
### mfiler4.xyzsh common user command ###
def toggle (
| if(| = 0) (
print 1
) else (
print 0
)
)
### list mode ####################
print 0 | (| var VIEW_LIST_MODE; | var VIEW_LIST_MODE_PERMISSION; | var VIEW_LIST_MODE_NLINK; | var VIEW_LIST_MODE_OWNER; | var VIEW_LIST_MODE_GROUP; | var VIEW_LIST_MODE_SIZE; | var VIEW_LIST_MODE_MTIME; | var VIEW_LIST_MODE_OPTION )
def toggle_list_mode (
if (var VIEW_LIST_MODE |chomp| = 0) (
print 1 | var VIEW_LIST_MODE
export VIEW_PERMISSION | var VIEW_LIST_MODE_PERMISSION
export VIEW_NLINK | var VIEW_LIST_MODE_NLINK
export VIEW_OWNER | var VIEW_LIST_MODE_OWNER
export VIEW_GROUP | var VIEW_LIST_MODE_GROUP
export VIEW_SIZE | var VIEW_LIST_MODE_SIZE
export VIEW_MTIME | var VIEW_LIST_MODE_MTIME
export VIEW_OPTION | var VIEW_LIST_MODE_OPTION
print 1 | (| export VIEW_PERMISSION; | export VIEW_NLINK; | export VIEW_OWNER; | export VIEW_GROUP; | export VIEW_SIZE; | export VIEW_MTIME)
print 1pane | export VIEW_OPTION
) else (
print 0 | var VIEW_LIST_MODE
var VIEW_LIST_MODE_PERMISSION | export VIEW_PERMISSION
var VIEW_LIST_MODE_NLINK | export VIEW_NLINK
var VIEW_LIST_MODE_OWNER | export VIEW_OWNER
var VIEW_LIST_MODE_GROUP | export VIEW_GROUP
var VIEW_LIST_MODE_SIZE | export VIEW_SIZE
var VIEW_LIST_MODE_MTIME | export VIEW_MTIME
var VIEW_LIST_MODE_OPTION | export VIEW_OPTION
)
)
### name only mode ###########
print 0 | (| var VIEW_NAMEONLY_MODE; | var VIEW_NAMEONLY_MODE_PERMISSION; | var VIEW_NAMEONLY_MODE_NLINK; | var VIEW_NAMEONLY_MODE_OWNER; | var VIEW_NAMEONLY_MODE_GROUP; | var VIEW_NAMEONLY_MODE_SIZE; | var VIEW_NAMEONLY_MODE_MTIME; | var VIEW_NAMEONLY_MODE_OPTION)
def toggle_nameonly_mode (
if(var VIEW_NAMEONLY_MODE |chomp| = 0) (
print 1 | var VIEW_NAMEONLY_MODE
export VIEW_PERMISSION | var VIEW_NAMEONLY_MODE_PERMISSION
export VIEW_NLINK | var VIEW_NAMEONLY_MODE_NLINK
export VIEW_OWNER | var VIEW_NAMEONLY_MODE_OWNER
export VIEW_GROUP | var VIEW_NAMEONLY_MODE_GROUP
export VIEW_SIZE | var VIEW_NAMEONLY_MODE_SIZE
export VIEW_MTIME | var VIEW_NAMEONLY_MODE_MTIME
export VIEW_OPTION | var VIEW_NAMEONLY_MODE_OPTION
print 0 | (| export VIEW_PERMISSION; | export VIEW_NLINK; | export VIEW_OWNER; | export VIEW_GROUP; | export VIEW_SIZE; | export VIEW_MTIME)
print 1pane | export VIEW_OPTION
) else (
print 0 | var VIEW_NAMEONLY_MODE
var VIEW_NAMEONLY_MODE_PERMISSION | export VIEW_PERMISSION
var VIEW_NAMEONLY_MODE_NLINK | export VIEW_NLINK
var VIEW_NAMEONLY_MODE_OWNER | export VIEW_OWNER
var VIEW_NAMEONLY_MODE_GROUP | export VIEW_GROUP
var VIEW_NAMEONLY_MODE_SIZE | export VIEW_SIZE
var VIEW_NAMEONLY_MODE_MTIME | export VIEW_MTIME
var VIEW_NAMEONLY_MODE_OPTION | export VIEW_OPTION
)
)
# color ####################
def init_color (
if(COLOR |chomp| = 0) (
print 0 | ( | export COLOR_DIR; | export COLOR_EXE; | export COLOR_LINK; | export COLOR_MARK )
export ma_bold | ( | export COLOR_EXE; | export COLOR_DIR )
) else (
start_color
export ma_cyan | export COLOR_DIR
export ma_green | export COLOR_EXE
export ma_magenta | export COLOR_LINK
export ma_yellow | export COLOR_MARK
)
)
print 0 | var COLOR
init_color
def toggle_color (
if(COLOR |chomp| = 0) (
print 1 | var COLOR
init_color
) else (
print 0 | var COLOR
init_color
)
)
defmenu view
addmenu view '2dir (a)ll' $keycode::a (
print 2pane | export VIEW_OPTION
)
addmenu view '1dir(1)' $keycode::1 (
print 1pane | export VIEW_OPTION
)
addmenu view '1dir(2)' $keycode::2 (
print 1pane2 | export VIEW_OPTION
)
addmenu view '1dir(3)' $keycode::3 (
print 1pane3 | export VIEW_OPTION
)
addmenu view '1dir(5)' $keycode::5 (
print 1pane5 | export VIEW_OPTION
)
print 0 | ( | export VIEW_SIZE; | export VIEW_MTIME; | export VIEW_OWNER; | export VIEW_GROUP; | export VIEW_NLINK; | export VIEW_PERMISSION; | export VIEW_DIVIDE_EXTENSION; | export VIEW_FOCUSBACK; | export VIEW_PAGE; | export VIEW_PAGE; | export VIEW_ADD_STAR_EXE; | export COLOR_EXE)
print Normal | export VIEW_FILE_SIZE
addmenu view 'toggle (s)ize' $keycode::s (
export VIEW_SIZE |chomp| toggle | export VIEW_SIZE
)
addmenu view 'toggle m(t)ime' $keycode::t (
export VIEW_MTIME |chomp| toggle | export VIEW_MTIME
)
addmenu view 'toggle (u)ser' $keycode::u (
export VIEW_OWNER |chomp| toggle | export VIEW_OWNER
)
addmenu view 'toggle (g)roup' $keycode::g (
export VIEW_GROUP |chomp| toggle | export VIEW_GROUP
)
addmenu view 'toggle nl(i)nk' $keycode::i (
export VIEW_NLINK |chomp| toggle | export VIEW_NLINK
)
addmenu view 'toggle (p)ermission' $keycode::p (
export VIEW_PERMISSION |chomp| toggle | export VIEW_PERMISSION
)
addmenu view 'toggle fname (d)vide extension' $keycode::d (
export VIEW_DIVIDE_EXTENSION|chomp|toggle | export VIEW_DIVIDE_EXTENSION
)
addmenu view 'toggle fname (f)ocus back' $keycode::f (
export VIEW_FOCUSBACK |chomp| toggle | export VIEW_FOCUSBACK
)
addmenu view 'toggle (l)ist mode' $keycode::l (
toggle_list_mode
)
addmenu view 'toggle (n)ameonly mode' $keycode::n (
toggle_nameonly_mode
)
addmenu view 'toggle (c)olor' $keycode::c (
toggle_color
)
addmenu view 'toggle (P)age view way' $keycode::P (
export VIEW_PAGE |chomp| toggle | export VIEW_PAGE
)
addmenu view 'fil(e) size view way Normal' $keycode::e (
print Normal | export VIEW_FILE_SIZE
)
addmenu view 'fil(E) size view way Human' $keycode::E (
print Human | export VIEW_FILE_SIZE
)
addmenu view 'file (S)ize view way Plane' $keycode::S (
print Plane | export VIEW_FILE_SIZE
)
addmenu view 'toggle adding star to e(X)e file' $keycode::X (
if(export VIEW_ADD_STAR_EXE| chomp | = 0) (
print 1 | export VIEW_ADD_STAR_EXE
export ma_red | export COLOR_EXE;
) else (
print 0 | export VIEW_ADD_STAR_EXE
export ma_white | export COLOR_EXE
)
)
print name | export SORT_KIND
print 1 | export SORT_DIR_UP
reread -d all
print 0 | export SORT_MARK_UP
defmenu sort_and_mask
addmenu sort_and_mask '(n)ame' $keycode::n (
print name | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(N)ame reverse' $keycode::N (
print name_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(e)xtension' $keycode::e (
print ext | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(E)xtension reverse' $keycode::E (
print ext_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(s)ize' $keycode::s (
print size | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(S)ize reverse' $keycode::S (
print size_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(t)ime' $keycode::t (
print time | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(T)ime reverse' $keycode::T (
print time_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(u)ser' $keycode::u (
print user | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(U)ser reverse' $keycode::U (
print user_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(g)roup' $keycode::g (
print group | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(G)roup reverse' $keycode::G (
print group_rev | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(p)ermission' $keycode::p (
print perm | export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(P)ermission reverse' $keycode::P (
print perm_rev| export SORT_KIND
reread -d all
)
addmenu sort_and_mask '(r)andom' $keycode::r (
print random | export SORT_KIND
reread -d all
)
addmenu sort_and_mask 'none (0)' $keycode::0 (
print none | export SORT_KIND
reread -d all
)
addmenu sort_and_mask 'toggle (d)ir up' $keycode::d (
export SORT_DIR_UP |chomp | toggle | export SORT_DIR_UP
reread -d all
)
addmenu sort_and_mask 'toggle (m)ark up' $keycode::m (
export SORT_MARK_UP | chomp | toggle | export SORT_MARK_UP
reread -d all
)
addmenu sort_and_mask '(M)ask' $keycode::M (
cmdline "mfiler4::mask -r ''" -2
)
defmenu attribute
addmenu attribute 'ch(m)od (permission)' $keycode::m (
cmdline 'chmod $(mfiler4::markfiles)' 6
)
addmenu attribute 'ch(o)wn (owner)' $keycode::o (
cmdline 'chown $(mfiler4::markfiles)' 6
)
addmenu attribute 'ch(g)rp (group)' $keycode::g (
cmdline 'chgrp $(mfiler4::markfiles)' 6
)
addmenu attribute 'ch(M)od -R (permission recursive)' $keycode::M (
cmdline 'chmod -R $(mfiler4::markfiles)' 9
)
addmenu attribute 'ch(O)wn -R (owner recursive)' $keycode::O (
cmdline 'chown -R $(mfiler4::markfiles)' 9
)
addmenu attribute 'ch(G)rp -R (group recursive)' $keycode::G (
cmdline 'chgrp -R $(mfiler4::markfiles)' 9
)
addmenu -external attribute 'm(a)ttr (permission and date)' $keycode::a (
sys::mattr $(markfiles)
)
keycommand $keycode::up ( cursor_move -1 )
keycommand $keycode::down ( cursor_move +1 )
keycommand $keycode::ctrl_p ( cursor_move -1 )
keycommand $keycode::ctrl_n ( cursor_move +1 )
keycommand $keycode::h ( cmdline -c )
#keycommand $keycode::H ( cmdline -c )
keycommand $keycode::enter (
marking | if(| = 1\n) (
cmdline ' $(mfiler4::markfiles)' 0
) else (
cursor | chomp | if( | -d) (
mcd $(cursor)
) else (
cmdline " '$(cursor|chomp)'" 0
)
)
)
def scroll_left (
if(row |chomp | != 0) (
cursor_move "-$(line_max|chomp)"
)
)
def scroll_right (
if(row | -lt $(row_max | - 1)) (
cursor_move "+$(line_max|chomp)"
)
)
keycommand $keycode::J ( cmdline -q "mfiler4::mcd $PWD" -1 )
keycommand $keycode::left ( if(export VIEW_OPTION |chomp| = 2pane)( activate 0 ) else ( scroll_left ) )
keycommand $keycode::ctrl_b ( if(export VIEW_OPTION |chomp| = 2pane)( activate 0 ) else ( scroll_left ) )
keycommand $keycode::right ( if(export VIEW_OPTION |chomp| = 2pane)( activate 1 ) else ( scroll_right ) )
keycommand $keycode::ctrl_f ( if(export VIEW_OPTION |chomp| = 2pane)( activate 1 ) else ( scroll_right ) )
keycommand $keycode::ctrl_l ( mclear_immediately; reread -d 0; reread -d 1 )
keycommand $keycode::x (
cursor | chomp | if( | -x) (
cmdline "./'$(cursor|chomp)' " -1
) else (
cmdline " ./'$(cursor|chomp)' " 0
)
)
keycommand $keycode::backspace ( mcd .. )
keycommand $keycode::delete ( mcd .. )
keycommand $keycode::delete2 ( mcd .. )
keycommand $keycode::ctrl_h ( mcd .. )
keycommand $keycode::tilda ( mcd ~ )
keycommand $keycode::backslash ( mcd / )
keycommand $keycode::1 -external ( fg 1 )
keycommand $keycode::2 -external ( fg 2 )
keycommand $keycode::3 -external ( fg 3 )
keycommand $keycode::4 -external ( fg 4 )
keycommand $keycode::5 -external ( fg 5 )
keycommand $keycode::6 -external ( fg 6 )
keycommand $keycode::7 -external ( fg 7 )
keycommand $keycode::8 -external ( fg 8 )
keycommand $keycode::9 -external ( fg 9 )
keycommand $keycode::0 -m ( activate 0 )
keycommand $keycode::1 -m ( activate 1 )
keycommand $keycode::2 -m ( activate 2 )
keycommand $keycode::3 -m ( activate 3 )
keycommand $keycode::4 -m ( activate 4 )
keycommand $keycode::5 -m ( activate 5 )
keycommand $keycode::6 -m ( activate 6 )
keycommand $keycode::7 -m ( activate 7 )
keycommand $keycode::8 -m ( activate 8 )
keycommand $keycode::9 -m ( activate 9 )
keycommand $keycode::e -external ( vim $(cursor|chomp) )
keycommand $keycode::v -external ( less $(cursor|chomp) )
keycommand $keycode::V ( mmenu view )
keycommand $keycode::s ( mmenu sort_and_mask )
keycommand $keycode::a ( mmenu attribute )
keycommand $keycode::f ( isearch )
keycommand $keycode::dot (
if(mask -dotdir | chomp | = 0) (
mask -dotdir 1
mask "^[^\.].*";
reread -d adir
) else (
mask -dotdir 0
mask ".+";
reread -d adir
)
)
# save mfiler4 stat on exit
def save_mfiler4_stat (
(export VIEW_SIZE VIEW_OPTION VIEW_MTIME VIEW_OWNER VIEW_GROUP VIEW_NLINK VIEW_PERMISSION VIEW_DIVIDE_EXTENSION VIEW_FOCUSBACK VIEW_PAGE VIEW_FILE_SIZE VIEW_ADD_STAR_EXE
export COLOR_DIR COLOR_EXE COLOR_LINK COLOR_MARK
export SORT_KIND SORT_DIR_UP SORT_MARK_UP
path -d 0
mask -d 0
mask -d 0 -dotdir
path -d 1
mask -d 1
mask -d 1 -dotdir
dir_num
print 2 | var -local I
while(I | -lt $(dir_num|chomp)) (
path -d $I
mask -d $I
mask -d $I -dotdir
++ I
)
if(defined migemo_file_completion) ( print migemo_completion\n ) else ( print nomigemo_completion\n)
if(defined migemo::match) ( print migemo\n ) else ( print nomigemo \n )
var COLOR
) > $MF4HOME/stat
)
# load mfiler4 stat on startup
def load_mfiler4_stat (
cat $MF4HOME/stat | (
|12 export VIEW_SIZE VIEW_OPTION VIEW_MTIME VIEW_OWNER VIEW_GROUP VIEW_NLINK VIEW_PERMISSION VIEW_DIVIDE_EXTENSION VIEW_FOCUSBACK VIEW_PAGE VIEW_FILE_SIZE VIEW_ADD_STAR_EXE
|4 export COLOR_DIR COLOR_EXE COLOR_LINK COLOR_MARK
|3 export SORT_KIND SORT_DIR_UP SORT_MARK_UP
|1 var -local PATH
|1 var -local MASK
|1 var -local MASK_DOTDIR
try (
mcd -d 0 $PATH
mask -d 0 $MASK
mask -d 0 -dotdir $MASK_DOTDIR
) catch ()
|1 var -local PATH
|1 var -local MASK
|1 var -local MASK_DOTDIR
try (
mcd -d 1 $PATH
mask -d 1 $MASK
mask -d 1 -dotdir $MASK_DOTDIR
) catch ()
|1 var -local DIRECTORY_NUMBER
print 2 | var -local I
while(I | -lt $DIRECTORY_NUMBER) (
|1 var -local PATH
|1 var -local MASK
|1 var -local MASK_DOTDIR
new_dir $PATH -m $MASK -dotdir $MASK_DOTDIR
++ I
)
if(|1 print |>) (
|> print | root::run (
if(|strip |= migemo_completion) ( print 1 | var MIGEMO_COMPLETION_AUTO_LOAD) else ( print 0 | var MIGEMO_COMPLETION_AUTO_LOAD )
)
|1 if(|strip | = migemo) ( load -dynamic-library migemo.so )
) else (
if(readline "Do you want to load migemo which is for Japanse ROMAJI Incremental Search ?(y/n)" ( print "yes no" | split ) | =~ ^y) (
load -dynamic-library migemo.so
)
)
|1 var COLOR
init_color
reread -d all
)
)
# initialize mfiler4 stat
def init_mfiler4_stat (
if(readline "Do you use Migemo which is for Japanese Romaji Incremental Search? (y/n)" (print "yes no" | split ) | chomp | =~ -ignore-case ^y) (
load -dynamic-library migemo.so
)
)
if(print $MF4HOME/stat | -e) (
load_mfiler4_stat
) else (
init_mfiler4_stat
)
def quit -inherit (
inherit
mfiler4::save_mfiler4_stat
)
def regex_rename (
markfiles | each (
| var -local FILE
| if( | =~ $ARGV[0]) (
print "$FILE -> $(FILE | sub $-(OPTIONS | uniq) $ARGV[0] $ARGV[1] | chomp)"\n
) else (
print "$FILE -> $FILE (not rename)"
)
) | less
if(mchoice "rename ok?" no yes |chomp| = yes) (
sys::clear
markfiles | each (
| var -local FILE
| if(| =~ $ARGV[0]) (
print "mrename $FILE $(FILE | sub $-(OPTIONS|uniq) $ARGV[0] $ARGV[1]|chomp)"\n
mrename $FILE $(FILE | sub $-(OPTIONS|uniq) $ARGV[0] $ARGV[1] | chomp)
) else (
print "$FILE (no rename)"\n
)
)
)
reread -d all
)
keycommand $keycode::r (
marking | chomp | if(|= 1) (
cmdline "mfiler4::regex_rename '' ''" -5
) else (
cursor | scan '\.(.+)$' |chomp| | if( | -z) (
cmdline -q "mfiler4::mrename -c -r '$(cursor|chomp)' \"$(cursor|chomp)\"" -2
) else (
cursor | length | - $(cursor|chomp|rindex .|chomp) | + 1| var -local M
cmdline -q "mfiler4::mrename -c -r '$(cursor|chomp)' \"$(cursor|chomp)\"" -$M
)
)
)
keycommand $keycode::space ( mark -t -n $(cursor_num|chomp); cursor_move +1 )
keycommand $keycode::colon -external ( bash )
keycommand $keycode::c (
if(export VIEW_OPTION |chomp| = 2pane) (
mcp $(path -d sdir|chomp)
) else (
cmdline -q "mfiler4::mcp \"$(path|chomp)\"" -2
)
)
keycommand $keycode::C (
if(export VIEW_OPTION |chomp| = 2pane) (
cmdline 'cp -i -R $(mfiler4::markfiles)'" \"$(path -d sdir|chomp)\"" -2
) else (
cmdline 'cp -i -R $(mfiler4::markfiles)'" \"$(path|chomp)\"" -2
)
)
keycommand $keycode::m (
if(export VIEW_OPTION |chomp| = 2pane)(
mmv $(path -d sdir|chomp)
) else (
cmdline -q "mfiler4::mmv \"$(path|chomp)\"" -2
)
)
keycommand $keycode::M (
if(export VIEW_OPTION |chomp| = 2pane)(
cmdline 'mv -i $(mfiler4::markfiles)'" \"$(path -d sdir|chomp)\"" -2
) else (
cmdline 'mv -i $(mfiler4::markfiles)'" \"$(path|chomp)\"" -2
)
)
keycommand $keycode::l (
if(export VIEW_OPTION |chomp| = 2pane)(
mln $(path -d sdir|chomp)
) else (
cmdline -q "mfiler4::mln \"$(path|chomp)\"" -2
)
)
keycommand $keycode::d (
if(marking |chomp | = 1 && mchoice "move file to trashbox ok?" yes no |chomp| = yes )(
mtrashbox -f
)
)
keycommand $keycode::D (
if(marking |chomp| = 1 && mchoice "DELETE file ok?" yes no |chomp| = yes) (
mrm
)
)
keycommand $keycode::b (
if(marking | chomp | = 1) (
raise "can't get back up on marking files"
) else (
cmdline -q "mfiler4::mbackup \"$(cursor|chomp).bak\"" -6
)
)
keycommand $keycode::k ( cmdline 'mkdir -p ' -1 )
def new_file (
ARGV | each (
| chomp | if(! | -e) (
print "" > $(| print)
)
)
reread -d all
cursor_move /$(ARGV | lines -1 (|chomp))
)
keycommand $keycode::n ( cmdline -q "mfiler4::new_file " -1 )
keycommand $keycode::F (
if(marking | chomp | = 1) (
cmdline "sys::find "'$(mfiler4::markfiles)'" | mfiler4::vd" 10
) else (
cmdline "sys::find . | scan './(.+)' | mfiler4::vd" 12
)
)
print ~/.mfiler4/tmp | (
| export MFILER4_TEMP
| if(! | -d) (
rm -rf $(|print)
mkdir -p $(|print)
)
)
def smake (
make $(ARGV; OPTIONS|uniq) |>
if(|> | -z) (raise "make error")
|> sys::tee $MFILER4_TEMP/mmake
try (
while (true) (
cat $MFILER4_TEMP/mmake | selector -preserve-position | scan '^(.+?):(\d+):' | split | var -local FILE NUMBER
if (FILE | chomp | -e && NUMBER|chomp| -ge 0) (
vim +$NUMBER $FILE
) else (
break
)
)
) catch (
)
true
)
def sgrep (
grep -I -n $(ARGV; OPTIONS|uniq) |>
if(|> | -z) (raise "grep error")
|> sys::tee $MFILER4_TEMP/sgrep
try (
while (true) (
cat $MFILER4_TEMP/sgrep | selector -preserve-position | scan '^(.+?):(\d+):' | split | var -local FILE NUMBER
if (FILE | chomp | -e && NUMBER|chomp| -ge 0) (
vim +$NUMBER $FILE
) else (
break
)
)
) catch (
)
true
)
def segrep (
egrep -I -n $(ARGV) $-(OPTIONS|uniq) |>
if(|> | -z) (raise "grep error")
|> sys::tee $MFILER4_TEMP/sgrep
try (
while (true) (
cat $MFILER4_TEMP/sgrep | selector -preserve-position | scan '^(.+?):(\d+):' | split | var -local FILE NUMBER
if (FILE | chomp | -e && NUMBER|chomp| -ge 0) (
vim +$NUMBER $FILE
) else (
break
)
)
) catch (
)
true
)
keycommand $keycode::g (
if(marking | chomp | = 1) (
cmdline "mfiler4::sgrep -R "'$(mfiler4::markfiles)' 18
) else (
cmdline "mfiler4::sgrep "'$(mfiler4::allfiles)' 15
)
)
keycommand $keycode::G (
if(marking | chomp | = 1) (
cmdline "grep -R "'$(mfiler4::markfiles)'" | scan '^(.+?):' | uniq | mfiler4::vd" 8
) eles (
cmdline "grep "'$(mfiler4::allfiles)'" | scan '^(.+?):' | uniq | mfiler4::vd" 5
)
)
keycommand $keycode::slash ( isearch )
keycommand $keycode::ctrl_c ( if(mchoice quit\? yes no | = yes\n)( quit ) )
def exchange_2pane_directories (
cursor -d 0 | var -local cursor_0dir
cursor -d 1 | var -local cursor_1dir
mask -d 0 |>
mask -d 0 $(mask -d 1|chomp)
mask -d 1 $(|>chomp)
mask -d 0 -dotdir |>
mask -d 0 -dotdir $(mask -d 1 -dotdir|chomp)
mask -dotdir -d 1 $(|>chomp)
path -d 0|>
mcd -d 0 $(path -d 1|chomp)
mcd -d 1 $(|>chomp)
cursor_move -d 0 /$cursor_1dir
cursor_move -d 1 /$cursor_0dir
)
def copy_2pane_directories_0_to_1 (
cursor -d 0 | var -local cursor_0dir
mask -d 1 $(mask -d 0 |chomp)
mask -dotdir -d 1 $(mask -d 0 -dotdir |chomp)
mcd -d 1 $(path -d 0 | chomp)
cursor_move -d 1 /$(cursor_0dir|chomp)
)
def copy_2pane_directories_1_to_0 (
cursor -d 1 | var -local cursor_1dir
mask -d 0 $(mask -d 1 |chomp)
mask -dotdir -d 0 $(mask -d 1 -dotdir |chomp)
mcd -d 0 $(path -d 1 | chomp)
cursor_move -d 0 /$(cursor_1dir|chomp)
)
keycommand $keycode::w (
if(export VIEW_OPTION| = 2pane\n) (
exchange_2pane_directories
if(adir |= 1\n) (
activate 0
) else (
activate 1
)
)
)
keycommand $keycode::o (
if(export VIEW_OPTION | = 2pane\n) (
if(adir |= 1\n) (
copy_2pane_directories_0_to_1
) else (
copy_2pane_directories_1_to_0
)
)
)
keycommand $keycode::O (
if(export VIEW_OPTION | = 2pane\n) (
if(adir |= 1\n) (
copy_2pane_directories_1_to_0
) else (
copy_2pane_directories_0_to_1
)
)
)
keycommand $keycode::tab (
if(export VIEW_OPTION | = 2pane\n) (
if(adir |= 0\n) (
activate 1
) else (
activate 0
)
) else (
if(adir | = 1\n) (
copy_2pane_directories_1_to_0
activate 0
)
copy_2pane_directories_0_to_1
print 2pane | export VIEW_OPTION
activate 1
)
)
keycommand $keycode::q (
if(export VIEW_OPTION | = 2pane\n) (
if(adir | = 1\n) (
activate 0
)
print 1pane2 | export VIEW_OPTION
) else (
if(mchoice quit\? yes no | = yes\n)(
quit
)
)
)
keycommand -m $keycode::l ( mcd - )
keycommand -m $keycode::r ( mcd + )
keycommand $keycode::ctrl_t (
dir_num | var -local a
new_dir ~ -m "^[^\.].*" -dotdir 1
activate $a
)
keycommand $keycode::ctrl_w (
if(dir_num | -gt 2)(
activate $(dir_num | - 1)
del_dir -d $(dir_num | - 1)
)
)
keycommand $keycode::home ( mark -t -f -a )
keycommand -m $keycode::a ( mark -t -f -a )
keycommand $keycode::end ( mark -t -a )
keycommand -m $keycode::e ( mark -t -a )
keycommand $keycode::pageup ( cursor_move -10 )
keycommand $keycode::ctrl_u ( cursor_move -10 )
keycommand -m $keycode::v ( cursor_move -10 )
keycommand $keycode::pagedown ( cursor_move +10 )
keycommand $keycode::ctrl_v ( cursor_move +10 )
keycommand $keycode::ctrl_d ( cursor_move +10 )
keycommand $keycode::ctrl_a ( cursor_move 0 )
keycommand $keycode::ctrl_e ( cursor_move $(file_num|chomp) )
def run_file_manager (
uname -s | if(| index -quiet CYGWIN) (
sys::cygstart . &
) elif(| index -quiet Darwin) (
sys::open . &
) else (
sys::gnome-open . | (|print > /dev/null; | print -read-from-error > /dev/null)
)
)
keycommand $keycode::exclam ( run_file_manager )
keycommand $keycode::lbrack (
cursor_num | var MARK_RANGE_BEGIN
)
print -1 | var MARK_RANGE_BEGIN
def mcd -inherit -option-with-argument d (
print -1 | var MARK_RANGE_BEGIN
inherit $-(OPTIONS|uniq) $(ARGV)
)
keycommand $keycode::rbrack (
if(MARK_RANGE_BEGIN | != -1\n)(
MARK_RANGE_BEGIN | var -local I
while(I | -le $(cursor_num|chomp))(
mark -t -n $I
++ I
)
)
)
def mark_arguments (
ARGV | each (
| var -local file
mark -t $file
)
false
)
keycommand $keycode::star ( cmdline "mfiler4::mark_arguments *" -1 )
def regex_mark (
allfiles |each (
| var -local file
if(file | =~ $ARGV[0]) (
mark -t $file
)
)
false
)
keycommand $keycode::plus ( cmdline "mfiler4::regex_mark ''" -2 )
keycommand $keycode::p (
if(export VIEW_OPTION | = 2pane\n)(
if(marking | = 1\n) (
path -d sdir | chomp | length | chomp | var -local m
m | + 10 | var -local m
cmdline "tar cvfz '$(path -d sdir|chomp).tgz' "'$(mfiler4::markfiles)' $m
) else (
path -d sdir | chomp | length | chomp | var -local m
m | + 9 | + $(cursor | length | chomp) | var -local m
cmdline "tar cvfz '$(path -d sdir|chomp)$(cursor|chomp).tgz' "'$(mfiler4::markfiles)' $m
)
) else (
cmdline "tar cvfz .tgz "'$(mfiler4::markfiles)' 9
)
)
keycommand $keycode::P (
if(marking |chomp| = 1) (
cmdline "tar cvfz .tgz "'$(mfiler4::markfiles)' 9
) else (
print 9 | + $(cursor | length | chomp) | var -local m
cmdline "tar cvfz '$(cursor|chomp).tgz' "'$(mfiler4::markfiles)' $m
)
)
keycommand $keycode::u (
cursor | scan '.+\.(.+)$' | chomp | if(|= tgz) (
if(export VIEW_OPTION |chomp| = 2pane)(
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path -d sdir|chomp)\"" -2
) else (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path|chomp)\"" -2
)
) elif (|= tar) (
if(export VIEW_OPTION |chomp| = 2pane)(
cmdline "tar xvf '$(cursor|chomp)' -C \"$(path -d sdir|chomp)\"" -2
) else (
cmdline "tar xvf '$(cursor|chomp)' -C \"$(path|chomp)\"" -2
)
) elif (|= zip) (
if(marking | chomp | = 1) (
if(export VIEW_OPTION |chomp | = 2pane)(
cmdline "sys::unzip '$(cursor|chomp)' -d \"$(path -d sdir|chomp)\"" -2
) else (
cmdline "sys::unzip '$(cursor|chomp)' -d \"$(path|chomp)\"" -2
)
) else (
if(export VIEW_OPTION |chomp| = 2pane)(
cmdline "sys::unzip '$(cursor|chomp)' -d \"$(path -d sdir|chomp)\"" -2
) else (
cmdline "sys::unzip '$(cursor|chomp)' -d \"$(path|chomp)\"" -2
)
)
) elif (|= gz) (
if(export VIEW_OPTION |chomp| = 2pane)(
if(cursor | index -quiet tar.gz) (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path -d sdir|chomp)\"" -2
) else (
cmdline "gzip -d '$(cursor|chomp)'" -2
)
) else (
if(cursor | index -quiet tar.gz) (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path|chomp)\"" -2
) else (
cmdline "gzip -d '$(cursor|chomp)'" -2
)
)
)
)
keycommand $keycode::U (
cursor | scan '.+\.(.+)$' | chomp | if(|= tgz) (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path -d adir|chomp)\"" -2
) elif (|= tar) (
cmdline "tar xvf '$(cursor|chomp)' -C \"$(path -d adir|chomp)\"" -2
) elif (|= gz) (
if(export VIEW_OPTION |chomp| = 2pane)(
if(cursor | index -quiet tar.gz) (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path|chomp)\"" -2
) else (
cmdline "gzip -d '$(cursor|chomp)'" -2
)
) else (
if(cursor | index -quiet tar.gz) (
cmdline "tar xvfz '$(cursor|chomp)' -C \"$(path|chomp)\"" -2
) else (
cmdline "gzip -d '$(cursor|chomp)'" -2
)
)
) elif(|= zip) (
cmdline "sys::unzip '$(cursor|chomp)' -d \"$(path -d adir|chomp)\"" -2
)
)
keycommand $keycode::qmark -external ( mfiler4::help | less )
########################################
# history menu
########################################
def make_history_menu (
defmenu history
print 0 | var -local I
mfiler4::history | lines -1..0 | head -n 256 | each (
| var -local Item
print 65 | + $I | printf "%c" | var -local Key
eval "addmenu history '($Key) $Item' '$(print 97 | + $I|chomp)' ( mcd $Item ) "
++ I
if(I | -ge 125) ( -- I )
)
)
keycommand $keycode::H (
make_history_menu
mmenu history
)
########################################
# jump menu
########################################
def add_jump_menu_with_no_key (
print $ARGV[0] | ary -append JUMP_MENU
make_jump_menu_with_no_key
)
def add_jump_menu_with_key (
print $ARGV[0] | ary -append JUMP_MENU
print $ARGV[1] | ary -append JUMP_MENU_KEY
make_jump_menu_with_key
)
def clear_jump_menu_with_no_key (
if(defined JUMP_MENU) (
sweep JUMP_MENU
)
make_jump_menu_with_no_key
)
def clear_jump_menu_with_key (
if(defined JUMP_MENU) (
sweep JUMP_MENU
)
if(defined JUMP_MENU_KEY) (
sweep JUMP_MENU_KEY
)
make_jump_menu_with_key
)
def make_jump_menu_with_no_key (
defmenu jump
if(defined JUMP_MENU) (
print 0 | var -local I
while(I | -lt $(ary -size JUMP_MENU|chomp)) (
print 97 | + $I | printf "%c" | var key
eval "addmenu jump '($key) $(ary JUMP_MENU -index $I|chomp)' '$(print 97 | + $I)' ( mcd '$(ary JUMP_MENU -index $I|chomp)' )"
++ I
)
)
addmenu jump "-----------------" $keycode::X -external ( print dummy )
addmenu jump '(A)dd current directory to jump mmenu' $keycode::A ( cmdline "mfiler4::add_jump_menu_with_no_key \"$(path -d adir|chomp)\"" -2 )
addmenu jump '(C)lear jump mmenu' $keycode::C ( clear_jump_menu_with_no_key )
)
def make_jump_menu_with_key (
defmenu jump
if(defined JUMP_MENU) (
print 0 | var -local I
while(I | -lt $(ary -size JUMP_MENU)) (
ary JUMP_MENU_KEY -index $I | var -local Key
Key | printf "%c" | var -local KeyTitle
eval "addmenu jump '($KeyTitle) $(ary JUMP_MENU -index $I|chomp)' '$Key' ( mcd '$(ary JUMP_MENU -index $I|chomp)' )"
++ I
)
)
addmenu jump "-----------------" $keycode::X -external ( print dummy )
addmenu jump '(A)dd current directory to jump mmenu' $keycode::A ( cmdline "mfiler4::add_jump_menu_with_key '$(path -d adir|chomp)'"' $mfiler4::key_' -1 )
addmenu jump '(C)lear jump mmenu' $keycode::C ( clear_jump_menu_with_key )
)
def save_jump_menu_with_no_key (
if(defined JUMP_MENU) (
ary JUMP_MENU > $MF4HOME/jump
) else (
rm -rf $MF4HOME/jump
)
)
def save_jump_menu_with_key (
if(defined JUMP_MENU) (
print 0 | var -local I
times $(ary -size JUMP_MENU|chomp) (
(ary JUMP_MENU -index $I; ary JUMP_MENU_KEY -index $I) | join ,
++ I
) > $MF4HOME/jump
) else (
rm -rf $MF4HOME/jump
)
)
def load_jump_menu_with_key (
cat $MF4HOME/jump | each (
| strip | split ,
) | each -number 2 (
|1 ary -append JUMP_MENU
|1 ary -append JUMP_MENU_KEY
)
make_jump_menu_with_key
)
def load_jump_menu_with_no_key (
cat $MF4HOME/jump | ary JUMP_MENU
make_jump_menu_with_no_key
)
if(print $MF4HOME/jump | -e) (
if(cat $MF4HOME/jump | lines 0 | index -quiet , ) (
load_jump_menu_with_key
print 0 | var JUMP_MENU_KIND
) else (
load_jump_menu_with_no_key
print 1 | var JUMP_MENU_KIND
)
)
def init_jump_menu_kind (
if(readline -no-completion "Do you use jump menu with automatically key settings? (y/n)" | =~ '^y.*|^Y.*') (
clear_jump_menu_with_no_key
print 1 | var JUMP_MENU_KIND
) else (
clear_jump_menu_with_key
print 0 | var JUMP_MENU_KIND
)
)
keycommand $keycode::j ( if(! defined JUMP_MENU_KIND) ( curses::endwin; init_jump_menu_kind; curses::initscr ); mmenu jump )
def quit -inherit (
inherit
if(defined JUMP_MENU_KIND) (
if(JUMP_MENU_KIND | -eq 1) (
mfiler4::save_jump_menu_with_no_key
) else (
mfiler4::save_jump_menu_with_key
)
)
)
### help ###
mfiler4::run(
object help (
Help
def main (
### Japanese Manual ####
(export LC_ALL LANG) | if(|index -quiet ja || | index -quiet JP) (
if(ary -size ARGV |= 0\n) (
if(funinfo | egrep -q '^current object: help<-mfiler4<-root$') (
print "-+- マニュアル -+-" \n \n
cat $MFILER4_DOCDIR/USAGE.ja.txt
print "-+- コマンド -+-" \n \n
hash -La HELPS.ja| each -La -number 2 ( | lines -La 1 (|chomp|add \n\n) )
) else (
hash -La HELPS.ja| each -La -number 2 ( | lines -La 1 (|chomp|add \n\n) )
)
) elif(hash HELPS.ja -key $ARGV[0] | -z) (
print "$ARGV[0] command doesn't exist"\n
) else (
hash HELPS.ja -key $ARGV[0]
)
### English Manual ###
) else (
ary -size ARGV | if(| = 0\n ) (
if(funinfo | egrep -q '^current object: help<-mfiler4<-root$') (
cat $MFILER4_DOCDIR/USAGE.txt
hash -La HELPS| each -La -number 2 ( | lines -La 1 (|chomp|add \n\n) )
) else (
hash -La HELPS| each -La -number 2 ( | lines -La 1 (|chomp|add \n\n) )
)
) elif(hash HELPS -key $ARGV[0] | -z) (
print "$ARGV[0] command doesn't exist"\n
) else (
hash HELPS -key $ARGV[0]
)
)
)
)
print <<<'EOS'
quit リターンコード
-
終了する。リターンコード省略時0.
-
keycommand -m/-external キーコード ブロック
-
キーバインドを定義します。キーコードのキーが押されるとブロックが実行されます。
キーコードは環境変数で設定されていて、このドキュメントの最後に一覧があります。
-m メタキー(Alt)を押してキーを押せばブロックが実行される
-external 画面制御を行うプログラムがブロック中現れる場合必要となります。（具体的にはcursesをoffにしてブロックを実行します。)
-
cursor_move n|+n|-n|/ファイル名
-
n カーソル番号のファイルに移動
+n カーソルを下にnだけ移動
-n カーソルを上にnだけ移動
/ファイル名 ファイル名のファイルにカーソルを移動
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
mcd dir|+|-
-
ディレクトリを移動する
dir dirに移動
+ ディレクトリを進む
- ディレクトリを戻る
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
cmdline -q|-c 文字列 カーソル位置
-
コマンドラインに移行。
文字列が最初にコマンドラインに書かれている文字列です。
カーソル位置は初期カーソル位置です。0が先頭です。-1は末尾です。-2は最後から２番目の文字です。
-q クィック。コマンドを実行した後カーソル待ちにならない
-c コンティニュー。コマンドを実行した後もコマンドラインのまま
-
file_num
-
ファイル数を返す。ディレクトリが指定されなければアクティブディレクトリです。
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
dir_num
-
ディレクトリの数を返す
-
cursor_num
-
カーソルがある位置を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
cursor
-
カーソル位置にあるファイル名を出力する
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_name ファイル番号
-
ファイル名を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_ext ファイル番号
-
ファイルの拡張子名を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_perm ファイル番号
-
ファイルのパーミッションを返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_group ファイル番号
-
ファイルの所有グループ名を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_user ファイル番号
-
ファイルの所有ユーザー名を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
file_index ファイル名
-
ファイルのファイル番号を返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
path
-
ディレクトリのパスを返す
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
isearch
-
インクリメンタルサーチを開始
-
mchoice メッセージ 選択肢１ 選択肢２....
-
選択肢をユーザーから選んでもらって、その選ばれた選択肢を出力する。
-
activate 数値
-
ディレクトリ番号のディレクトリをアクティブにする。
-
defmenu メニュー名
-
メニューを定義する。
-
addmenu メニュー名 タイトル キーコード ブロック
-
メニューを追加する。
-external 画面制御を行うプログラムがブロック中現れる場合必要となります。（具体的にはcursesをoffにしてブロックを実行します。)
-
mmenu メニュー名
-
メニューを開く
-
reread
-
指定されたディレクトリを再読み込みする
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
start_color
-
カーシスをカラーモードにしはじめる
-
sort
-
指定されたディレクトリをソートする
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
markfiles
-
マークされたファイルを表示する。マークしていない場合はカーソルのファイルを表示する。$()で貼り付けてください
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-fullpath フルパスで表示
-
allfiles
-
全てのファイルを表示する。$()で貼り付けてください。
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-fullpath フルパスで表示
-
mark
-
mark ファイル名 ON(1) or OFF(0) ファイル名のマークをON or OFFする
mark -t ファイル名 ファイル名のマークを反転する
-nをつけるとファイル名のところをファイル番号で指定できます。(このほうが処理が高速です。）
-t マークを反転する
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-f ディレクトリは除外
-n 数値で指定する
-a 全てのファイル
-
marking
-
そのディレクトリにマークしているファイルがある場合1を出力する。無い場合0を出力する。
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
mclear_immediately
-
画面を消去する
-
vd
-
-d [adir|sdir|n(数値)] ディレクトリを指定するオプションです。
パイプで受け取ったファイル名のリスト(改行区切り)を仮想ディレクトリとして設定する。ファイルはディスク上に存在していないといけない。
-
mcp 目標ディレクトリ
-
-p タイムスタンプを保存する
マークされたファイルをコピーする
-
mmv 目標ディレクトリ
-
マークされたファイルを移動する
-p タイムスタンプを保存する
-f 強制上書き
-
mrm
-
マークされたファイルを削除する
-
mtrashbox
-
マークされたファイルをゴミ箱($TRASHBOX_DIR)に移動する
-p タイムスタンプを保存する
-
mln 目標ディレクトリ
-
リンクを作成する
-
mrename ファイル名 改名後のファイル名
-
ファイルを改名する
-r 再読み込みする
-c カーソルを改名後のファイルに移動する
-
mask
-
mask -dotdir 0 or 1 .から始まるファイル名のディレクトリの表示、非表示を設定
mask 正規表現 正規表現にマスクを設定
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-r マスクの設定だけじゃなくてディレクトリを再読み込みする
-
new_dir パス
-
パスの新しいファイラーディレクトリを作成する
-m マスク マスクを設定する
-dotdir 0|1 ドットディレクトリのマスクを設定する
-
del_dir
-
ファイラーディレクトリを削除する
-d [all|adir|sdir|n(数値)] ディレクトリを指定するオプションです。
-
mbackup ファイル名 バックアップファイル名
-
-p タイムスタンプを保存する
バックアップを作成する
-
row
-
カーソルの現在の列を出力する
-
row_max
-
カーソルの列の最大値を出力する
-
line
-
カーソルの現在の行を出力する
-
line_max
-
カーソルの行の最大値を出力する
-
adir
-
アクティブなファイラディレクトリのディレクトリ番号を返す
-
sdir
-
非アクティブなファイラディレクトリのディレクトリ番号を返す
-
kanjicode_file_name
-
ファイルシステム エンコーディング 設定
-utf8-mac UTF8-MAC
-utf8 UTF8
-byte byte
EOS | help::set_helps_ja
print <<<'EOS'
quit [return code]
-
exit mfiler4
-
keycommand [-m/-external] [keycode] [block]
-
Define keybind. If the key of keycode is pressed, mfiler4 run the block.
-m meta(alt) key
-external If there is controlling terminal program in the block, you need this. It turn curses off before running block.
-
cursor_move n|+n|-n|/[file name]
-
-d [all|adir|sdir|n] specifies directory
n move cursor to the cursor number
+n only n moves below
-n only n moves above
/[file name] move to the file
-
mcd dir|+|-
-
-d [all|adir|sdir|n] specifiles directory
change path of the directory
dir move to dir
+ forward directory history
- backward directory history
-
cmdline -q|-c [string] [cursor position]
-
switch cmdline mode
string is initial string of the cmdline.
cursor position is initial cursor position. head is 0. tail is -1.
-q quick. don't wait after runned command.
-c continue. continue to cmdline mode after runned command.
-
file_num
-
return file number.
-d [all|adir|sdir|n] specifies directory
-
dir_num
-
return director number
-
cursor_num
-
return cursor position
-d [all|adir|sdir|n] specifies directory
-
cursor
-
write cursor file name.
-d [all|adir|sdir|n] specifies directory
-
file_name [file number]
-
return file name of the file.
-d [all|adir|sdir|n] specifies directory
-
file_ext [file number]
-
return file extesion
-d [all|adir|sdir|n] specifies directory
-
file_perm [file number]
-
return file permission
-d [all|adir|sdir|n] specifies directory
-
file_group [file number]
-
return file group
-d [all|adir|sdir|n] specifies directory
-
file_user [file number]
-
return file owner
-d [all|adir|sdir|n] specifies directory
-
file_index [file name]
-
return file number of the file
-d [all|adir|sdir|n] specifies directory
-
path
-
return directory path
-d [all|adir|sdir|n] specifies directory
-
isearch
-
start incremental search
-
mchoice message item1 item2 ...
-
make user choice the items
-
activate [directory number]
-
activate diretory which has the number
-
defmenu [menu name]
-
define menu
-
addmenu [menu name] title keycode block
-
add item to the menu
-external If there is controlling terminal program in the block, you need this. It turn curses off before running block.
-
mmenu [menu name]
-
open menu
-
reread
-
reread disk
-d [all|adir|sdir|n] specifies directory
-
start_color
-
Initialize curses color mode
-
sort
-
sort files
-d [all|adir|sdir|n] specifies directory
-
markfiles
-
write mark files
-d [all|adir|sdir|n] specifies directory
-fullpath fullpath
-
allfiles
-
write all files
-d [all|adir|sdir|n] specifies directory
-fullpath fullpath
-
mark
-
mark [file name] [0 or 1] mark the file or dismark the file
mark -t [file name] toggle mark the file
mark -n [file number] [0 or 1] mark the file or dismark the file
mark -n [file number] -t toggle mark the file
-d [all|adir|sdir|n] specifies directory
-f withou directories
-a all files
-
marking
-
when mark file exists, write 1.
-d [all|adir|sdir|n] specifies directory
-
mclear_immediately
-
clear screen immediately
-
vd
-
make virtual directory from STDIN
-d [all|adir|sdir|n] specifies directory
-
mcp [target directory]
-
copy mark files
-p preserve time stamp
-
mmv [target directory]
-
move mark files
-p preserve time stamp
-f force overwrite
-
mrm
-
remove mark files
-
mtrashbox
-
move mark files to $TRASHBOX_DIR
-p preserve time stamp
-
mln [target directory]
-
make mark file's absolute link
-
mrename [file name] [renamed file name]
-
rename file name
-r reread disk
-c move cursor to renamed file
-
mask
-
mask -dotdir 0 or 1 visible dot file or hide dot file
mask [regex] regex mask
-d [all|adir|sdir|n] specifies directory
-r reread disk
-
new_dir path
-
make directory
-m MASK set initial mask
-dotdir 0|1 set dot directory mask
-
del_dir
-
remove directory
-d [all|adir|sdir|n] specifies directory
-
mbackup [file name] [backup file name]
-
backup the file
-p preserve time stamp
-
row
-
return cursor row position
-
row_max
-
return cursor row max
-
line
-
retur curor line position
-
line_max
-
return cursor line max
-
adir
-
return active directory number
-
sdir
-
return disactive directory number
-
kanjicode_file_name
-
file system encode setting
-m UTF8-MAC
-w UTF8
EOS | help::set_helps
)
compl::run( root::object mfiler4 )
completion mfiler4::help (
mfiler4::self | egrep native\ function\$ | root::scan '(^.+?):' | each ( | chomp | quote | pomch )
hash mfiler4::COMPLETION_OPTIONS -key help
)
completion mfiler4::__all__ (
ARGV | var -local Program
| file_completion $ARGV[1]
hash mfiler4::COMPLETION_OPTIONS -key $Program
)
mfiler4 | egrep ': native function$' | egrep -v '^run: native function$|^show: native function$' | scan '(^.+):' | each (
| var -local command
mfiler4::help $command | lines 1..-1 | scan '^-[a-zA-Z0-9-]+' |chomp| add -number 0 $command\a | hash -append -La COMPLETION_OPTIONS
)
