Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cus-theme.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\300\302!\207" [require widget cus-edit] 2) #@37 Keymap for `custom-new-theme-mode'. (defvar custom-new-theme-mode-map (byte-code "\302 \303\304 \"\"\210\305!\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\211\207" [widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-write "q" Custom-buffer-done "n" widget-forward "p" widget-backward] 6) (#$ . 477)) (defvar custom-new-theme-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-new-theme-mode-hook variable-documentation put "Hook run after entering Custom-Theme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp custom-new-theme-mode-map definition-name custom-new-theme-mode] 4) (defvar custom-new-theme-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\317#\207" [custom-new-theme-mode-abbrev-table custom-new-theme-mode-map variable-documentation put purecopy "Keymap for `custom-new-theme-mode'." boundp custom-new-theme-mode-syntax-table definition-name custom-new-theme-mode (lambda (#1=#:def-tmp-var) (defvar custom-new-theme-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-new-theme-mode'." (lambda (#1#) (defvar custom-new-theme-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-new-theme-mode'." derived-mode-parent] 5) #@252 Major mode for editing Custom themes. Do not call this mode function yourself. It is meant for internal use. This mode runs the hook `custom-new-theme-mode-hook', as the final or penultimate step during initialization. \{custom-new-theme-mode-map} (defalias 'custom-new-theme-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \313 !\210\315 \210\306\316!\210\317)\320\321!\207" [delay-mode-hooks major-mode mode-name custom-new-theme-mode-map custom-new-theme-mode-syntax-table custom-new-theme-mode-abbrev-table make-local-variable t kill-all-local-variables custom-new-theme-mode "Custom-Theme" use-local-map set-syntax-table custom--initialize-widget-variables revert-buffer-function custom-theme-revert run-mode-hooks custom-new-theme-mode-hook local-abbrev-table] 2 (#$ . 2168) nil]) (put 'custom-new-theme-mode 'mode-class 'special) (defvar custom-theme-name nil) (defvar custom-theme-variables nil) (defvar custom-theme-faces nil) (defvar custom-theme-description nil) (defvar custom-theme--migrate-settings nil) (defvar custom-theme-insert-variable-marker nil) (defvar custom-theme-insert-face-marker nil) #@55 Faces listed by default in the *Custom Theme* buffer. (defvar custom-theme--listed-faces '(default cursor fixed-pitch variable-pitch escape-glyph homoglyph minibuffer-prompt highlight region shadow secondary-selection trailing-whitespace font-lock-builtin-face font-lock-comment-delimiter-face font-lock-comment-face font-lock-constant-face font-lock-doc-face font-lock-function-name-face font-lock-keyword-face font-lock-negation-char-face font-lock-preprocessor-face font-lock-regexp-grouping-backslash font-lock-regexp-grouping-construct font-lock-string-face font-lock-type-face font-lock-variable-name-face font-lock-warning-face button link link-visited fringe header-line tooltip mode-line mode-line-buffer-id mode-line-emphasis mode-line-highlight mode-line-inactive isearch isearch-fail lazy-highlight match next-error query-replace) (#$ . 3314)) #@366 Create or edit a custom theme. THEME, if non-nil, should be an existing theme to edit. If THEME is `user', the resulting *Custom Theme* buffer also contains a checkbox for removing the theme settings specified in the buffer from the Custom save file. BUFFER, if non-nil, should be a buffer to use; the default is named *Custom Theme*. (fn &optional THEME BUFFER) (defalias 'customize-create-theme #[512 "\306\307\206 \310!!\210\311\312 \210\313 \210)\314 \210\315\316!\210\315\301!\210\315\302!\210\317\315\303!\210\317\315\304!\210\320\315\305!\210\317\315\321!\210\315\322!\210\315\323!\210\324\325!\203S \326\327!\204S \317\330=\203] \331\332!\210\333\334\335\336\337\340\341\342&\210\331\343!\210\333\334\335\344\337\345\341\346&\210\331\343!\210\333\334\335\347\337\350\341\351&\210\331\352!\210\333\353\354\203\235 \330=\204\235 \355!\202\236 \320#\331\356!\210\333\357\354\360\361!#\333\334\362\363\364$\210\330=\203\320 \311\331\343!\210\333\365\354 \341\366%\210\331\367\370\371\372#!\210\317\211\211\211\203 \330=\204\345 \373\317\311#\210\374N\211\203 \211@\211@\375=\203\211A@B\262\3768B\262\202\211A@B\262\3768B\262A\266\202\202\350 \210\331\377!\210\203=\203T\201@ \211A\262\242\211A\262\242\"\210\202%\211\203S\211@\201@ \317\"\210A\266\202\202?\210\201A \331\201B !\210\333\334\335\201C \337\201D \201E \201F \201G \201H \201I \201J \201K \201J \341\201L &\210\331\201M !\210\203\305\203\305@\201N =\203\255A\262\211A\262\210\202\223\201O \211A\262\242\201P \211A\262\242!\"\210\202\223\201A \331\201B !\210\333\334\335\201Q \337\201R \201E \201F \201G \201H \201I \201J \201K \201J \341\201S &\210\331\201T !\210\201U \210eb\210\201V \320!\207" [inhibit-read-only custom-theme--save-name custom-theme-faces custom-theme-variables custom-theme-description custom-theme--migrate-settings switch-to-buffer get-buffer-create "*Custom Theme*" t erase-buffer delete-all-overlays custom-new-theme-mode make-local-variable custom-theme-name nil "" custom-theme-insert-face-marker custom-theme-insert-variable-marker custom-theme--listed-faces called-interactively-p interactive y-or-n-p "Include basic face customizations in this theme? " user widget-insert "This buffer contains all the Custom settings you have made.\nYou can convert them into a new custom theme, and optionally\nremove them from your saved Custom file.\n\n" widget-create push-button :tag " Visit Theme " :help-echo "Insert the settings of a pre-defined theme." :action #[513 "\300\301!\207" [call-interactively custom-theme-visit-theme] 4 "\n\n(fn WIDGET &optional EVENT)"] " " " Merge Theme " "Merge in the settings of a pre-defined theme." #[513 "\300\301!\207" [call-interactively custom-theme-merge-theme] 4 "\n\n(fn WIDGET &optional EVENT)"] " Revert " "Revert this buffer to its original state." #[128 "\300 \207" [revert-buffer] 2 "\n\n(fn &rest IGNORED)"] "\n\nTheme name : " editable-field :value symbol-name "Description: " text format-time-string "Created %Y-%m-%d." :notify custom-theme-write " Save Theme " checkbox #[513 "\301!\205 \302\"\210\301!\211\207" [custom-theme--migrate-settings widget-value widget-toggle-action] 5 "\n\n(fn WIDGET &optional EVENT)"] propertize " Remove saved theme settings from Custom save file." face (variable-pitch (:height 0.9)) load-theme theme-settings theme-value 3 "\n\n Theme faces:\n " custom-theme-add-face-1 point-marker " " "Insert Additional Face" "Add another face to this theme." :follow-link mouse-face :button-face custom-link :mouse-face highlight :pressed-face #[513 "\300\301!\207" [call-interactively custom-theme-add-face] 4 "\n\n(fn WIDGET &optional EVENT)"] "\n\n Theme variables:\n " custom-enabled-themes custom-theme-add-var-1 eval "Insert Variable" "Add another variable to this theme." #[513 "\300\301!\207" [call-interactively custom-theme-add-variable] 4 "\n\n(fn WIDGET &optional EVENT)"] 10 widget-setup message] 22 (#$ . 4177) nil]) #@137 Revert the current *Custom Theme* buffer. This is the `revert-buffer-function' for `custom-new-theme-mode'. (fn IGNORE-AUTO NOCONFIRM) (defalias 'custom-theme-revert #[514 "\211\204\n \301\302!\205 \303p\"\207" [custom-theme--save-name y-or-n-p "Discard current changes? " customize-create-theme] 5 (#$ . 8172)]) #@205 Add a widget for VAR (a symbol) to the *New Custom Theme* buffer. VALUE should be a value to which to set the widget; when called interactively, this defaults to the current value of VAR. (fn VAR VALUE) (defalias 'custom-theme-add-variable #[514 "\236\211\204 \212 b\210\302\"\210 `\303\223\210\304 )\2021 \305A@\306\"\210\3078\310\311C#\210\312!\262\207" [custom-theme-variables custom-theme-insert-variable-marker custom-theme-add-var-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw] 8 (#$ . 8495) (byte-code "\300\301!\211JD\207" [read-variable "Variable name: "] 3)]) #@19 (fn SYMBOL VAL) (defalias 'custom-theme-add-var-1 #[514 "\301\302!\210\303\304\305\306\307\310%\301\302!\210\303\311\312\313!\305\314 C\315\316\317\320\321\322\323\324&EB\301\302!\207" [custom-theme-variables widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this variable." custom-variable :tag custom-unlispify-tag-name :shown-value :notify ignore :custom-level 0 :custom-state hidden :custom-style simple] 20 (#$ . 9116)]) #@162 Add a widget for FACE (a symbol) to the *New Custom Theme* buffer. SPEC, if non-nil, should be a face spec to which to set the widget. (fn FACE &optional SPEC) (defalias 'custom-theme-add-face #[513 "\302!\204 \211\204 \303\304\"\210\236\211\204* \212 b\210\305\"\210 `\306\223\210\307 )\202P \203F \310A@\311\"\210\3128\313\314#\210\315!\262\202P \316\317!\205P \303\320\"\207" [custom-theme-faces custom-theme-insert-face-marker facep error "`%s' has no face definition" custom-theme-add-face-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw called-interactively-p interactive "`%s' is already present"] 8 (#$ . 9587) (byte-code "\300\301\302\303!\"C\207" [read-face-name "Face name" face-at-point t] 4)]) #@20 (fn SYMBOL SPEC) (defalias 'custom-theme-add-face-1 #[514 "\301\302!\210\303\304\305\306\307\310%\301\302!\210\303\311\312\313!\314\306\305\n\315\316\317\320\321\322\323&EB\301\302!\207" [custom-theme-faces widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this face." custom-face :tag custom-unlispify-tag-name :documentation-shown :custom-state hidden :custom-style simple :shown-value :sample-indent 34] 20 (#$ . 10347)]) #@64 Set up a Custom buffer to edit custom theme THEME. (fn THEME) (defalias 'custom-theme-visit-theme #[257 "\302!\204 \303\304\"\210\305=\204 \306!\207\307\310!\205! \211\311\312\313\"\207" [major-mode custom-theme--save-name custom-theme-name-valid-p error "No valid theme named `%s'" custom-new-theme-mode customize-create-theme y-or-n-p "Discard current changes? " custom-theme-revert nil t] 4 (#$ . 10816) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Find custom theme: " mapcar symbol-name custom-available-themes] 6)]) #@78 Merge the custom theme THEME's settings into the current buffer. (fn THEME) (defalias 'custom-theme-merge-theme #[257 "\211\300=\204 \301!\204 \302\303\"\210\304\305\306#\210\307\310N!\211\211\203M \211@\211@\311=A@\3128\2037 \313>\204D \203? \314\202@ \315\"\210\266A\266\202\202 \266\207" [user custom-theme-name-valid-p error "Invalid theme name `%s'" load-theme nil t reverse theme-settings theme-value 3 (custom-enabled-themes custom-safe-themes) custom-theme-add-variable custom-theme-add-face] 10 (#$ . 11381) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Merge custom theme: " mapcar symbol-name custom-available-themes] 6)]) #@70 Write the current custom theme to its theme file. (fn &rest IGNORE) (defalias 'custom-theme-write #[128 "\306!\306 !\n \307\310\230\203 \311\312\313 \"\262\314\"\210\315\316!!\204+ \317\320\"\210\321\322P\f\"\262\323!\203F \324\325\326\"!\204F \317\327!\210\330\331!r\211q\210\332\333\334\335\336!\337\"\340$\216\341 \210\342\f!\204i \343\344\f!\345\"\210\346 \210\347\261\210\203~ \350\351\261\210\352c\210\353\354!\"\210\355\354!\"\210\356\352\261\210\357 \210*\210\360\361\"\210;\205\362\363 < =\211\203\323 \211@\211@\364=\204\314 \365A@\366\"\203\314 \367\3408\370\"\210A\266\202\202\257 \210\211\203\362 \211@\365A@\366\"\203\353 \367\3408\370\"\210A\266\202\202\325 \210\371 \210*\304C >\372\316!!)\207" [custom-theme-name custom-theme-description custom-theme-variables custom-theme-faces custom-theme-directory buffer-file-name widget-value nil "" read-from-minibuffer "Theme name: " user-login-name widget-value-set custom-theme-name-valid-p intern error "Custom themes cannot be named `%s'" expand-file-name "-theme.el" file-exists-p y-or-n-p format "File %s exists. Overwrite? " "Aborted" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 emacs-lisp-mode file-directory-p make-directory file-name-as-directory t erase-buffer "(deftheme " "\n \"" "\"" ")\n" custom-theme-write-variables reverse custom-theme-write-faces "\n(provide-theme '" save-buffer message "Theme written to %s" (t) (t) custom-enabled-themes widget-get :value widget-apply :custom-mark-to-reset-standard custom-save-all load-theme custom-theme--migrate-settings custom-reset-standard-faces-list custom-reset-standard-variables-list custom-theme-load-path] 13 (#$ . 12067) nil]) #@114 Write a `custom-theme-set-variables' command for THEME. It includes all variables in list VARS. (fn THEME VARS) (defalias 'custom-theme-write-variables #[514 "\211\205\204 p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203l \211@\305A@\306\"\203e \211@\3078\305\310\"\242\211\203: \311!\202? \305\312\"@\313!\203c n\204M \301\304!\210\301\314!\210\315!\210\301\316!\210\315\317!!\210\301\320!\210\266A\266\202\202 \210n\203u \301\316!\210\301\320!\210g\321U?\205\203 \301\304!)\207" [standard-output princ "\n(custom-theme-set-variables\n" " '" "\n" widget-get :value 2 :children widget-value :shown-value boundp " '(" prin1 " " custom-quote ")" 10] 11 (#$ . 13856)]) #@108 Write a `custom-theme-set-faces' command for THEME. It includes all faces in list FACES. (fn THEME FACES) (defalias 'custom-theme-write-faces #[514 "\211\205\212 p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203r \211@\305A@\306\"\203k \211@\3078\305\310\"\242\2039 \311!\202C \305\312\"\206C \313!\314!\203i \211\203i \301n\203V \315\202W \316!\210\317!\210\301\320!\210\317!\210\301\321!\210\266A\266\202\202 \210n\203{ \301\320!\210\301\321!\210g\322U?\205\211 \301\304!)\207" [standard-output princ "\n(custom-theme-set-faces\n" " '" "\n" widget-get :value 2 :children custom-face-widget-to-spec :shown-value custom-face-get-current-spec facep " '(" "\n '(" prin1 " " ")" 10] 9 (#$ . 14556)]) #@73 Display a description of the Custom theme THEME (a symbol). (fn THEME) (defalias 'describe-theme #[257 "\305!\204 \306\307\"\210\310\311D\312\313!\"\210\314\211\223\210\315 B\316\nB\317 \320 \321!\211 \314\211r\fq\210\322!)\262rq\210\323\314\"\262)\324\325!\203O \325\"\202P \211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output custom-theme-name-valid-p error "Invalid theme name `%s'" help-setup-xref describe-theme called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-theme-1 temp-buffer-window-show functionp help-window-setup] 8 (#$ . 15286) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Describe custom theme: " mapcar symbol-name custom-available-themes] 6)]) #@14 (fn THEME) (defalias 'describe-theme-1 #[257 "\303!\210\304\305!\210\306\307!\310P\311 \312#\313\203+ \304\314\315!!\210\316\317!\320#\210\304\314\321!!\210\304\322!\210\211>\262\203T \211 >\262\203H \304\323!\210\202L \304\324!\210\325N\262\202\222 \304\326!\210\203\222 \327\330!r\211q\210\331\332\333\334\335!\336\"\337$\216\340!\210\313\3411\200 \342p!0\202\202 \210\313)\211\242\343=\203\217 \3378\262\210*\210\304\344!\210\304;\203\242 \314!\202\243 \345!\266\304\346!\210\316\347\350#\210\304\351!\207" [custom-known-themes custom-enabled-themes read-circle prin1 princ " is a custom theme" locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") nil substitute-command-keys " in `" help-insert-xref-button file-name-nondirectory help-theme-def "'" ".\n" "It is loaded and enabled." "It is loaded but disabled." theme-documentation "It is not loaded." generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (end-of-file) read deftheme "\n\nDocumentation:\n" "No documentation available." "\n\nYou can " "customize" help-theme-edit " this theme."] 10 (#$ . 16173)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable custom-theme-allow-multiple-selections funcall function #[0 "\300\207" [nil] 1] "Whether to allow multi-selections in the *Custom Themes* buffer." :version "24.1" :type boolean :group custom-buffer] 10) #@40 Keymap for `custom-theme-choose-mode'. (defvar custom-theme-choose-mode-map (byte-code "\302 \303\304 \"\"\210\305!\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\211\207" [widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-save "n" widget-forward "p" widget-backward "?" custom-describe-theme] 6) (#$ . 17673)) (defvar custom-theme-choose-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-theme-choose-mode-hook variable-documentation put "Hook run after entering Themes mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp custom-theme-choose-mode-map definition-name custom-theme-choose-mode] 4) (defvar custom-theme-choose-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" [custom-theme-choose-mode-abbrev-table custom-theme-choose-mode-map variable-documentation put purecopy "Keymap for `custom-theme-choose-mode'." boundp custom-theme-choose-mode-syntax-table definition-name custom-theme-choose-mode (lambda (#1=#:def-tmp-var) (defvar custom-theme-choose-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-theme-choose-mode'." (lambda (#1#) (defvar custom-theme-choose-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-theme-choose-mode'." derived-mode-parent special-mode] 5) #@332 Major mode for selecting Custom themes. Do not call this mode function yourself. It is meant for internal use. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `custom-theme-choose-mode-hook', as the final or penultimate step during initialization. \{custom-theme-choose-mode-map} (defalias 'custom-theme-choose-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 \327 !\210\331 \210\306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name custom-theme-choose-mode-map custom-theme-choose-mode-syntax-table custom-theme-choose-mode-abbrev-table make-local-variable t special-mode custom-theme-choose-mode "Themes" 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 custom--initialize-widget-variables revert-buffer-function #[514 "\211\204\n \300\301!\205 \302p!\207" [y-or-n-p "Discard current choices? " customize-themes] 4 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] run-mode-hooks custom-theme-choose-mode-hook local-abbrev-table] 5 (#$ . 19423) nil]) (put 'custom-theme-choose-mode 'mode-class 'special) #@179 Display a selectable list of Custom themes. When called from Lisp, BUFFER should be the buffer to use; if omitted, a buffer named *Custom Themes* is used. (fn &optional BUFFER) (defalias 'customize-themes #[256 "\305\306\206 \307!!\210\310\311 \210)\312 \210\313\301!\210\314\313\302!\210\n\204* G\315V\203* \310\316\317\320!!\210\321\322\323\324\325\326\327\330\331\330\332\333\334\f\335\336\337\340&\210\316\317\341!!\210\342\343N\211\203\211 \211A\204h \211@@\344=\203h \211@A@\303=\204\211 \316\345\346\347\350#!\210\321\322\323\351\325\326\327\330\331\330\332\352\334\f\335\336\337\353&\210\316\354!\210\210\321\355\356\357\332\360\337\361&\210\316\362!\210\321\363\323\n\337\364%\210\316\345\365\347\366#!\210\316\367!\210\370\314\371 \211\203\211@\321\363\323\211 >\262\372\332\n\337\373& \262\211B B\374\355\375\376\377\376\323\201@ \201A \n\"\337\201B \332&\f\210\316\201C \345\201D !\347\201E #\362#\210A\266\202\202\261 \266eb\210\201F \207" [inhibit-read-only custom--listed-themes custom-theme-allow-multiple-selections custom-enabled-themes custom-mode-link-map switch-to-buffer get-buffer-create "*Custom Themes*" t erase-buffer custom-theme-choose-mode make-local-variable nil 1 widget-insert substitute-command-keys "Type RET or click to enable/disable listed custom themes.\nType \\[custom-describe-theme] to describe the theme at point.\nTheme files are named *-theme.el in `" widget-create link :value "custom-theme-load-path" :button-face custom-link :mouse-face highlight :pressed-face :help-echo "Describe `custom-theme-load-path'." :keymap :follow-link mouse-face :action #[385 "\300\301!\207" [describe-variable custom-theme-load-path] 4 "\n\n(fn WIDGET &rest IGNORE)"] "'.\n\n" user theme-settings theme-value propertize " Note: Your custom settings take precedence over theme settings.\n To migrate your settings into a theme, click " face font-lock-warning-face "here" "Migrate." #[385 "\300\301!\207" [customize-create-theme user] 4 "\n\n(fn WIDGET &rest IGNORE)"] ".\n\n" push-button :tag " Save Theme Settings " "Save the selected themes for future sessions." custom-theme-save 10 checkbox custom-theme-selections-toggle " Select more than one theme at a time" (variable-pitch (:height 0.9)) "\n\nAvailable Custom Themes:\n" "mouse-2: Enable this theme for this session" custom-available-themes :theme-name custom-theme-checkbox-toggle widget-create-child-and-convert :button-face-get ignore :mouse-face-get format " %s" widget-parent-action " -- " custom-theme-summary shadow widget-setup] 20 (#$ . 20846) nil]) #@47 Return the summary line of THEME. (fn THEME) (defalias 'custom-theme-summary #[257 "\302\211>\262\203 \303N\262\202W \304\305!\306P\307 \310#\211\203V \311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322!\210\302\3231D \324p!0\202F \210\302)\211\242\325=\203S \3218\262\210*\210\210\211\204_ \326\202n \327\330\"\203m \331\314\"\202n \211\207" [custom-known-themes read-circle nil theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (end-of-file) read deftheme "(no documentation available)" string-match ".*" match-string] 10 (#$ . 23429)]) #@31 (fn WIDGET &optional EVENT) (defalias 'custom-theme-checkbox-toggle #[513 "\303\304\"\305!\203 \306!\210\307\"\210\202j \204_ \211\2038 \211@\211=\2041 \211\n\236\2031 \306!\210A\266\202\202 \210\n\211\203^ \211@\211@=\204W \310A\311\"\210\312A\313A$\210A\266\202\202: \210\314!\203j \307\"\210\315\301\316\317 !C#\207" [custom-theme-allow-multiple-selections custom-enabled-themes custom--listed-themes widget-get :theme-name widget-value disable-theme widget-toggle-action widget-value-set nil widget-apply :notify load-theme put customized-value custom-quote] 10 (#$ . 24178)]) #@48 Describe the Custom theme on the current line. (defalias 'custom-describe-theme #[0 "\300\301 !\211\205 \302\303\304\"!\207" [widget-at line-beginning-position describe-theme widget-get :theme-name] 5 (#$ . 24789) nil]) #@21 (fn &rest IGNORE) (defalias 'custom-theme-save #[128 "\301\300\"\210\302\303!\207" [custom-enabled-themes customize-save-variable message "Custom themes saved for future sessions."] 4 (#$ . 25017) nil]) #@31 (fn WIDGET &optional EVENT) (defalias 'custom-theme-selections-toggle #[513 "\302!\203 \303\304\305\306\307\"\"GW\203 \310\311!\210\312\"\210\302!\211\207" [custom--listed-themes custom-theme-allow-multiple-selections widget-value 1 delq nil mapcar #[257 "\300A!\207" [widget-value] 3 "\n\n(fn X)"] error "More than one theme is currently selected" widget-toggle-action] 8 (#$ . 25229)]) (provide 'cus-theme)
Close
