Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
advice.elc
58.25
KB
-rw-r--r--
2023-06-07 04:04
authors.elc
30.49
KB
-rw-r--r--
2023-06-07 04:04
autoload.elc
21.31
KB
-rw-r--r--
2023-06-07 03:59
avl-tree.elc
27.02
KB
-rw-r--r--
2023-06-07 04:04
backquote.elc
4.4
KB
-rw-r--r--
2023-06-07 04:18
benchmark.elc
3.18
KB
-rw-r--r--
2023-06-07 04:04
bindat.elc
10.69
KB
-rw-r--r--
2023-06-07 04:04
byte-opt.elc
35.7
KB
-rw-r--r--
2023-06-07 03:59
byte-run.elc
12.35
KB
-rw-r--r--
2023-06-07 04:18
bytecomp.elc
136.26
KB
-rw-r--r--
2023-06-07 03:59
cconv.elc
15.61
KB
-rw-r--r--
2023-06-07 03:59
chart.elc
22.14
KB
-rw-r--r--
2023-06-07 04:04
check-declare.elc
8.87
KB
-rw-r--r--
2023-06-07 04:04
checkdoc.elc
67.42
KB
-rw-r--r--
2023-06-07 04:04
cl-extra.elc
20.01
KB
-rw-r--r--
2023-06-07 04:04
cl-indent.elc
16.34
KB
-rw-r--r--
2023-06-07 04:04
cl-lib.elc
34.86
KB
-rw-r--r--
2023-06-07 04:04
cl-loaddefs.el
39.75
KB
-rw-r--r--
2013-01-01 15:37
cl-macs.elc
71.79
KB
-rw-r--r--
2023-06-07 04:04
cl-seq.elc
40.03
KB
-rw-r--r--
2023-06-07 04:04
cl.elc
16
KB
-rw-r--r--
2023-06-07 04:04
copyright.elc
10.29
KB
-rw-r--r--
2023-06-07 04:04
crm.elc
7.76
KB
-rw-r--r--
2023-06-07 04:04
debug.elc
26.92
KB
-rw-r--r--
2023-06-07 04:04
derived.elc
11.27
KB
-rw-r--r--
2023-06-07 04:04
disass.elc
5.48
KB
-rw-r--r--
2023-06-07 04:04
easy-mmode.elc
16.81
KB
-rw-r--r--
2023-06-07 04:04
easymenu.elc
20.03
KB
-rw-r--r--
2023-06-07 04:04
edebug.elc
101.25
KB
-rw-r--r--
2023-06-07 04:04
eieio-base.elc
13.18
KB
-rw-r--r--
2023-06-07 04:04
eieio-custom.elc
14.55
KB
-rw-r--r--
2023-06-07 04:04
eieio-datadebug.elc
3.9
KB
-rw-r--r--
2023-06-07 04:04
eieio-opt.elc
20.79
KB
-rw-r--r--
2023-06-07 04:04
eieio-speedbar.elc
12.55
KB
-rw-r--r--
2023-06-07 04:04
eieio.elc
89.24
KB
-rw-r--r--
2023-06-07 04:04
eldoc.elc
15.33
KB
-rw-r--r--
2023-06-07 04:04
elint.elc
31.22
KB
-rw-r--r--
2023-06-07 04:04
elp.elc
12.43
KB
-rw-r--r--
2023-06-07 04:04
ert-x.elc
9.78
KB
-rw-r--r--
2023-06-07 04:04
ert.elc
169.71
KB
-rw-r--r--
2023-06-07 04:04
ewoc.elc
26.49
KB
-rw-r--r--
2023-06-07 04:04
find-func.elc
17.4
KB
-rw-r--r--
2023-06-07 04:04
find-gc.elc
3.54
KB
-rw-r--r--
2023-06-07 04:04
float-sup.elc
1.36
KB
-rw-r--r--
2023-06-07 04:19
generic.elc
6.68
KB
-rw-r--r--
2023-06-07 04:04
gulp.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
gv.elc
17.81
KB
-rw-r--r--
2023-06-07 04:04
helper.elc
4.03
KB
-rw-r--r--
2023-06-07 04:04
lisp-mnt.elc
22.41
KB
-rw-r--r--
2023-06-07 04:04
lisp-mode.elc
44.27
KB
-rw-r--r--
2023-06-07 04:19
lisp.elc
18.56
KB
-rw-r--r--
2023-06-07 04:19
macroexp.elc
12.84
KB
-rw-r--r--
2023-06-07 04:18
map-ynp.elc
6.42
KB
-rw-r--r--
2023-06-07 04:18
package-x.elc
8.32
KB
-rw-r--r--
2023-06-07 04:04
package.elc
54.49
KB
-rw-r--r--
2023-06-07 04:04
pcase.elc
15.98
KB
-rw-r--r--
2023-06-07 04:04
pp.elc
5.56
KB
-rw-r--r--
2023-06-07 04:04
re-builder.elc
22.81
KB
-rw-r--r--
2023-06-07 04:04
regexp-opt.elc
4.87
KB
-rw-r--r--
2023-06-07 04:19
regi.elc
6.09
KB
-rw-r--r--
2023-06-07 04:04
ring.elc
6.58
KB
-rw-r--r--
2023-06-07 04:04
rx.elc
27.41
KB
-rw-r--r--
2023-06-07 04:04
shadow.elc
9.75
KB
-rw-r--r--
2023-06-07 04:04
smie.elc
35.4
KB
-rw-r--r--
2023-06-07 04:04
syntax.elc
13.69
KB
-rw-r--r--
2023-06-07 04:19
tabulated-list.elc
19.12
KB
-rw-r--r--
2023-06-07 04:19
tcover-ses.elc
15
KB
-rw-r--r--
2023-06-07 04:04
tcover-unsafep.elc
4.02
KB
-rw-r--r--
2023-06-07 04:04
testcover.elc
13.4
KB
-rw-r--r--
2023-06-07 04:04
timer.elc
22.94
KB
-rw-r--r--
2023-06-07 04:19
tq.elc
3.89
KB
-rw-r--r--
2023-06-07 04:04
trace.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
unsafep.elc
4.92
KB
-rw-r--r--
2023-06-07 04:04
warnings.elc
9.53
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:38 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/chart.el ;;; in Emacs version 24.3.1 ;;; 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) (#$ . 838)) #@63 Local variable containing the locally displayed chart object. (defvar chart-local-object nil (#$ . 927)) (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") (#$ . 1087)) #@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) (#$ . 1272)) (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 "\n\n(fn)"] "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 "\304\305!\203 \305 \202\f \205\226 \nC\306\211C\203\223 \211\307\310\311@\312@@R!!\240\210\313@\314\315\316D\317\315\320\314EDC\217\203A @\202B \321\"\210\322@\323\"\210 \203\200 @\203\200 \304\324!\203\200 \325\315\326\327\330\331\332 \"\333\"\334\335%D\317\315\326\336\337\331\332 !\340\"\341\342%\325EDC\217\210\211@B\262A\262\211@A\240\210\202 \266\204\207" [window-system chart-face-color-list chart-face-pixmap-list chart-face-use-pixmaps fboundp display-color-p nil make-face intern "chart-" "-" set-face-background #1=#:err funcall #[0 "\300 \301V\207" [x-display-color-cells 4] 2 "\n\n(fn)"] error #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"] "white" set-face-foreground "black" set-face-background-pixmap #2=#:err make-byte-code 0 "\302\301@\300@@\"\207" vconcat vector [set-face-background-pixmap] 3 "\n\n(fn)" 257 "\301\302\300@@\"\207" [message "Cannot set background pixmap %s"] 4 "\n\n(fn IGNORED)"] 14) (#$ . 1829)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [chart-mode-hook variable-documentation put purecopy "Hook run when 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] 5) (defvar chart-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [chart-mode-map variable-documentation put purecopy "Keymap for `chart-mode'." boundp chart-mode-syntax-table definition-name chart-mode] 5) (defvar chart-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [chart-mode-syntax-table variable-documentation put purecopy "Syntax table for `chart-mode'." chart-mode-abbrev-table definition-name chart-mode] 5) (defvar chart-mode-abbrev-table (progn (define-abbrev-table 'chart-mode-abbrev-table nil) chart-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [chart-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `chart-mode'." chart-mode derived-mode-parent nil] 5) #@158 Define a mode in Emacs for displaying a chart. This mode runs the hook `chart-mode-hook', as the final step during initialization. \{chart-mode-map} (fn) (defalias 'chart-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \210\306\316!\210\317\320\321!\210)\322\323!\207" [delay-mode-hooks major-mode mode-name chart-mode-map chart-mode-syntax-table chart-mode-abbrev-table make-local-variable t kill-all-local-variables chart-mode "CHART" 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] 2 (#$ . 4220) nil]) #@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 (#$ . 4864)]) (byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\312\301\313$\210\300\314\302\315\316$\210\300\317\320\321\322$\210\300\323\324\325\326$\210\300\327\302\330\331$\210\300\332\333\334\335$\210\305\336\307\336\337\"\"\210\311\336\302\301\340$\210\305\341\307\341\342\"\"\210\311\341\302\301\343$\210\305\344\307\344\345\"\"\210\311\344\302\301\346$\210\305\347\307\347\350\"\"\210\311\347\302\301\351$\210\305\352\307\352\353\"\"\210\311\352\302\314\354$\210\305\355\307\355\356\"\"\210\311\355\302\301\357$\210\305\360\307\360\361\"\"\210\311\360\302\301\362$\210\305\352\307\352\363\"\"\210\311\352\302\317\364$\210\305\365\307\365\366\"\"\210\311\365\302\301\367$\210\305\352\307\352\370\"\"\210\311\352\302\323\371$\210\305\372\307\372\373\"\"\210\311\372\302\332\374$\210\305\375\307\375\376\"\"\210\311\375\302\301\377$\210\305\201@ \307\201@ \201A \"\"\210\311\201@ \302\301\201B $\210\305\201C \307\201C \201D \"\"\210\311\201C \302\301\201E $\207" [eieio-defclass chart 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)) ("Superclass for all charts to be displayed in an Emacs buffer.") eieio--defalias initialize-instance eieio--defgeneric-init-form "Initialize the chart OBJ being created with FIELDS.\nMake sure the width/height is correct." eieio--defmethod :AFTER #[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)"] chart-axis ((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)) ("Superclass used for display of an axis.") chart-axis-range (chart-axis) ((bounds :initarg :bounds :initform '(0.0 . 50.0))) ("Class used to display an axis defined by a range of values.") chart-axis-names (chart-axis) ((items :initarg :items :initform nil)) ("Class used to display an axis which represents different named items.") chart-sequece ((data :initarg :data :initform nil) (name :initarg :name :initform "Data")) ("Class used for all data in different charts.") chart-bar (chart) ((direction :initarg :direction :initform vertical)) ("Subclass for bar charts (vertical or horizontal).") chart-draw "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer." #[513 "\212\211\203 \211q\210\300 \210\301\302\303\"c\210\304!\210\305!\210\306\307!\210\310\311!\210\312!\210\306\313!)\207" [erase-buffer make-string 100 10 chart-draw-axis chart-draw-title message "Rendering chart..." sit-for 0 chart-draw-data "Rendering chart...done"] 5 "Start drawing a chart object C in optional BUFF.\nErases current contents of buffer.\n\n(fn C &optional BUFF)"] chart-draw-title "Draw a title upon the chart.\nArgument C is the chart object." #[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 "Return the physical size of chart C in direction 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 "Draw axis into the current buffer defined by chart C." #[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 "Draw some axis for A in direction DIR with MARGIN in boundary.\nZONE is a zone specification.\nSTART and END represent the boundary." #[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 "Translate in chart C the coordinate X into a screen column." #[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 "Translate in chart C the coordinate Y into a screen row." #[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)"] "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." #[1537 "\300 \210\301\302\"@\301\302\"A\203 \202 \303\304Z\211\305\301 \306\"\f\"\307\245\245\304\303U\2033 \310\262X\205\327 \311V\203L \312\313\314\245\"\202b \315V\203] \312\316\317\245\"\202b \312\320\"\262 \321=\203\231 \n\\\301\322\"\203} G[\202~ \310\\\211\310W\203\210 \310\262\323\324\301\306\" \"\"\266\202\270 \323\325\301\306\" \"\326 \301\322\"\203\264 \327\202\265 \310#\"\210`\262c\210\330G!\210\331`\332\301\333\"$\210\\\262\2023 \207" [call-next-method 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] 21 "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 A &optional DIR MARGIN ZONE START END)"] chart-translate-namezone "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." #[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)"] "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." #[1537 "\300 \210\301\302\303\"\203 \202 \301\304\211\211\211\205\342 G\305\246\306U\262\307\302\310\"\"\262 \311=\203@ @A\\\305\245\262\202S @A@Z\305\245\\@G\305\245Z\262 \311=\203\226 \n\\\302\312\"\203n @G[\202r @G\\\211\306W\203| \306\262@G\fSV\203\215 \211\f\\\262\313\"\266\202\275 \313\f\\\302\312\"\203\261 \203\255 \314\202\272 \315\202\272 \203\271 \305\202\272 \306\\\"\210`\262@c\210\316@G!\210\317`\320\302\321\"$\210T\262A\262\202 \207" [call-next-method 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] 20 "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 A &optional DIR MARGIN ZONE START END)"] chart-draw-data "Display the data available in a bar chart C." #[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 "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." #[769 "\211\203\217 \302\"\302\303\"@;\2037 \302\303\"\204- \304\305\302\306\"\307\310 &\262\2023 \311\312#\210\210\202| \313\314B\302\303\"\204P \304 \305\302\306\"\310\n%\262\211\203u \211@@W\203a @\240\210\211@AV\203n @\241\210\211A\262\202P \311\315#\266\316=\203\210 \311\317\320#\210\311#\266\311\321\322\302\321\"C\"#\207" [chart-axis-names chart-axis-range eieio-oref data make-instance :name name :items :chart eieio-oset items 0 1 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 "Trim all sequences in chart C to be at most MAX elements long." #[514 "\300\301\"\211\205# \300@\302\"\211GV\203 S\233\303\241\210\210\211A\262\202 \207" [eieio-oref sequences data nil] 6 "Trim all sequences in chart C to be at most MAX elements long.\n\n(fn C MAX)"] chart-sort "Sort the data in chart C using predicate PRED.\nSee `chart-sort-matchlist' for more details." #[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" 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)"]] 5) #@230 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 (#$ . 16205)]) #@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\301\262\211\302U\203 i\302U\204 \303\304!\210m\203# \303!\210\302W\203, \302\262\302W\2035 \302\262\305!U\206H `j\210\306`\307#\262)\207" [indent-tabs-mode nil 0 newline 1 move-to-column remove-text-properties (face)] 9 (#$ . 16725)]) #@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 (#$ . 17109)]) #@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 (#$ . 17292)]) #@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 (#$ . 17833)]) #@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 (#$ . 18125)]) #@397 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 "\302\303 \304\305\306&\307=\310\302 \311\f\312 %\203# \313\202$ \314#\210\310\302 \311\n\312 %\2039 \314\202: \313#\210\203E \315\"\210\250\203O \316\"\210\317\320!!\210\321!\207" [chart-bar chart-sequece make-instance :title :key-label "8-m" :direction vertical chart-add-sequence :data :name x-axis y-axis chart-sort chart-trim switch-to-buffer chart-new-buffer chart-draw] 18 (#$ . 18500)]) #@43 Test out various charting features. (fn) (defalias 'chart-test-it-all #[0 "\300\301\302\303\304\305\306&\207" [chart-bar-quickie vertical "Test Bar Chart" ("U1" "ME2" "C3" "B4" "QT" "EZ") "Items" (5 -10 23 20 30 -3) "Values"] 7 (#$ . 19356) nil]) #@83 Draw a chart displaying the number of different file extensions in DIR. (fn DIR) (defalias 'chart-file-count #[257 "\300\301\"\204\f \211\302P\262\303\304!\210\305\306\211\307$\310C\311C\203j \300\312@\"\313@P!\2030 \310\202; \211\205; @\314\224\314\225O\211\235\203a \211\203W GGZ\233\211@T\240\266\202a B\262\314B\262\266A\262\202 \315\316\317\320\321\322\323&\207" [string-match "/$" "/" message "Collecting statistics..." directory-files nil t "<dir>" 0 "[^\\.]\\(\\.[a-zA-Z]+\\|~\\|#\\)$" file-accessible-directory-p 1 chart-bar-quickie vertical "Files Extension Distribution" "File Extensions" "# of occurrences" 10 #[514 "AAV\207" [] 4 "\n\n(fn A B)"]] 13 (#$ . 19611) "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 (#$ . 20340) "DDirectory: "]) #@56 Chart the current storage requirements of Emacs. (fn) (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 (#$ . 21169) nil]) #@54 Chart out the size of various important lists. (fn) (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 (#$ . 21545) nil]) #@71 If we are in an rmail summary buffer, then chart out the froms. (fn) (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 (#$ . 21979) nil]) (provide 'chart)