xmode.catalog: factor ?find-mode (which returns f if no mode found) from find-mode (which defaults to "text" if no mode found)
parent
f5b4ecc14a
commit
27c2ac29eb
|
@ -113,8 +113,11 @@ ERROR: mutually-recursive-rulesets ruleset ;
|
||||||
[ nip ] 2keep first-line-glob>> ?glob-matches
|
[ nip ] 2keep first-line-glob>> ?glob-matches
|
||||||
[ 2drop t ] [ file-name-glob>> ?glob-matches ] if ;
|
[ 2drop t ] [ file-name-glob>> ?glob-matches ] if ;
|
||||||
|
|
||||||
: find-mode ( file-name first-line -- mode )
|
: ?find-mode ( file-name first-line -- mode/f )
|
||||||
[ file-name ] dip
|
[ file-name ] dip
|
||||||
modes
|
modes
|
||||||
[ nip [ 2dup ] dip suitable-mode? ] assoc-find
|
[ nip [ 2dup ] dip suitable-mode? ] assoc-find
|
||||||
2drop [ 2drop ] dip [ "text" ] unless* ;
|
2drop [ 2drop ] dip ;
|
||||||
|
|
||||||
|
: find-mode ( file-name first-line -- mode )
|
||||||
|
?find-mode "text" or ; inline
|
||||||
|
|
Loading…
Reference in New Issue