Lines Matching +defs:list +defs:part
13 ;; This file is part of GNU Emacs.
358 (in fact, only the left part (between the A and the leftmost ``/''
387 (defcustom artist-figlet-list-fonts-command
388 ;; list files ending with *.flf in any directory printed by the
392 "Command to run to get list of available fonts."
486 "Assoc list for looking up next and/or previous draw operation.
511 (defvar artist-key-poly-point-list nil)
530 (define-key map [C-mouse-4] 'artist-select-prev-op-in-list)
531 (define-key map [C-mouse-5] 'artist-select-next-op-in-list)
815 ) ;; end of list
822 The master table is a list of table elements. The elements of this table
838 TITLE is the title of the submenu; this is followed by a list of
968 POINT-LIST is a list of vectors [X Y].")
979 (defun artist-mt-get-info-part (element)
980 "Retrieve the info part component from the master table ELEMENT."
985 (defsubst artist-go-get-desc (info-part)
987 (elt info-part 0))
989 (defsubst artist-go-get-unshifted (info-part)
991 (elt (elt info-part 1) 0))
993 (defsubst artist-go-get-shifted (info-part)
995 (elt (elt info-part 1) 1))
997 (defsubst artist-go-get-keyword (info-variant-part)
999 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1000 (elt info-variant-part 0))
1002 (defsubst artist-go-get-symbol (info-variant-part)
1004 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1005 (elt info-variant-part 1))
1007 (defsubst artist-go-get-mode-line (info-variant-part)
1009 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1010 (elt info-variant-part 2))
1012 (defsubst artist-go-get-arrow-pred (info-variant-part)
1014 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1015 (elt info-variant-part 3))
1017 (defsubst artist-go-get-arrow-set-fn (info-variant-part)
1019 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1020 (elt info-variant-part 4))
1022 (defsubst artist-go-get-init-fn (info-variant-part)
1024 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1025 (elt info-variant-part 5))
1027 (defsubst artist-go-get-prep-fill-fn (info-variant-part)
1029 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1030 (elt info-variant-part 6))
1032 (defsubst artist-go-get-exit-fn (info-variant-part)
1034 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1035 (elt info-variant-part 7))
1037 (defsubst artist-go-get-draw-how (info-variant-part)
1039 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1040 (elt info-variant-part 8))
1042 (defsubst artist-go-get-draw-fn (info-variant-part)
1044 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part."
1045 (elt info-variant-part 9))
1047 (defsubst artist-go-get-undraw-fn (info-variant-part)
1049 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
1052 (elt (elt info-variant-part 10) 0))
1054 (defsubst artist-go-get-interval-fn (info-variant-part)
1056 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
1059 (elt (elt info-variant-part 10) 0))
1061 (defsubst artist-go-get-fill-pred (info-variant-part)
1063 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
1066 (elt (elt info-variant-part 10) 1))
1068 (defsubst artist-go-get-fill-fn (info-variant-part)
1070 An INFO-VARIANT-PART is the shifted or unshifted info from a info-part.
1073 (elt (elt info-variant-part 10) 2))
1077 (defsubst artist-fc-get-keyword (info-part)
1079 (elt info-part 0))
1081 (defsubst artist-fc-get-symbol (info-part)
1083 (elt info-part 1))
1085 (defsubst artist-fc-get-fn (info-part)
1087 (elt info-part 2))
1091 (defsubst artist-mn-get-title (info-part)
1093 (elt info-part 0))
1095 (defsubst artist-mn-get-items (info-part)
1097 (elt info-part 1))
1102 (defun artist-get-last-non-nil-op (op-list &optional last-non-nil)
1105 (if op-list
1106 (artist-get-last-non-nil-op (cdr op-list)
1107 (or (car (car op-list)) last-non-nil))
1110 (defun artist-get-first-non-nil-op (op-list)
1112 (or (car (car op-list)) (artist-get-first-non-nil-op (cdr op-list))))
1114 (defun artist-is-in-op-list-p (op op-list)
1116 (and op-list
1117 (or (and (car (car op-list)) (string= op (car (car op-list))))
1118 (artist-is-in-op-list-p op (cdr op-list)))))
1120 (defun artist-make-prev-next-op-alist (op-list
1124 "Build an assoc-list of OP-LIST.
1134 (op (car (car op-list)))
1137 (if (or (and op-list (not op))
1138 (artist-is-in-op-list-p op (cdr op-list)))
1139 (artist-make-prev-next-op-alist (cdr op-list)
1143 (if op-list
1145 (cdr op-list)
1150 (defun artist-select-next-op-in-list ()
1157 (defun artist-select-prev-op-in-list ()
1400 (make-local-variable 'artist-key-poly-point-list)
1411 (setq artist-key-poly-point-list nil)
1457 (setcdr (assq 'artist-mode minor-mode-alist) (list mtext)))
1501 (let* ((info-part (artist-mt-get-info-part element))
1502 (descr (artist-go-get-desc info-part))
1503 (unshifted (artist-go-get-unshifted info-part))
1505 (list descr symbol)))
1508 (let* ((info-part (artist-mt-get-info-part element))
1509 (keyword (artist-fc-get-keyword info-part))
1510 (symbol (artist-fc-get-symbol info-part)))
1511 (list keyword symbol)))
1517 (let* ((info-part (artist-mt-get-info-part element))
1518 (title (artist-mn-get-title info-part))
1519 (items (artist-mn-get-items info-part)))
1540 (let* ((info-part (artist-mt-get-info-part element))
1541 (unshifted (artist-go-get-unshifted info-part))
1542 (shifted (artist-go-get-shifted info-part))
1545 (list (list unshifted-kwd) (list shifted-kwd))))
1547 (let* ((info-part (artist-mt-get-info-part element))
1548 (items (artist-mn-get-items info-part)))
1570 (let* ((info-part (artist-mt-get-info-part element))
1571 (unshifted (artist-go-get-unshifted info-part))
1572 (shifted (artist-go-get-shifted info-part))
1583 (let* ((info-part (artist-mt-get-info-part element))
1584 (keyword (artist-fc-get-keyword info-part))
1585 (symbol (artist-fc-get-symbol info-part)))
1589 (let* ((info-part (artist-mt-get-info-part element))
1590 (items (artist-mn-get-items info-part))
1607 info-variant-part."
1613 info-variant-part."
1619 (let* ((info-part (artist-mt-get-info-part element))
1620 (unshifted (artist-go-get-unshifted info-part))
1621 (shifted (artist-go-get-shifted info-part))
1624 (variant-part (cond
1628 (if variant-part ; if found do:
1629 (throw 'found (funcall retrieve-fn variant-part)))))
1632 (let* ((info-part (artist-mt-get-info-part element))
1633 (items (artist-mn-get-items info-part))
1708 (let* ((info-part (artist-mt-get-info-part element))
1709 (unshift-variant (artist-go-get-unshifted info-part))
1710 (shift-variant (artist-go-get-shifted info-part))
1717 (let* ((info-part (artist-mt-get-info-part element))
1718 (items (artist-mn-get-items info-part))
1733 info-variant-part."
1739 info-variant-part."
1745 (let* ((info-part (artist-mt-get-info-part element))
1746 (fc-symbol (artist-fc-get-symbol info-part)))
1748 (throw 'found (funcall retrieve-fn info-part)))))
1751 (let* ((info-part (artist-mt-get-info-part element))
1752 (items (artist-mn-get-items info-part))
1773 (list 'if fn (cons 'funcall (cons fn args))))
1776 "Remove consecutive duplicates in list L. Comparison is done with `equal'."
1778 ((null (cdr l)) l) ; only one element in list
1783 "Split string STR at occurrences of regexp R, returning a list of strings."
1791 (list str)
1823 Return a list (RETURN-CODE STDOUT STDERR)."
1852 (list tmp-stdout-buffer
1856 (list program-args)
1861 (list tmp-stdout-buffer
1866 (list res
1878 (if (memq tmp-stdout-buffer (buffer-list))
2013 (let ((char-list (append string nil)) ; convert the string to a list
2017 (while char-list
2018 (let ((c (car char-list)))
2023 (setq char-list (cdr char-list)))))
2246 ;; A line is here a list of (x y saved-char new-char)s.
2373 ;; Pretend we are plotting a pixel. Instead we just list it
2375 (defmacro artist-put-pixel (point-list x y)
2377 (list 'setq point-list
2378 (list 'append point-list (list 'list (list 'artist-new-coord x y)))))
2380 ;; Calculate list of points using eight point algorithm
2381 ;; return a list of coords
2384 "Run the eight-point algorithm to get a list of coords from X1,Y1 to X2,Y2."
2385 (let* ((point-list nil)
2401 (artist-put-pixel point-list x y)
2413 (artist-put-pixel point-list x y))
2414 point-list))
2416 ;; artist-save-chars-under-point-list
2418 ;; Returns point-list.
2420 (defun artist-save-chars-under-point-list (point-list)
2428 point-list))
2431 ;; Calculates which char to insert depending on direction of point-list.
2441 ;; artist-calculate-new-chars works on a point-list, returns point-list.
2458 (defun artist-calculate-new-chars (point-list)
2459 "Return a list of coords with line-chars calculated. Input: POINT-LIST."
2460 (if (null (cdr point-list))
2461 (list (artist-coord-add-new-char (car point-list) ?o ))
2462 (let ((last-coord (car point-list)))
2464 (car point-list)
2465 (artist-calculate-new-char (car (cdr point-list))
2466 (car point-list)))
2474 (cdr point-list))))))
2479 ;; artist-modify-new-chars works on a point-list, returns point-list.
2481 (defun artist-modify-new-chars (point-list)
2483 This function returns a point-list."
2490 point-list))
2514 (list endpoint1 endpoint2 shapeinfo))
2536 Output is a line, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
2539 SHAPE-INFO is a list of vectors [X Y SAVED-CHAR NEW-CHAR]."
2555 (artist-save-chars-under-point-list
2578 Output is a straight line, which is a list on the form
2633 Output is a rectangle, which is a list on the form
2637 SHAPE-INFO is a list of four straight lines."
2648 (list line1 line2 line3 line4))))
2688 (list x1 y1 new-x2 new-y2)))
2694 Output is a square, which is a list on the form
2698 SHAPE-INFO is a list of four straight lines."
2714 (list line1 line2 line3 line4))))
2777 This will store all points in `artist-key-poly-point-list' in reversed
2778 order (I assume it is faster to cons to the beginning of the list than
2779 to append to the end of the list, when doing free-hand drawing)."
2787 (let ((x-last (car (car artist-key-poly-point-list)))
2788 (y-last (cdr (car artist-key-poly-point-list))))
2793 ;; Update the point-list
2794 (setq artist-key-poly-point-list
2795 (cons (cons x1 y1) artist-key-poly-point-list))))
2800 (setq artist-key-poly-point-list (list (cons x1 y1))))
2805 Also, the `artist-key-poly-point-list' is reversed."
2807 (setq artist-key-poly-point-list
2808 (artist-uniq artist-key-poly-point-list))
2810 (if (>= (length artist-key-poly-point-list) 2)
2812 ;; Only set arrow-points if the point-list has two or more entries
2813 (let ((xn (car (car artist-key-poly-point-list)))
2814 (yn (cdr (car artist-key-poly-point-list)))
2815 (xn-1 (car (car (cdr artist-key-poly-point-list))))
2816 (yn-1 (cdr (car (cdr artist-key-poly-point-list))))
2818 (setq artist-key-poly-point-list (reverse artist-key-poly-point-list))
2819 (let ((x0 (car (car artist-key-poly-point-list)))
2820 (y0 (cdr (car artist-key-poly-point-list)))
2821 (x1 (car (car (cdr artist-key-poly-point-list))))
2822 (y1 (cdr (car (cdr artist-key-poly-point-list))))
2851 (defun artist-figlet-get-font-list ()
2853 Returns a list of strings."
2855 (ls-cmd artist-figlet-list-fonts-command)
2867 (let* ((avail-fonts (artist-figlet-get-font-list))
2894 (let* ((string-list (artist-string-split text "\n"))
2896 (len (length string-list)))
2899 (artist-replace-string (car string-list) see-thru)
2900 (setq string-list (cdr string-list))
2916 `artist-text-renderer-function', which must return a list of strings,
2928 `artist-text-renderer-function', which must return a list of strings,
2946 Returns a list of points. Each point is on the form (X1 . Y1)."
3018 accepting characters in the list ACCEPT-SET, stopping immediately
3019 when finding characters in the list REJECT-SET. Fuzziness, that is
3021 part of the line, is determined by the variable `artist-vaporize-fuzziness'.
3033 ;; We found a character we are accepting as part of the line.
3043 ;; We found a character we are not accepting as part of
3077 (list (artist-vap-find-endpoint x y 1 0 '(?- ?+) '(?\s))
3083 (list (artist-vap-find-endpoint x y 0 1 '(?| ?+) '(?\s))
3089 (list (artist-vap-find-endpoint x y 1 -1 '(?/ ?X) '(?\s))
3095 (list (artist-vap-find-endpoint x y 1 1 '(?\\ ?X) '(?\s))
3100 "Given a point X1, Y1, return a list of endpoints of lines through X, Y.
3120 "Group elements in list L in pairs."
3122 ((null (cdr l)) l) ; unevent number of elements in list
3123 (t (append (list (list (car l) (car (cdr l))))
3137 (line-len (elt (list (abs (- x2 x1))
3161 `artist-erase-char'. Output is a list of endpoints for lines
3233 "Create a point-list for first quadrant.
3245 (point-list nil))
3246 (artist-put-pixel point-list x y)
3256 (artist-put-pixel point-list x y))
3268 (artist-put-pixel point-list x y))
3269 point-list))
3307 (defun artist-ellipse-point-list-add-center (x-center y-center point-list)
3313 point-list))
3331 (append (list (car fill-info))
3335 (defun artist-ellipse-compute-fill-info (point-list)
3356 (list (artist-new-fill-item left-edge y width)))))
3358 point-list)
3374 (defun artist-ellipse-mirror-quadrant (point-list)
3386 (let ((last-coord (car (last point-list))))
3390 ;; Create the other part of the right half by mirroring the first part
3393 point-list
3403 (cdr (reverse point-list)))))
3426 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
3431 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
3432 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE].
3435 (let* ((point-list (artist-ellipse-generate-quadrant x-radius y-radius))
3436 (fill-info (artist-ellipse-compute-fill-info point-list))
3439 (setq point-list (artist-calculate-new-chars point-list))
3440 (setq point-list (artist-ellipse-mirror-quadrant point-list))
3441 (setq point-list (artist-ellipse-point-list-add-center x1 y1 point-list))
3445 (setq point-list
3455 (artist-save-chars-under-point-list point-list))))
3457 (aset shape-info 0 point-list)
3466 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
3471 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
3472 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE].
3475 (let ((point-list nil)
3480 (point-list nil)
3491 (setq point-list (append point-list (list new-coord)))
3493 (aset shape-info 0 point-list)
3502 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
3507 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
3508 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
3537 (let ((point-list (aref (artist-2point-get-shapeinfo ellipse) 0)))
3544 point-list))))
3550 Output is an ellipse, which is a list (END-POINT-1 END-POINT-2 SHAPE-INFO).
3555 POINT-LIST is a list of vectors on the form [X Y SAVED-CHAR NEW-CHAR].
3556 FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
3634 Output is a copy buffer, a list of strings, representing the
3846 (defun artist-set-arrow-points-for-poly (point-list)
3848 (let* ((ep1 (elt point-list 0))
3849 (ep2 (elt point-list 1))
3855 (epn (car (last point-list)))
3856 (epn-1 (car (last point-list 2)))
4159 ;; Set point-list to contain start point
4160 (setq artist-key-poly-point-list (list (artist-make-endpoint x y)))
4201 ;; Add the endpoint to the list of poly-points
4202 (setq artist-key-poly-point-list
4203 (append artist-key-poly-point-list
4204 (list (artist-make-endpoint x2 y2))))
4231 (artist-funcall prep-fill-fn artist-key-poly-point-list)
4236 artist-key-poly-point-list))
4240 (artist-funcall arrow-set-fn artist-key-poly-point-list)
4243 (artist-funcall exit-fn artist-key-poly-point-list)
4469 (defun artist-charlist-to-string (char-list)
4470 "Convert a list of characters, CHAR-LIST, to a string."
4472 (while (not (null char-list))
4473 (setq result (concat result (char-to-string (car char-list))))
4474 (setq char-list (cdr char-list)))
4478 "Convert a string, STR, to list of characters."
4490 (char-list (artist-string-to-charlist str))
4493 (first-char-as-str (char-to-string (car char-list)))
4504 (setq ok (not (null (member first-c char-list))))
4510 (list char-list initial)))
4519 (interactive (list (completing-read "Select operation: "
4852 (list last-input-event
4968 ;; progn is "implicit" since this is the else-part
5029 (point-list nil)
5059 (setq point-list (cons (artist-make-endpoint x1-last y1-last)
5060 point-list))
5192 ;; Reverse point-list (last points are cond'ed first)
5193 (setq point-list (reverse point-list))
5195 (artist-funcall prep-fill-fn point-list)
5199 (artist-funcall fill-fn point-list))
5202 (if (and point-list (artist-funcall arrow-pred))
5203 (artist-funcall arrow-set-fn point-list)
5206 (artist-funcall exit-fn point-list)
5300 ;; progn is "implicit" since this is the else-part
5359 artist-key-poly-point-list
5445 ;; arguments. It must return a list with three elements:
5457 ;; The undraw-function must take one argument: the list created
5461 ;; function that takes 5 arguments: the list created by your
5487 ;; function that takes 1 argument: a list of points where each
5493 ;; prep-fill-fn: point-list
5494 ;; arrow-set-fn: point-list
5495 ;; exit-fn: point-list