Variable: artist-menu-map
artist-menu-map is a variable defined in artist.el.gz.
Value
<Rubber-banding> <:toggle> artist-rubber-banding
<Trim Line Endings> <:toggle> artist-trim-line-endings
Documentation
Menu for artist-mode(var)/artist-mode(fun).
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(easy-menu-define artist-menu-map artist-mode-map
"Menu for `artist-mode'."
`("Artist"
,@(mapcar
(lambda (op)
`[,(nth 0 op) ,(nth 1 op)
:help ,(format "Draw using the %s style" (nth 0 op))
:style radio
:selected (eq artist-curr-go ',(nth 2 op))])
'(("Vaporize" artist-select-op-vaporize-lines vaporize-lines)
("Erase" artist-select-op-erase-rectangle erase-rect)
("Spray-can" artist-select-op-spray-set-size spray-get-size)
("Text" artist-select-op-text-overwrite text-ovwrt)
("Ellipse" artist-select-op-circle circle)
("Poly-line" artist-select-op-straight-poly-line spolyline)
("Square" artist-select-op-square square)
("Rectangle" artist-select-op-rectangle rectangle)
("Line" artist-select-op-straight-line s-line)
("Pen" artist-select-op-pen-line pen-line)))
"---"
["Character for Fill..." artist-select-fill-char
:help "Choose the character to insert when filling in shapes"]
["Character for Line..." artist-select-line-char
:help "Choose the character to insert when drawing lines"]
["Character to Erase..." artist-select-erase-char
:help "Choose a specific character to erase"]
["Rubber-banding" artist-toggle-rubber-banding
:help "Toggle rubber-banding"
:style toggle
:selected artist-rubber-banding]
["Trim Line Endings" artist-toggle-trim-line-endings
:help "Toggle trimming of line-endings"
:style toggle
:selected artist-trim-line-endings]
["Draw Shape Borders" artist-toggle-borderless-shapes
:help "Toggle whether shapes are drawn with borders"
:style toggle
:selected (not artist-borderless-shapes)]
["Characters for Spray" artist-select-spray-chars
:help "Choose characters for sprayed by the spray-can"]))