Current File : //usr/local/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@\303N\203% \304N\204% \307\304\303N#\210A\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`\262c\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\343 G\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\"\203e G\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\266T\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\210A\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\203 S\233\303\241\210\210A\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\262A\262\211A\262\202 \303\"\262\300\262\300\262\203F @@B\262@AB\262A\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\210y\211\302U\203 i\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`\262c\210\304G!\210\305`\306$\207\307Z\303\245G\303\245Z\\GW\205f \302\\\"\210Hc\210\304\310!\210\305`S`\306$\210T\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\203F GGZ\233\211@T\240\266\202R B\262\312B\262\266A\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 "AAV\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 "AAV\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: GGZ\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 "AAV\207" [] 4 "\n\n(fn A B)"]] 11 (#$ . 25922) nil])
(provide 'chart)
Mini Shell