Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/chart.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305#\210\306\211\203,\211@\303
N\203%\304
N\204%\307\304\303N#\210
A\266\202\202\210\310\303\304\311#\207" [require eieio defvaralias chart-map chart-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 7)
#@28 Keymap used in chart mode.
(defvar chart-mode-map (make-sparse-keymap) (#$ . 691))
#@63 Local variable containing the locally displayed chart object.
(defvar chart-local-object nil (#$ . 780))
(make-variable-buffer-local 'chart-local-object)
#@87 Colors to use when generating `chart-face-list'.
Colors will be the background color.
(defvar chart-face-color-list '("red" "green" "blue" "cyan" "yellow" "purple") (#$ . 940))
#@103 If pixmaps are allowed, display these background pixmaps.
Useful if new Emacs is used on B&W display.
(defvar chart-face-pixmap-list (byte-code "\300\301!\205\f\301 \205\f\302\207" [fboundp display-graphic-p ("dimple1" "scales" "dot" "cross_weave" "boxes" "dimple3")] 2) (#$ . 1124))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable chart-face-use-pixmaps funcall function #[0 "\300\207" [nil] 1] "Non-nil to use fancy pixmaps in the background of chart face colors." :group eieio :type boolean] 8)
#@139 Faces used to colorize charts.
List is limited currently, which is ok since you really can't display
too much in text characters anyways.
(defvar chart-face-list (byte-code "\303 \205s	\304\211\203p\305\306\307@\310@R!!\262
\311
\3121*\313 \314V0\202.\210\2021\2036@\2027\315\"\210\316
\317\"\210\n\203`\203`\320\321!\203`\3221Y\321
@\"0\202_\210\323\324@\"\210\211B\262A\262A\262\202	
\266\204\207" [chart-face-color-list chart-face-pixmap-list chart-face-use-pixmaps display-color-p nil make-face intern "chart-" "-" set-face-background (error) x-display-color-cells 4 "white" set-face-foreground "black" fboundp set-face-background-pixmap (error) message "Cannot set background pixmap %s"] 10) (#$ . 1670))
(defvar chart-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [chart-mode-hook variable-documentation put "Hook run after entering Chart mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp chart-mode-map definition-name chart-mode] 4)
(defvar chart-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [chart-mode-abbrev-table chart-mode-map variable-documentation put purecopy "Keymap for `chart-mode'." boundp chart-mode-syntax-table definition-name chart-mode (lambda (#1=#:def-tmp-var) (defvar chart-mode-syntax-table #1#)) make-syntax-table "Syntax table for `chart-mode'." (lambda (#1#) (defvar chart-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `chart-mode'." derived-mode-parent special-mode] 5)
#@239 Define a mode in Emacs for displaying a chart.

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `chart-mode-hook', as the final or penultimate step
during initialization.

\{chart-mode-map}
(defalias 'chart-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
 =\204R\326
\325 C#\210\327!\210\330\f!\210
 \331 \210\306\332!\210\333\334\335!\210)\336\337!\207" [delay-mode-hooks major-mode mode-name chart-mode-map chart-mode-syntax-table chart-mode-abbrev-table make-local-variable t special-mode chart-mode "Chart" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo font-lock-global-modes nil font-lock-mode -1 run-mode-hooks chart-mode-hook local-abbrev-table] 5 (#$ . 3542) nil])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-p eieio-make-class-predicate chart chart--eieio-childp eieio-make-child-predicate chart-child-p make-obsolete "use (cl-typep ... \\='chart) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((title :initarg :title :initform "Emacs Chart") (title-face :initarg :title-face :initform 'bold-italic) (x-axis :initarg :x-axis :initform nil) (x-margin :initarg :x-margin :initform 5) (x-width :initarg :x-width) (y-axis :initarg :y-axis :initform nil) (y-margin :initarg :y-margin :initform 5) (y-width :initarg :y-width) (key-label :initarg :key-label :initform "Key") (sequences :initarg :sequences :initform nil)) (:documentation "Superclass for all charts to be displayed in an Emacs buffer.")] 6)
#@62 Create a new object of class type `chart'.

(fn &rest SLOTS)
(defalias 'chart #[128 "\300\301\302#\207" [apply make-instance chart] 5 (#$ . 5491)])
(byte-code "\300\301\302\303#\300\207" [function-put chart compiler-macro chart--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5743)])
#@107 Create a new buffer NAME in which the chart OBJ is displayed.
Returns the newly created buffer.

(fn OBJ)
(defalias 'chart-new-buffer #[257 "r\301\302\303\304\305\"\"!q\210\306 \210\211p)\207" [chart-local-object get-buffer-create format "*%s*" eieio-oref title chart-mode] 7 (#$ . 5968)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\304\323\324$\207" [cl-generic-define-method initialize-instance (:after) ((obj chart) &rest _fields) nil #[385 "\300\301\302 \303Z#\210\300\304\305 \306Z#\207" [eieio-oset x-width window-width 10 y-width window-height 12] 7 "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct.\n\n(fn OBJ &rest FIELDS)"] defalias chart-axis-p eieio-make-class-predicate chart-axis chart-axis--eieio-childp eieio-make-child-predicate chart-axis-child-p make-obsolete "use (cl-typep ... \\='chart-axis) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((name :initarg :name :initform "Generic Axis") (loweredge :initarg :loweredge :initform t) (name-face :initarg :name-face :initform 'bold) (labels-face :initarg :labels-face :initform 'italic) (chart :initarg :chart :initform nil)) (:documentation "Superclass used for display of an axis.")] 6)
#@67 Create a new object of class type `chart-axis'.

(fn &rest SLOTS)
(defalias 'chart-axis #[128 "\300\301\302#\207" [apply make-instance chart-axis] 5 (#$ . 7320)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis compiler-macro chart-axis--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 7597)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-axis-range-p eieio-make-class-predicate chart-axis-range chart-axis-range--eieio-childp eieio-make-child-predicate chart-axis-range-child-p make-obsolete "use (cl-typep ... \\='chart-axis-range) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart-axis) ((bounds :initarg :bounds :initform '(0.0 . 50.0))) (:documentation "Class used to display an axis defined by a range of values.")] 6)
#@73 Create a new object of class type `chart-axis-range'.

(fn &rest SLOTS)
(defalias 'chart-axis-range #[128 "\300\301\302#\207" [apply make-instance chart-axis-range] 5 (#$ . 8406)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis-range compiler-macro chart-axis-range--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis-range--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 8713)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-axis-names-p eieio-make-class-predicate chart-axis-names chart-axis-names--eieio-childp eieio-make-child-predicate chart-axis-names-child-p make-obsolete "use (cl-typep ... \\='chart-axis-names) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart-axis) ((items :initarg :items :initform nil)) (:documentation "Class used to display an axis which represents different named items.")] 6)
#@73 Create a new object of class type `chart-axis-names'.

(fn &rest SLOTS)
(defalias 'chart-axis-names #[128 "\300\301\302#\207" [apply make-instance chart-axis-names] 5 (#$ . 9526)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-axis-names compiler-macro chart-axis-names--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart-axis-names--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 9833)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-sequece-p eieio-make-class-predicate chart-sequece chart-sequece--eieio-childp eieio-make-child-predicate chart-sequece-child-p make-obsolete "use (cl-typep ... \\='chart-sequece) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((data :initarg :data :initform nil) (name :initarg :name :initform "Data")) (:documentation "Class used for all data in different charts.")] 6)
#@70 Create a new object of class type `chart-sequece'.

(fn &rest SLOTS)
(defalias 'chart-sequece #[128 "\300\301\302#\207" [apply make-instance chart-sequece] 5 (#$ . 10634)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-sequece compiler-macro chart-sequece--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart-sequece--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 10927)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias chart-bar-p eieio-make-class-predicate chart-bar chart-bar--eieio-childp eieio-make-child-predicate chart-bar-child-p make-obsolete "use (cl-typep ... \\='chart-bar) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (chart) ((direction :initarg :direction :initform vertical)) (:documentation "Subclass for bar charts (vertical or horizontal).")] 6)
#@66 Create a new object of class type `chart-bar'.

(fn &rest SLOTS)
(defalias 'chart-bar #[128 "\300\301\302#\207" [apply make-instance chart-bar] 5 (#$ . 11691)])
(byte-code "\300\301\302\303#\300\207" [function-put chart-bar compiler-macro chart-bar--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'chart-bar--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 11964)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\300\316\302\327\330\331%\210\300\332\302\333\302\334%\210\300\316\302\335\330\336%\210\300\337\302\340\302\341%\210\300\342\302\343\302\344%\210\300\345\302\346\302\347%\210\300\350\302\351\302\352%\207" [cl-generic-define-method chart-draw nil ((c chart) &optional buff) #[513 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\212
\203
q\210\314 \210\315\316\317 !\320\"c\210\321!\210\322!\210\323\324!\210\325\306!\210\326!\210\323\327!-\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 erase-buffer make-string window-height selected-window 10 chart-draw-axis chart-draw-title message "Rendering chart..." sit-for chart-draw-data "Rendering chart...done"] 10 "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer.\n\n(fn C &optional BUFF)"] chart-draw-title ((c chart)) #[257 "\300\301\302\"\303\304\211\305 \301\306\"&\207" [chart-display-label eieio-oref title horizontal 0 window-width title-face] 10 "Draw a title upon the chart.\nArgument C is the chart object.\n\n(fn C)"] chart-size-in-dir ((c chart) dir) #[514 "\211\300=\203\301\302\"\207\301\303\"\207" [vertical eieio-oref y-width x-width] 5 "Return the physical size of chart C in direction DIR.\n\n(fn C DIR)"] chart-draw-axis ((c chart)) #[257 "\300
\301\"\300\302\"\300\303\"\300\304\"\305\300\306\"\307\300\211\n\306\"\310\"?\205&\211\\&\210\305\300\311\"\312\300\211\n\311\"\310\"?\205D\211\\&\207" [eieio-oref y-margin x-margin y-width x-width chart-axis-draw y-axis vertical loweredge x-axis horizontal] 13 "Draw axis into the current buffer defined by chart C.\n\n(fn C)"] chart-axis-draw ((a chart-axis) &optional dir margin zone start end) #[1537 "\300\203\202\f\301\\$\210\302\303\304\"\203'\305\306#\2023\307=\2032\310\2023\301\303\f\311\"&\207" [chart-draw-line 0 chart-display-label eieio-oref name + 3 horizontal 1 name-face] 15 "Draw some axis for A in direction DIR with MARGIN in boundary.\nZONE is a zone specification.\nSTART and END represent the boundary.\n\n(fn A &optional DIR MARGIN ZONE START END)"] chart-translate-xpos ((c chart) x) #[514 "\300\211\301\"\302\"\300\303\"\304\305@Z!\305\300\306\"!\305A@Z!\245_!\\\207" [eieio-oref x-axis bounds x-margin round float x-width] 10 "Translate in chart C the coordinate X into a screen column.\n\n(fn C X)"] chart-translate-ypos ((c chart) y) #[514 "\300\211\301\"\302\"\300\303\"\300\304\"\305\306@Z!\306\300\304\"!\306A@Z!\245_!Z\\\207" [eieio-oref y-axis bounds x-margin y-width round float] 11 "Translate in chart C the coordinate Y into a screen row.\n\n(fn C Y)"] ((a chart-axis-range) &optional dir margin zone _start _end) t #[1794 " \210\300\301\"@\300\301\"A\203\202\302\303Z\211\304\300
\305\"\f\"\306\245\245\303
\302U\2034\307\262X\205\330\310V\203M\311\312\313\245\"\202c\314V\203^\311\315\316\245\"\202c\311\317\"\262\320=\203\232\n\\\300\321\"\203~G[\202\307\\\211\307W\203\211\307\262
\322
\323\300\305\"\"\"\266\202\271\322\324\300\305\"	\"\325
\300\321\"\203\265\326\202\266\307#\"\210`\262
c\210\327G!\210\330
`\331\300\332\"$\210\\\262\2024\207" [eieio-oref bounds 0 nil chart-size-in-dir chart 4 1 999999 format "%dM" 1000000 999 "%dK" 1000 "%d" vertical loweredge chart-goto-xy chart-translate-ypos chart-translate-xpos + -1 chart-zap-chars put-text-property face labels-face] 22 "Draw axis information based upon a range to be spread along the edge.\nA is the chart to draw.  DIR is the direction.\nMARGIN, ZONE, START, and END specify restrictions in chart space.\n\n(fn CL--CNM A &optional DIR MARGIN ZONE START END)"] chart-translate-namezone ((c chart) n) #[514 "\300\301\"\211\302=\203\300\303\"\202\300\304\"
\302=\203\"\300\305\"\202&\300\306\"\300\302=\2035\300\307\"\202:\300\310\"\311\"G\312\313!\\\313!\245\314\313	!_!\\\315\316\314\317\313
!\\_!#B\207" [eieio-oref direction vertical x-width y-width y-margin x-margin x-axis y-axis items 1.0 float round + -1 1.0] 16 "Return a dot-pair representing a positional range for a name.\nThe name in chart C of the Nth name resides.\nAutomatically compensates for direction.\n\n(fn C N)"] ((a chart-axis-names) &optional dir margin zone _start _end) #[1794 " \210\300\301\302\"\203\202\300\303\211\211\211\205\343G\304\246\305U\262\306\301\307\"\"\262\310=\203A@A\\\304\245\262\202T@A@Z\304\245\\@G\304\245Z\262\310=\203\227\n\\\301\311\"\203o@G[\202s@G\\\211\305W\203}\305\262
@G\fSV\203\216\211\f\\\262
\312
\"\266\202\276\312\f\\\301\311\"\203\262\203\256\313\202\273\314\202\273\203\272\304\202\273\305\\\"\210`\262
@c\210\315@G!\210\316
`\317\301\320\"$\210T\262A\262\202\207" [0 eieio-oref items nil 2 1 chart-translate-namezone chart vertical loweredge chart-goto-xy -2 -1 chart-zap-chars put-text-property face labels-face] 21 "Draw axis information based upon A range to be spread along the edge.\nOptional argument DIR is the direction of the chart.\nOptional arguments MARGIN, ZONE, START and END specify boundaries of the drawing.\n\n(fn CL--CNM A &optional DIR MARGIN ZONE START END)"] chart-draw-data ((c chart-bar)) #[257 "\301
\302\"\301\303\"\211\304=\203\305\202\304\205\355\301@\306\"@;\204\346\307\301@\306\"\211\203\344\310\"\304=\203?\311@\"\202E\312@\"\304=\203S\311\307\"\202X\312\307\"\203eG\2468\202f\313W\203\201\314@$\210\314A$\210\202\227\314@T$\210\314AT$\210@AU\204\271\314@TA$\210\314@AT$\210W\203\314\315B$\210\202\327\315B$\210\266
T\262\211A\262
\202'\266A\262\202\207" [chart-face-list eieio-oref sequences direction vertical horizontal data 0 chart-translate-namezone chart-translate-ypos chart-translate-xpos default chart-draw-line chart-deface-rectangle] 15 "Display the data available in a bar chart C.\n\n(fn C)"] chart-add-sequence ((c chart) &optional seq axis-label) #[769 "\211\203\217\300\"\300\301\"@;\2037\300\301\"
\204-\302\303\304\300\305\"\306\307&\262\2023\310\311#\210\210\202|\312\313B\300\301\"\204P\302\314\304\300\305\"\307\n%\262\211\211\203t\211@\211@W\203b
\240\210\211AV\203m
\241\210
A\266\202\202Q\210\310\315#\266
\316=\203\210\310
\317\320#\210\310#\266\310\321\322\300\321\"C\"#\207" [eieio-oref data make-instance chart-axis-names :name name :items :chart eieio-oset items 0 1 chart-axis-range bounds x-axis loweredge nil sequences append] 13 "Add to chart object C the sequence object SEQ.\nIf AXIS-LABEL, then the axis stored in C is updated with the bounds of SEQ,\nor is created with the bounds of SEQ.\n\n(fn C &optional SEQ AXIS-LABEL)"] chart-trim ((c chart) max) #[514 "\300\301\"\211\211\205%\211@\300
\302\"\211GV\203S
\233\303\241\210\210
A\266\202\202\262
\207" [eieio-oref sequences data nil] 8 "Trim all sequences in chart C to be at most MAX elements long.\n\n(fn C MAX)"] chart-sort ((c chart) pred) #[514 "\300\301\"\211@
A@\302\300\303\"@;\203#\304#\210\300\303\"\262
\202D\300\303\"@;\203<\304#\210\300\303\"\262
\202D\305\306\307!\"\210\300\310\"\311=\203Z\312\300\313\"\314#\202c\312\300\315\"\314#\207" [eieio-oref sequences nil data chart-sort-matchlist error "Sorting of chart %s not supported" eieio-object-name direction horizontal eieio-oset y-axis items x-axis] 10 "Sort the data in chart C using predicate PRED.\nSee `chart-sort-matchlist' for more details.\n\n(fn C PRED)"]] 6)
#@231 Sort NAMELST and NUMLST (both sequence objects) based on predicate PRED.
PRED should be the equivalent of `<', except it must expect two
cons cells of the form (NAME . NUM).  See `sort' for more details.

(fn NAMELST NUMLST PRED)
(defalias 'chart-sort-matchlist #[771 "\300\301\302\"\301\302\"
\203!
@
@BB\262
A\262\211A\262
\202	\303\"\262\300\262\300\262
\203F@@B\262@A
B\262
A\262\202-\304\302\305!#\210\304\302\305!#\207" [nil eieio-oref data sort eieio-oset reverse] 11 (#$ . 20130)])
#@84 Move cursor to position X Y in buffer, and add spaces and CRs if needed.

(fn X Y)
(defalias 'chart-goto-xy #[514 "\301eb\210
y
\211\302U\203i\302U\204\303\304!\210m\203 \303
!\210\302W\203)\302\262\302W\2032\302\262\305!U\206E`j\210\306
`\307#\262
)\207" [indent-tabs-mode nil 0 newline 1 move-to-column remove-text-properties (face nil)] 9 (#$ . 20651)])
#@50 Zap up to N chars without deleting EOLs.

(fn N)
(defalias 'chart-zap-chars #[257 "m?\205\211\300 `ZW\203\301
!\207`\300 |\207" [point-at-eol delete-char] 4 (#$ . 21030)])
#@190 Display LABEL in direction DIR in column/row ZONE between START and END.
Optional argument FACE is the property we wish to place on this text.

(fn LABEL DIR ZONE START END &optional FACE)
(defalias 'chart-display-label #[1541 "\300=\203.\301\302Z\303\245	G\303\245Z\\\"\210`\262
c\210\304G!\210\305
`\306$\207\307Z\303\245G\303\245Z\\
GW\205f\302\\\"\210Hc\210\304\310!\210\305`S`\306$\210
T\262\202<\207" [horizontal nil chart-goto-xy 2 chart-zap-chars put-text-property face 0 1] 13 (#$ . 21213)])
#@132 Draw a line using line-drawing characters in direction DIR.
Use column or row ZONE between START and END.

(fn DIR ZONE START END)
(defalias 'chart-draw-line #[1028 "\300\301Z\302=\203\303\202\304\"%\207" [chart-display-label make-string vertical 124 45] 10 (#$ . 21754)])
#@141 Colorize a rectangle in direction DIR across range R1 by range R2.
R1 and R2 are dotted pairs.  Colorize it with FACE.

(fn DIR R1 R2 FACE)
(defalias 'chart-deface-rectangle #[1028 "\300=\203\n\202
\300=\203\202\211@\211AX\205<\301@\"\210\302``A@ZT\\\303$\210\211T\262
\202\207" [vertical chart-goto-xy put-text-property face] 12 (#$ . 22046)])
#@399 Wash over the complex EIEIO stuff and create a nice bar chart.
Create it going in direction DIR [`horizontal' `vertical'] with TITLE
using a name sequence NAMELST labeled NAMETITLE with values NUMLST
labeled NUMTITLE.
Optional arguments:
Set the chart's max element display to MAX, and sort lists with
SORT-PRED if desired.

(fn DIR TITLE NAMELST NAMETITLE NUMLST NUMTITLE &optional MAX SORT-PRED)
(defalias 'chart-bar-quickie #[2054 "\300\301\302	\303\304\305&\306=\307\300\310\311\f\312
%\203#\313\202$\314#\210\307\300\310\311\n\312%\2039\314\202:\313#\210\203E\315\"\210\250\203O\316\"\210\317\320!!\210\321!\207" [make-instance chart-bar :title :key-label "8-m" :direction vertical chart-add-sequence chart-sequece :data :name x-axis y-axis chart-sort chart-trim switch-to-buffer chart-new-buffer chart-draw] 18 (#$ . 22421)])
#@37 Test out various charting features.
(defalias 'chart-test-it-all #[0 "\300\301\302\303\304\305\306&\210\307\310!?\205\311\312!\207" [chart-bar-quickie vertical "Test Bar Chart" ("U1" "ME2" "C3" "B4" "QT" "EZ") "Items" (5 -10 23 20 30 -3) "Values" called-interactively-p any kill-buffer "*Test Bar Chart*"] 7 (#$ . 23288) nil])
#@83 Draw a chart displaying the number of different file extensions in DIR.

(fn DIR)
(defalias 'chart-file-count #[257 "\300\301!\210\302
\303\211\304$\305C\306C\211\203[\211@\307
!\310\311	\"!\203&\305\202'\211\211\235
\203R\211\203FG
GZ\233\211
@T\240\266\202R
B\262\312B\262\266
A\266\202\202\210\313\314\315\316\317\320\321&\207" [message "Collecting statistics..." directory-files nil t "<dir>" 0 file-name-extension file-accessible-directory-p expand-file-name 1 chart-bar-quickie vertical "Files Extension Distribution" "File Extensions" "# of occurrences" 10 #[514 "
A
AV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 23624) "DDirectory: "])
#@52 Display a top usage chart for directory D.

(fn D)
(defalias 'chart-space-usage #[257 "\301\302!\210\303\211\304\305!\211q\210\306 \210\307\310\261\210\301\311\"\210\312ed\313p\303&\210eb\210\301\314!\210\315\316\303\313#\203P\317\224\317\225{\320\224\320\225{
B\262\321
!\322_B\262\266\202+\204X\323\324!\210\325\326\327\330\"\331\332\333\334&\207" [shell-file-name message "Collecting statistics..." nil get-buffer-create " *du-tmp*" erase-buffer "cd " ";du -sk * \n" "Running `cd %s;du -sk *'..." call-process-region t "Scanning output ..." re-search-forward "^\\([0-9]+\\)[ 	]+\\([^ \n]+\\)$" 2 1 string-to-number 1000 error "No files found!" chart-bar-quickie vertical format "Largest files in %s" "File Name" "File Size" 10 #[514 "
A
AV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 24295) "DDirectory: "])
#@50 Chart the current storage requirements of Emacs.
(defalias 'chart-emacs-storage #[0 "\300 \301\302\303\304\305\"\306\304\307\"\310&\207" [garbage-collect chart-bar-quickie vertical "Emacs Runtime Storage Usage" mapcar #[257 "\300
@!\207" [symbol-name] 3 "\n\n(fn X)"] "Storage Items" #[257 "\211A@\3008_\207" [2] 4 "\n\n(fn X)"] "Bytes"] 9 (#$ . 25124) nil])
#@48 Chart out the size of various important lists.
(defalias 'chart-emacs-lists #[0 "\300\301 G\302 G\303 G\304 GF\305\306!\203#\307\310\"\262\307
\306 GC\"\262
\311\312\313\314\315&\207" [("buffers" "frames" "processes" "faces") buffer-list frame-list process-list face-list fboundp x-display-list append ("x-displays") chart-bar-quickie vertical "Emacs List Size Chart" "Various Lists" "Objects"] 9 (#$ . 25494) nil])
#@65 If we are in an rmail summary buffer, then chart out the froms.
(defalias 'chart-rmail-from #[0 "\301=\204\n\302\303!\210\304\211\212eb\210\305\306\304\307#\203I\310\224\310\225{\211\235\311\312\"\210\211\203:G
GZ\233\211
@T\240\266\202D
B\262\310B\262\266\202)\313\314\315\316\317\320\321&\207" [major-mode rmail-summary-mode error "You must invoke chart-rmail-from in an rmail summary buffer" nil re-search-forward "-[A-Z][a-z][a-z] +\\(\\w+\\)@\\w+" t 1 message "Scanned username %s" chart-bar-quickie vertical "Username Occurrence in RMAIL box" "User Names" "# of occurrences" 10 #[514 "
A
AV\207" [] 4 "\n\n(fn A B)"]] 11 (#$ . 25922) nil])
(provide 'chart)