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 /
net /
[ HOME SHELL ]
Name
Size
Permission
Action
ange-ftp.elc
126.4
KB
-rw-r--r--
browse-url.elc
54.35
KB
-rw-r--r--
dbus.elc
55.05
KB
-rw-r--r--
dig.elc
6.34
KB
-rw-r--r--
dns.elc
11.52
KB
-rw-r--r--
eudc-bob.elc
8.58
KB
-rw-r--r--
eudc-export.elc
5.97
KB
-rw-r--r--
eudc-hotlist.elc
6.69
KB
-rw-r--r--
eudc-vars.elc
14.68
KB
-rw-r--r--
eudc.elc
33.77
KB
-rw-r--r--
eudcb-bbdb.elc
5.97
KB
-rw-r--r--
eudcb-ldap.elc
5.5
KB
-rw-r--r--
eudcb-mab.elc
2.58
KB
-rw-r--r--
eww.elc
68.31
KB
-rw-r--r--
gnutls.elc
12.62
KB
-rw-r--r--
goto-addr.elc
10
KB
-rw-r--r--
hmac-def.elc
1.87
KB
-rw-r--r--
hmac-md5.elc
2.11
KB
-rw-r--r--
imap.elc
102.11
KB
-rw-r--r--
ldap.elc
16.8
KB
-rw-r--r--
mailcap.elc
27.34
KB
-rw-r--r--
mairix.elc
25.1
KB
-rw-r--r--
net-utils.elc
35.04
KB
-rw-r--r--
netrc.elc
4.95
KB
-rw-r--r--
network-stream.elc
12.02
KB
-rw-r--r--
newst-backend.elc
65.76
KB
-rw-r--r--
newst-plainview.elc
48.96
KB
-rw-r--r--
newst-reader.elc
9.66
KB
-rw-r--r--
newst-ticker.elc
7.82
KB
-rw-r--r--
newst-treeview.elc
76.37
KB
-rw-r--r--
newsticker.elc
769
B
-rw-r--r--
nsm.elc
34.82
KB
-rw-r--r--
ntlm.elc
13.79
KB
-rw-r--r--
pop3.elc
20.1
KB
-rw-r--r--
puny.elc
4.92
KB
-rw-r--r--
quickurl.elc
17.83
KB
-rw-r--r--
rcirc.elc
105.35
KB
-rw-r--r--
rfc2104.elc
1.2
KB
-rw-r--r--
rlogin.elc
10.97
KB
-rw-r--r--
sasl-cram.elc
1003
B
-rw-r--r--
sasl-digest.elc
3.33
KB
-rw-r--r--
sasl-ntlm.elc
1.62
KB
-rw-r--r--
sasl-scram-rfc.elc
3.6
KB
-rw-r--r--
sasl.elc
6.58
KB
-rw-r--r--
secrets.elc
23.55
KB
-rw-r--r--
shr-color.elc
8.82
KB
-rw-r--r--
shr.elc
69.72
KB
-rw-r--r--
sieve-manage.elc
15.31
KB
-rw-r--r--
sieve-mode.elc
6.94
KB
-rw-r--r--
sieve.elc
11.62
KB
-rw-r--r--
snmp-mode.elc
14.51
KB
-rw-r--r--
soap-client.elc
221.75
KB
-rw-r--r--
soap-inspect.elc
20.04
KB
-rw-r--r--
socks.elc
12.5
KB
-rw-r--r--
telnet.elc
9.65
KB
-rw-r--r--
tramp-adb.elc
107.17
KB
-rw-r--r--
tramp-archive.elc
25.39
KB
-rw-r--r--
tramp-cache.elc
23.77
KB
-rw-r--r--
tramp-cmds.elc
18.89
KB
-rw-r--r--
tramp-compat.elc
9.57
KB
-rw-r--r--
tramp-ftp.elc
4.38
KB
-rw-r--r--
tramp-gvfs.elc
107.3
KB
-rw-r--r--
tramp-integration.elc
7.03
KB
-rw-r--r--
tramp-loaddefs.el
60.78
KB
-rw-r--r--
tramp-rclone.elc
39.17
KB
-rw-r--r--
tramp-sh.elc
306.37
KB
-rw-r--r--
tramp-smb.elc
140
KB
-rw-r--r--
tramp-sudoedit.elc
76.86
KB
-rw-r--r--
tramp-uu.elc
1.91
KB
-rw-r--r--
tramp.elc
242.21
KB
-rw-r--r--
trampver.elc
2.15
KB
-rw-r--r--
webjump.elc
9.85
KB
-rw-r--r--
zeroconf.elc
18.4
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : secrets.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\302\303\304\"\210\302\305\306\"\210\302\307\306\"\210\302\310\306\"\210\302\311\306\"\207" [require dbus autoload tree-widget-set-theme "tree-widget" widget-create-child-and-convert "wid-edit" widget-default-value-set widget-field-end widget-member] 3) #@60 Whether there is a daemon offering the Secret Service API. (defvar secrets-enabled nil (#$ . 687)) #@22 Write debug messages (defvar secrets-debug nil (#$ . 792)) #@48 The D-Bus name used to talk to Secret Service. (defconst secrets-service "org.freedesktop.secrets" (#$ . 857)) #@60 The D-Bus root object path used to talk to Secret Service. (defconst secrets-path "/org/freedesktop/secrets" (#$ . 974)) #@53 The D-Bus object path representing an empty object. (defconst secrets-empty-path "/" (#$ . 1101)) #@77 Check, whether PATH is a valid object path. It returns t if not. (fn PATH) (defalias 'secrets-empty-path #[257 "\211;?\206 \211\230\207" [secrets-empty-path] 3 (#$ . 1205)]) (put 'secrets-empty-path 'byte-optimizer 'byte-compile-inline-expand) #@56 The D-Bus interface managing sessions and collections. (defconst secrets-interface-service "org.freedesktop.Secret.Service" (#$ . 1458)) #@43 A collection of items containing secrets. (defconst secrets-interface-collection "org.freedesktop.Secret.Collection" (#$ . 1601)) #@53 The D-Bus temporary session collection object path. (defconst secrets-session-collection-path "/org/freedesktop/secrets/collection/session" (#$ . 1737)) #@70 A session tracks state between the service and a client application. (defconst secrets-interface-prompt "org.freedesktop.Secret.Prompt" (#$ . 1896)) #@43 A collection of items containing secrets. (defconst secrets-interface-item "org.freedesktop.Secret.Item" (#$ . 2051)) #@37 The default item type we are using. (defconst secrets-interface-item-type-generic "org.freedesktop.Secret.Generic" (#$ . 2175)) #@140 The content_type of a secret struct. It must be wrapped as list, because we add it via `append'. This is an interface introduced in 2011. (defconst secrets-struct-secret-content-type (byte-code "\3061B \307\310\311 \n\312\313\314&A@\315\310\311 \f\316\317\320 \321P\322BBD\323\324\n\325\326\327!\330\257\315&\262\310\311@ \331%\210C\266\2030\207\210\315\207" [secrets-service secrets-path secrets-interface-service secrets-session-collection-path secrets-interface-collection secrets-interface-item (error) "text/plain" dbus-call-method :session "OpenSession" "plain" (:variant "") nil "CreateItem" :array :dict-entry ".Label" ((:variant " ")) :struct :object-path (:array :signature "y") dbus-string-to-byte-array " " :string "Delete"] 17) (#$ . 2310)) #@70 A session tracks state between the service and a client application. (defconst secrets-interface-session "org.freedesktop.Secret.Session" (#$ . 3083)) #@119 The D-Bus session path of the active session. A session path `secrets-empty-path' indicates there is no open session. (defvar secrets-session-path secrets-empty-path (#$ . 3241)) #@43 Close the secret service session, if any. (defalias 'secrets-close-session #[0 "\3051 \306\307 \n\310%0\202 \205 \311@A\"\262\210\f\211\207" [secrets-service secrets-session-path secrets-interface-session dbus-debug secrets-empty-path (dbus-error) dbus-call-method :session "Close" signal] 6 (#$ . 3426)]) #@252 Open a new session with "plain" algorithm. If there exists another active session, and REOPEN is nil, that session will be used. The object path of the session will be returned, and it will be stored in `secrets-session-path'. (fn &optional REOPEN) (defalias 'secrets-open-session #[256 "\211\203 \306 \210\211;?\206 \211 \230\262\203# \307\310\n \f\311\312\313&A@ \203, \314\315\"\210\207" [secrets-session-path secrets-empty-path secrets-service secrets-path secrets-interface-service secrets-debug secrets-close-session dbus-call-method :session "OpenSession" "plain" (:variant "") message "Secret Service session: %s"] 9 (#$ . 3748)]) #@69 Internal variable to catch signals from `secrets-interface-prompt'. (defvar secrets-prompt-signal nil (#$ . 4403)) #@66 Handle the prompt identified by object path PROMPT. (fn PROMPT) (defalias 'secrets-prompt #[257 "\211\211;?\206\n \211\230\262?\205D \304\305 \n\306\307&\310\305 \n\311\312\313\314\"&\210\315\316\317\320\321!\322\"\323$\216 \204? \324\313\211\325#\210\2022 @)\262\207" [secrets-empty-path secrets-service secrets-interface-prompt secrets-prompt-signal dbus-register-signal :session "Completed" secrets-prompt-handler dbus-call-method "Prompt" frame-parameter nil window-id make-byte-code 0 "\302\303\300!\207" vconcat vector [secrets-prompt-signal nil dbus-unregister-object] 2 read-event 0.1] 11 (#$ . 4524)]) #@77 Handler for signals emitted by `secrets-interface-prompt'. (fn &rest ARGS) (defalias 'secrets-prompt-handler #[128 "\211@\203\n C\211\207\211A@\211\207" [secrets-empty-path secrets-prompt-signal] 3 (#$ . 5152)]) #@53 Cached D-Bus object paths of available collections. (defvar secrets-collection-paths nil (#$ . 5374)) #@78 Handler for signals emitted by `secrets-interface-service'. (fn &rest ARGS) (defalias 'secrets-collection-handler #[128 "\302!\303\230\203 \211@\304 \"\203 \202 \211 B\211\207\302!\305\230\205* \306@ \"\211\207" [last-input-event secrets-collection-paths dbus-event-member-name "CollectionCreated" memql "CollectionDeleted" delete] 5 (#$ . 5482)]) #@55 Return the object paths of all available collections. (defalias 'secrets-get-collections #[0 "\206 \304\305 \n \306%\211\207" [secrets-collection-paths secrets-service secrets-path secrets-interface-service dbus-get-property :session "Collections"] 6 (#$ . 5847)]) #@90 Return all properties of collection identified by COLLECTION-PATH. (fn COLLECTION-PATH) (defalias 'secrets-get-collection-properties #[257 "\211\211;?\206\n \211\230\262?\205 \303\304 \n$\207" [secrets-empty-path secrets-service secrets-interface-collection dbus-get-all-properties :session] 6 (#$ . 6121)]) #@102 Return property PROPERTY of collection identified by COLLECTION-PATH. (fn COLLECTION-PATH PROPERTY) (defalias 'secrets-get-collection-property #[514 "\211;?\206\n \211\230\262\206 \211;??\205 \303\304 \n%\207" [secrets-empty-path secrets-service secrets-interface-collection dbus-get-property :session] 8 (#$ . 6441)]) #@36 Return a list of collection names. (defalias 'secrets-list-collections #[0 "\300\301\302 \"\207" [mapcar #[257 "\211\230\203 \301\207\302\303\"\207" [secrets-session-collection-path "session" secrets-get-collection-property "Label"] 4 "\n\n(fn COLLECTION-PATH)"] secrets-get-collections] 3 (#$ . 6774)]) #@177 Return the object path of collection labeled COLLECTION. If COLLECTION is nil, return the session collection path. If there is no such COLLECTION, return nil. (fn COLLECTION) (defalias 'secrets-collection-path #[257 "\211\203\n \211\305\230\203 \206S \306\307 \n \310&\211\211;?\206\" \211\f\230\262?\205) \211\262\206S \3112S \312 \211\203O \211@\313\314\"\230\203H \315\311\"\210A\266\202\2024 \316\2620\207" [secrets-session-collection-path secrets-service secrets-path secrets-interface-service secrets-empty-path "session" dbus-call-method :session "ReadAlias" collection-found secrets-get-collections secrets-get-collection-property "Label" throw nil] 8 (#$ . 7088)]) #@176 Create collection labeled COLLECTION if it doesn't exist. Set ALIAS as alias of the collection. Return the D-Bus object path for collection. (fn COLLECTION &optional ALIAS) (defalias 'secrets-create-collection #[513 "\305!\211\211;?\206 \211\230\262\2031 \306\307\310 \n \311\312\313\f\314P\315 DED \206* \316&A@!\262\211\207" [secrets-empty-path secrets-service secrets-path secrets-interface-service secrets-interface-collection secrets-collection-path secrets-prompt dbus-call-method :session "CreateCollection" :array :dict-entry ".Label" :variant ""] 15 (#$ . 7782)]) #@124 Return the collection name ALIAS is referencing to. For the time being, only the alias "default" is supported. (fn ALIAS) (defalias 'secrets-get-alias #[257 "\303\304\305 \n\306&\307\"\207" [secrets-service secrets-path secrets-interface-service secrets-get-collection-property dbus-call-method :session "ReadAlias" "Label"] 9 (#$ . 8372)]) #@136 Set ALIAS as alias of collection labeled COLLECTION. For the time being, only the alias "default" is supported. (fn COLLECTION ALIAS) (defalias 'secrets-set-alias #[514 "\304!\211\211;?\206 \211\230\262?\205 \305\306 \n \307\310&\207" [secrets-empty-path secrets-service secrets-path secrets-interface-service secrets-collection-path dbus-call-method :session "SetAlias" :object-path] 12 (#$ . 8725)]) #@56 Delete ALIAS, referencing to a collection. (fn ALIAS) (defalias 'secrets-delete-alias #[257 "\304\305 \n\306\307 &\207" [secrets-service secrets-path secrets-interface-service secrets-empty-path dbus-call-method :session "SetAlias" :object-path] 10 (#$ . 9144)]) #@111 Lock collection labeled COLLECTION. If successful, return the object path of the collection. (fn COLLECTION) (defalias 'secrets-lock-collection #[257 "\304!\211\211;?\206 \211\230\262\204$ \305\306\307 \n \310\311\312 E&A@!\210\211\207" [secrets-empty-path secrets-service secrets-path secrets-interface-service secrets-collection-path secrets-prompt dbus-call-method :session "Lock" :array :object-path] 12 (#$ . 9419)]) #@113 Unlock collection labeled COLLECTION. If successful, return the object path of the collection. (fn COLLECTION) (defalias 'secrets-unlock-collection #[257 "\304!\211\211;?\206 \211\230\262\204$ \305\306\307 \n \310\311\312 E&A@!\210\211\207" [secrets-empty-path secrets-service secrets-path secrets-interface-service secrets-collection-path secrets-prompt dbus-call-method :session "Unlock" :array :object-path] 12 (#$ . 9855)]) #@56 Delete collection labeled COLLECTION. (fn COLLECTION) (defalias 'secrets-delete-collection #[257 "\303!\211\211;?\206 \211\230\262?\205 \304\305\306 \n\307%!\207" [secrets-empty-path secrets-service secrets-interface-collection secrets-collection-path secrets-prompt dbus-call-method :session "Delete"] 9 (#$ . 10296)]) #@90 Return the object paths of all available items in COLLECTION-PATH. (fn COLLECTION-PATH) (defalias 'secrets-get-items #[257 "\211\211;?\206\n \211\230\262?\205 \303\304 \n\305%\207" [secrets-empty-path secrets-service secrets-interface-collection dbus-get-property :session "Items"] 7 (#$ . 10629)]) #@72 Return all properties of item identified by ITEM-PATH. (fn ITEM-PATH) (defalias 'secrets-get-item-properties #[257 "\211\211;?\206\n \211\230\262?\205 \303\304 \n$\207" [secrets-empty-path secrets-service secrets-interface-item dbus-get-all-properties :session] 6 (#$ . 10939)]) #@84 Return property PROPERTY of item identified by ITEM-PATH. (fn ITEM-PATH PROPERTY) (defalias 'secrets-get-item-property #[514 "\211;?\206\n \211\230\262\206 \211;??\205 \303\304 \n%\207" [secrets-empty-path secrets-service secrets-interface-item dbus-get-property :session] 8 (#$ . 11229)]) #@66 Return a list of all item labels of COLLECTION. (fn COLLECTION) (defalias 'secrets-list-items #[257 "\301!\211\211;?\206 \211\230\262?\205 \302\303\304!\"\207" [secrets-empty-path secrets-unlock-collection mapcar #[257 "\300\301\"\207" [secrets-get-item-property "Label"] 4 "\n\n(fn ITEM-PATH)"] secrets-get-items] 6 (#$ . 11533)]) #@296 Search items in COLLECTION with ATTRIBUTES. ATTRIBUTES are key-value pairs. The keys are keyword symbols, starting with a colon. Example: (secrets-search-item-paths "Tramp collection" :user "joe") The object paths of the found items are returned as list. (fn COLLECTION &rest ATTRIBUTES) (defalias 'secrets-search-item-paths #[385 "\303!\304\211;?\206 \211\230\262?\205f A:\203Q \305@!\204' \306\307@\"\210A@;\2045 \306\307A@\"\210\310\311\312\313@!\314\"A@EC\"\262AA\262\202 \315\316 \n\317\203c \320B\202d \321&\207" [secrets-empty-path secrets-service secrets-interface-collection secrets-unlock-collection nil keywordp error wrong-type-argument append :dict-entry substring symbol-name 1 dbus-call-method :session "SearchItems" :array (:array :signature "{ss}")] 12 (#$ . 11880)]) #@292 Search items in COLLECTION with ATTRIBUTES. ATTRIBUTES are key-value pairs. The keys are keyword symbols, starting with a colon. Example: (secrets-search-items "Tramp collection" :user "joe") The object labels of the found items are returned as list. (fn COLLECTION &rest ATTRIBUTES) (defalias 'secrets-search-items #[385 "\300\301\302\303#\"\207" [mapcar #[257 "\300\301\"\207" [secrets-get-item-property "Label"] 4 "\n\n(fn ITEM-PATH)"] apply secrets-search-item-paths] 8 (#$ . 12704)]) #@815 Create a new item in COLLECTION with label ITEM and password PASSWORD. The label ITEM does not have to be unique in COLLECTION. ATTRIBUTES are key-value pairs set for the created item. The keys are keyword symbols, starting with a colon. Example: (secrets-create-item "Tramp collection" "item" "geheim" :method "sudo" :user "joe" :host "remote-host") The key `:xdg:schema' determines the scope of the item to be generated, i.e. for which applications the item is intended for. This is just a string like "org.freedesktop.NetworkManager.Mobile" or "org.gnome.OnlineAccounts", the other required keys are determined by this. If no `:xdg:schema' is given, "org.freedesktop.Secret.Generic" is used by default. The object path of the created item is returned. (fn COLLECTION ITEM PASSWORD &rest ATTRIBUTES) (defalias 'secrets-create-item #[899 "\306!\307\211\211;?\206 \211\230\262?\205\240 \310>\204# \311\310 D\"\262A:\203` \312@!\2046 \313\314@\"\210A@;\204D \313\314A@\"\210\311\315\316\317@!\320\"A@EC\"\262AA\262\202# \321\322\n \323\311\324\315\f\325P\326DED\205\204 \315\f\327P\326\311\330 \"DEC\"\311\331\332 \333\334!\257 \"\307&\262\335A@!\210@\207" [secrets-empty-path secrets-interface-item-type-generic secrets-service secrets-interface-collection secrets-interface-item secrets-session-path secrets-unlock-collection nil :xdg:schema append keywordp error wrong-type-argument :dict-entry substring symbol-name 1 dbus-call-method :session "CreateItem" :array ".Label" :variant ".Attributes" (:array) :struct :object-path (:array :signature "y") dbus-string-to-byte-array secrets-prompt secrets-struct-secret-content-type] 21 (#$ . 13210)]) #@281 Return the object path of item labeled ITEM in COLLECTION. If there are several items labeled ITEM, it is undefined which one is returned. If there is no such item, return nil. ITEM can also be an object path, which is returned if contained in COLLECTION. (fn COLLECTION ITEM) (defalias 'secrets-item-path #[514 "\300!\301!\235\203 \2064 \30224 \301!\211\2051 \211@\303\304\"\230\203* \305\302\"\210A\266\202\202 \2620\207" [secrets-unlock-collection secrets-get-items item-found secrets-get-item-property "Label" throw] 9 (#$ . 14912)]) #@272 Return the secret of item labeled ITEM in COLLECTION. If there are several items labeled ITEM, it is undefined which one is returned. If there is no such item, return nil. ITEM can also be an object path, which is used if contained in COLLECTION. (fn COLLECTION ITEM) (defalias 'secrets-get-secret #[514 "\304\"\211\211;?\206 \211\230\262?\205\" \305\306\307\310 \n\311\312 &8!\207" [secrets-empty-path secrets-service secrets-interface-item secrets-session-path secrets-item-path dbus-byte-array-to-string 2 dbus-call-method :session "GetSecret" :object-path] 13 (#$ . 15472)]) #@314 Return the lookup attributes of item labeled ITEM in COLLECTION. If there are several items labeled ITEM, it is undefined which one is returned. If there is no such item, or the item has no attributes, return nil. ITEM can also be an object path, which is used if contained in COLLECTION. (fn COLLECTION ITEM) (defalias 'secrets-get-attributes #[514 "\303\"\211\211;?\206 \211\230\262?\205 \304\305\306\307 \n\310%\"\207" [secrets-empty-path secrets-service secrets-interface-item secrets-item-path mapcar #[257 "\300\301@P!A@B\207" [intern ":"] 4 "\n\n(fn ATTRIBUTE)"] dbus-get-property :session "Attributes"] 11 (#$ . 16068)]) #@334 Return the value of ATTRIBUTE of item labeled ITEM in COLLECTION. If there are several items labeled ITEM, it is undefined which one is returned. If there is no such item, or the item doesn't own this attribute, return nil. ITEM can also be an object path, which is used if contained in COLLECTION. (fn COLLECTION ITEM ATTRIBUTE) (defalias 'secrets-get-attribute #[771 "\300\301\"\"A\207" [assoc secrets-get-attributes] 8 (#$ . 16716)]) #@218 Delete item labeled ITEM in COLLECTION. If there are several items labeled ITEM, it is undefined which one is deleted. ITEM can also be an object path, which is used if contained in COLLECTION. (fn COLLECTION ITEM) (defalias 'secrets-delete-item #[514 "\303\"\211\211;?\206 \211\230\262?\205 \304\305\306 \n\307%!\207" [secrets-empty-path secrets-service secrets-interface-item secrets-item-path secrets-prompt dbus-call-method :session "Delete"] 10 (#$ . 17166)]) #@40 Keymap used in `secrets-mode' buffers. (defvar secrets-mode-map (byte-code "\302 \303\304 \"\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\211\207" [special-mode-map widget-keymap make-sparse-keymap set-keymap-parent make-composed-keymap define-key "n" next-line "p" previous-line "z" kill-current-buffer] 6) (#$ . 17646)) (defvar secrets-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [secrets-mode-hook variable-documentation put "Hook run after entering Secrets mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp secrets-mode-map definition-name secrets-mode] 4) (defvar secrets-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" [secrets-mode-abbrev-table secrets-mode-map variable-documentation put purecopy "Keymap for `secrets-mode'." boundp secrets-mode-syntax-table definition-name secrets-mode (lambda (#1=#:def-tmp-var) (defvar secrets-mode-syntax-table #1#)) make-syntax-table "Syntax table for `secrets-mode'." (lambda (#1#) (defvar secrets-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `secrets-mode'." derived-mode-parent special-mode] 5) #@322 Major mode for presenting password entries retrieved by Security Service. In this mode, widgets represent the search results. \{secrets-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `secrets-mode-hook', as the final or penultimate step during initialization. (defalias 'secrets-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 \307 \306\331!\210\332\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name secrets-mode-map secrets-mode-syntax-table secrets-mode-abbrev-table make-local-variable t special-mode secrets-mode "Secrets" 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 revert-buffer-function secrets-show-collections tree-widget-after-toggle-functions (secrets-tree-widget-after-toggle-function) run-mode-hooks secrets-mode-hook local-abbrev-table buffer-undo-list] 5 (#$ . 19148) nil]) (put 'secrets-mode 'disabled t) #@211 Display a list of collections from the Secret Service API. The collections are in tree view, that means they can be expanded to the corresponding secret items, which could also be expanded to their attributes. (defalias 'secrets-show-secrets #[0 "\204 \301\302!\207r\303\304!q\210\305p!\210\306 \210\307 )\207" [secrets-enabled message "Secret Service not available" get-buffer-create "*Secrets*" switch-to-buffer-other-window secrets-mode secrets-show-collections] 2 (#$ . 20423) nil]) #@66 Show all available collections. (fn &optional IGNORE NOCONFIRM) (defalias 'secrets-show-collections #[512 "\301\302 \210\303\304!\210\305 \211\205& \211@\306\307\310\311\312BBBBB!\210A\266\202\202 \262)\207" [inhibit-read-only t erase-buffer tree-widget-set-theme "folder" secrets-list-collections widget-create tree-widget :tag :collection (:open nil :sample-face bold :expander secrets-expand-collection)] 11 (#$ . 20918)]) #@58 Expand items of collection shown as WIDGET. (fn WIDGET) (defalias 'secrets-expand-collection #[257 "\300\301\"\302\303\304\305\306\307!\310\"\311\312%\313!\"\207" [widget-get :collection mapcar make-byte-code 257 "\301\302\303\300\304\305BBBBBBB\207" vconcat vector [tree-widget :tag :collection :item (:open nil :sample-face bold :expander secrets-expand-item)] 9 "\n\n(fn ITEM)" secrets-list-items] 9 (#$ . 21357)]) #@70 Expand password and attributes of item shown as WIDGET. (fn WIDGET) (defalias 'secrets-expand-item #[257 "\300\301\"\300\302\"\303\"\304\305\306GT\307\310\"B\"\311\312\306\313\314\315\316\n\n\"\317\320\321\322\323\324\325\306GZ\326\"\327Q\257 \307\330\331\332\333\334!\335\"\336\337%\"B\207" [widget-get :collection :item secrets-get-attributes apply max "password" mapcar #[257 "\300@!G\207" [symbol-name] 3 "\n\n(fn ATTRIBUTE)"] editable-field :tag :secret 42 :value secrets-get-secret :sample-face widget-button-pressed :size 0 :format "%{%t%}:" make-string 32 "%v\n" make-byte-code 257 "\301\302@!\303\"A\304\305\306\307\310\311\312\313\314\315\300GZ\316\"\317Q\257 \207" vconcat vector [substring symbol-name 1 editable-field :tag :value :sample-face widget-documentation :size 0 :format "%{%t%}:" make-string 32 "%v\n"] 17 "\n\n(fn ATTRIBUTE)"] 21 (#$ . 21789)]) #@72 Add a temporary widget to show the password. (fn WIDGET &rest IGNORE) (defalias 'secrets-tree-widget-after-toggle-function #[385 "\300\301\"\211\203) \211@\302\303\"\203\" \304!b\210\305\306!\210\307\310\311\312\313%\210A\266\202\202 \210\314 \207" [widget-get :children widget-member :secret widget-field-end widget-insert " " widget-create-child-and-convert push-button :notify secrets-tree-widget-show-password "Show password" widget-setup] 10 (#$ . 22684)]) #@71 Show password, and remove temporary widget. (fn WIDGET &rest IGNORE) (defalias 'secrets-tree-widget-show-password #[385 "\300\301\"\302\303\304#\210\305\300\306\"\"\210\307 \207" [widget-get :parent widget-put :secret nil widget-default-value-set :value widget-setup] 8 (#$ . 23159)]) (byte-code "\306\307\310#\203- \311 \210\312\307 \n \313\314&\210\312\307\f \315\316&\210\312\307\f \317\316&\210\320\321\322!\207" [secrets-service dbus-service-dbus dbus-path-dbus dbus-interface-dbus secrets-path secrets-interface-service dbus-ping :session 100 secrets-open-session dbus-register-signal "NameOwnerChanged" #[128 "\203 \305\306\"\210 \307\211\211\207" [secrets-debug secrets-empty-path secrets-session-path secrets-prompt-signal secrets-collection-paths message "Secret Service has changed: %S" nil] 5 "\n\n(fn &rest ARGS)"] "CollectionCreated" secrets-collection-handler "CollectionDeleted" t provide secrets secrets-enabled] 8)
Close
