31 lines
532 B
Plaintext
31 lines
532 B
Plaintext
(declare-command "q" () (red/quit))
|
|
(declare-command "q!" () (red/quit #t))
|
|
(declare-command
|
|
"w" (&optional filename)
|
|
(if filename
|
|
(red/buffer/write filename)
|
|
(red/buffer/write)
|
|
)
|
|
)
|
|
(declare-command
|
|
"wq" ()
|
|
(red/buffer/write)
|
|
(red/quit)
|
|
)
|
|
(declare-command
|
|
"e" (&optional filename)
|
|
(if filename
|
|
(red/buffer/open filename)
|
|
)
|
|
)
|
|
(declare-command
|
|
"e!" (&optional filename)
|
|
(if filename
|
|
(red/buffer/open filename #t)
|
|
)
|
|
)
|
|
(declare-command
|
|
"source" (filename)
|
|
(import filename)
|
|
)
|