Current File : //usr/local/share/emacs/27.2/lisp/net/secrets.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\"\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)
Mini Shell