161 lines
6.7 KiB
Plaintext
161 lines
6.7 KiB
Plaintext
#
|
||
# This is the default initialization file for more(1). To avoid any need to
|
||
# change the manpage or helpfile, almost all commands maintain their historical
|
||
# keymappings. Some additional twoggles may be added that will be left for
|
||
# the intrepid user to discover.
|
||
#
|
||
# This file is compiled directly into more; changing this file will not change
|
||
# the actual defaults (unless it is changed in the source directory and more
|
||
# is recompiled). The correct way to change the global defaults is by
|
||
# adding a /etc/dot.morerc global initialization file.
|
||
#
|
||
# In general, the average user is not expected have any interest in changing
|
||
# default keybindings.
|
||
#
|
||
# If you use an ~/.morerc that is dependent on specific features of this
|
||
# default morerc, you should copy this default morerc to ~/.defmorerc so that
|
||
# possible future changes in this file do not cause problems for you. The
|
||
# ~/.defmorerc file will cause the compiled-in default morerc to be ignored.
|
||
#
|
||
# The default initialization file is compiled into more(1) so that more(1)
|
||
# will work and be usable even if the filesystem (and the location
|
||
# /usr/share/misc/default.morerc, where this would be stored if it was not
|
||
# compiled into more(1)) is missing or away without leave (chroot directory,
|
||
# fs crash, badly written rescue floppy, or any other reason).
|
||
#
|
||
# BUGS: a) There is no documentation (this is arguably a feature).
|
||
# b) There is no "map" command.
|
||
#
|
||
# $FreeBSD$
|
||
#
|
||
|
||
# The "deftog" is required to initialize more(1).
|
||
#
|
||
# Each of the toggle variables in the proceeding list will be initialized.
|
||
# A toggle variable "togvar" will be initialized into two variables:
|
||
# ${togvar_s} and ${togvar_n}. The _s variant will hold a string representing
|
||
# the toggle state, and the _n variant will hold a number representing the
|
||
# toggle state. The toggle states are numbered from 0 to n, in the order
|
||
# listed for the toggle.
|
||
#
|
||
# _ls_direction forw back direction of last search
|
||
# _ls_sense noinvert invert find match/non-matching to last search
|
||
# _wraplines off on currently wrapping lines?
|
||
# _statprompt on off currently displaying the long prompt?
|
||
#
|
||
# If the fact that "off on" is in a different order from "on off" bothers
|
||
# you, then you are probably abusing the variables.
|
||
#
|
||
# Additionally, the following variables are set,
|
||
#
|
||
# ${_curhscroll} number of columns scrolled horizontally
|
||
# ${_ls_regexp} regular expression from the last search
|
||
#
|
||
|
||
deftog
|
||
|
||
|
||
#
|
||
# basic internal initialization for things used inside this file
|
||
#
|
||
set lsthscr 1
|
||
# Add "set hkey_scroll true" to ~/.morerc to enable all the hjkl keys (but
|
||
# disabling h)elp).
|
||
set hkey_scroll false
|
||
set scr_scroll 0
|
||
# We have no way of resetting this on SIGWINCH as the old more A_H_SCROLL did
|
||
# It's probably just as well... (since resetting would lose the old value!)
|
||
# (Actually, we could emulate it from here if we really wanted to).
|
||
set half_scroll (${_sc_height} / 2)
|
||
# magic number indicating the value is not initialized
|
||
set savedhscroll 87382
|
||
|
||
macro 1 j 'forw_scroll ${number}'
|
||
macro 1 k 'back_scroll ${number}'
|
||
macro 1 \e[B 'forw_scroll ${number}'
|
||
macro 1 \e[A 'back_scroll ${number}'
|
||
macro 1 \n 'forw_scroll ${number}'
|
||
macro 1 \e[G 'forw (${_sc_height} * ${number})'
|
||
macro 1 \e[I 'back (${_sc_height} * ${number})'
|
||
set com_getscr 'condition (${number} != 0); \
|
||
set scr_scroll ${number}; \
|
||
condition (${number} == 0); \
|
||
set scr_scroll ${_sc_height}; \
|
||
condition true;'
|
||
macro 0 " " 'eval ${com_getscr}; forw ${scr_scroll};'
|
||
macro 0 f 'eval ${com_getscr}; forw ${scr_scroll};'
|
||
macro 0 "" 'eval ${com_getscr}; forw ${scr_scroll};'
|
||
macro 0 b 'eval ${com_getscr}; back ${scr_scroll};'
|
||
macro 0 "" 'eval ${com_getscr}; back ${scr_scroll};'
|
||
set com_sethalfscroll 'condition (${number} != 0); \
|
||
set half_scroll ${number}; \
|
||
condition true;'
|
||
macro 0 d 'eval ${com_sethalfscroll}; forw_scroll ${half_scroll}'
|
||
macro 0 "" 'eval ${com_sethalfscroll}; forw_scroll ${half_scroll}'
|
||
macro 0 u 'eval ${com_sethalfscroll}; back_scroll ${half_scroll}'
|
||
macro 0 "" 'eval ${com_sethalfscroll}; back_scroll ${half_scroll}'
|
||
set com_rscroll 'condition (${number} != 0); \
|
||
set lsthscr ${number}; \
|
||
condition true; \
|
||
rscroll ${lsthscr};'
|
||
set com_lscroll 'condition (${number} != 0); \
|
||
set lsthscr ${number}; \
|
||
condition true; \
|
||
lscroll ${lsthscr};'
|
||
# this little trick lets the user simply set hkey_scroll=true in their own
|
||
# ~/.morerc file to enable the 'l' and 'h' keys the way Bill meant them
|
||
macro 0 h 'condition ${hkey_scroll}; eval ${com_lscroll}; \
|
||
condition_! ${hkey_scroll}; help; \
|
||
condition true;'
|
||
macro 0 l 'condition ${hkey_scroll}; eval ${com_rscroll}; \
|
||
condition_! ${hkey_scroll}; error "key not enabled"; \
|
||
condition true;'
|
||
macro 0 :help 'help'
|
||
macro 0 \e[C 'eval ${com_rscroll}'
|
||
macro 0 \e[D 'eval ${com_lscroll}'
|
||
macro 0 \e[H 'condition (${_wraplines_n} && (${savedhscroll} != 87382)); \
|
||
rscroll 1; \
|
||
rscroll ${savedhscroll}; \
|
||
condition_toggle; \
|
||
set savedhscroll ${_curhscroll}; \
|
||
lscroll ${_curhscroll}; \
|
||
lscroll 1; \
|
||
condition true;'
|
||
macro 1 n 'research ${_ls_direction_n} ${number}'
|
||
macro 1 N 'research (${_ls_direction_n} + 1) ${number}'
|
||
macro 1 / 'magicasksearch forw ${number}'
|
||
macro 1 ? 'magicasksearch back ${number}'
|
||
macro 0 G 'condition (${number} == 0); goend; \
|
||
condition (${number} != 0); goline ${number}; \
|
||
condition true;'
|
||
macro 1 g 'goline ${number}'
|
||
macro 0 p 'gopercent ${number}'
|
||
macro 0 % 'gopercent ${number}'
|
||
macro 0 \e[F 'goend'
|
||
# Quote since it's technically an isspace() character
|
||
macro 0 " " 'repaint'
|
||
macro 0 r 'repaint'
|
||
macro 0 R 'flush'
|
||
macro 0 v 'edit'
|
||
macro 0 :e 'askfile'
|
||
macro 0 E 'askfile'
|
||
# The old keymaping for 'N'
|
||
#macro 1 N 'file next ${number}'
|
||
macro 1 :n 'file next ${number}'
|
||
macro 1 P 'file prev ${number}'
|
||
macro 1 :p 'file prev ${number}'
|
||
macro 0 :a 'file_list'
|
||
macro 0 m 'setmark ?'
|
||
macro 0 \' 'gomark ?'
|
||
macro 0 :t 'asktag'
|
||
macro 1 t 'nexttag ${number}'
|
||
macro 1 T 'prevtag ${number}'
|
||
macro 0 "" 'stat (${_statprompt_n} + 1)'
|
||
macro 0 = 'stat (${_statprompt_n} + 1)'
|
||
macro 0 q 'quit'
|
||
macro 0 :q 'quit'
|
||
macro 0 ZZ 'quit'
|
||
# This command intentionally disabled by default. The command parser is
|
||
# too baroque to expose hapless users to.
|
||
#macro 0 :: 'usercom'
|