WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/secrets.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:33 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/secrets.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\"\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 (#$ . 833))
#@22 Write debug messages
(defvar secrets-debug t (#$ . 938))
#@48 The D-Bus name used to talk to Secret Service.
(defconst secrets-service "org.freedesktop.secrets" (#$ . 1001))
#@60 The D-Bus root object path used to talk to Secret Service.
(defconst secrets-path "/org/freedesktop/secrets" (#$ . 1119))
#@53 The D-Bus object path representing an empty object.
(defconst secrets-empty-path "/" (#$ . 1247))
#@66 Check, whether PATH is a valid object path.
It returns t if not.
(defalias 'secrets-empty-path #[(path) ";?\206		\230\207" [path secrets-empty-path] 2 (#$ . 1351)])
(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" (#$ . 1595))
#@43 A collection of items containing secrets.
(defconst secrets-interface-collection "org.freedesktop.Secret.Collection" (#$ . 1738))
#@53 The D-Bus temporary session collection object path.
(defconst secrets-session-collection-path "/org/freedesktop/secrets/collection/session" (#$ . 1874))
#@70 A session tracks state between the service and a client application.
(defconst secrets-interface-prompt "org.freedesktop.Secret.Prompt" (#$ . 2033))
#@43 A collection of items containing secrets.
(defconst secrets-interface-item "org.freedesktop.Secret.Item" (#$ . 2188))
#@37 The default item type we are using.
(defconst secrets-interface-item-type-generic "org.freedesktop.Secret.Generic" (#$ . 2312))
#@70 A session tracks state between the service and a client application.
(defconst secrets-interface-session "org.freedesktop.Secret.Session" (#$ . 2446))
#@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 (#$ . 2604))
#@43 Close the secret service session, if any.
(defalias 'secrets-close-session #[nil "\302\303\304\217\210\211\207" [secrets-empty-path secrets-session-path err (dbus-call-method :session secrets-service secrets-session-path secrets-interface-session "Close") ((dbus-error (byte-code "\203\302	@	A\"\210\302\207" [dbus-debug err signal] 3)))] 3 (#$ . 2789)])
#@229 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'.
(defalias 'secrets-open-session #[(&optional reopen) "\203\306 \210	\211;?\206\n\230)\203(\307\310\f
\311\312\313&\211A@)\2032\314\315	\"\210	\207" [reopen secrets-session-path path secrets-empty-path secrets-service secrets-path secrets-close-session dbus-call-method :session "OpenSession" "plain" (:variant "") message "Secret Service session: %s" secrets-interface-service x secrets-debug] 9 (#$ . 3156)])
#@69 Internal variable to catch signals from `secrets-interface-prompt'.
(defvar secrets-prompt-signal nil (#$ . 3817))
#@53 Handle the prompt identified by object path PROMPT.
(defalias 'secrets-prompt #[(prompt) "\211;?\206	\n\230)?\205;\306\307\f\310\311&\312\307\f\313\314\315\316\"&\210\317\216\2047\320\315\211\321#\210\202)@*\207" [prompt path secrets-empty-path secrets-service secrets-interface-prompt object dbus-register-signal :session "Completed" secrets-prompt-handler dbus-call-method "Prompt" frame-parameter nil window-id ((byte-code "\302\303	!\207" [secrets-prompt-signal object nil dbus-unregister-object] 2)) read-event 0.1 secrets-prompt-signal] 10 (#$ . 3938)])
#@60 Handler for signals emitted by `secrets-interface-prompt'.
(defalias 'secrets-prompt-handler #[(&rest args) "@\203\n	C\211\207\211A@)\211\207" [args secrets-empty-path secrets-prompt-signal x] 3 (#$ . 4523)])
#@53 Cached D-Bus object paths of available collections.
(defvar secrets-collection-paths nil (#$ . 4744))
#@61 Handler for signals emitted by `secrets-interface-service'.
(defalias 'secrets-collection-handler #[(&rest args) "\303!\304\230\203\305\302	@\"\207\303!\306\230\205\307	@\n\"\211\207" [last-input-event args secrets-collection-paths dbus-event-member-name "CollectionCreated" add-to-list "CollectionDeleted" delete] 3 (#$ . 4852)])
#@55 Return the object paths of all available collections.
(defalias 'secrets-get-collections #[nil "\206\304\305	\n\306%\211\207" [secrets-collection-paths secrets-service secrets-path secrets-interface-service dbus-get-property :session "Collections"] 6 (#$ . 5196)])
#@68 Return all properties of collection identified by COLLECTION-PATH.
(defalias 'secrets-get-collection-properties #[(collection-path) "\211;?\206	\n\230)?\205\305\306\f$\207" [collection-path path secrets-empty-path secrets-service secrets-interface-collection dbus-get-all-properties :session] 6 (#$ . 5472)])
#@71 Return property PROPERTY of collection identified by COLLECTION-PATH.
(defalias 'secrets-get-collection-property #[(collection-path property) "\211;?\206	\n\230)\206;??\205\306\307\f
%\207" [collection-path path secrets-empty-path property secrets-service secrets-interface-collection dbus-get-property :session] 7 (#$ . 5795)])
#@36 Return a list of collection names.
(defalias 'secrets-list-collections #[nil "\300\301\302 \"\207" [mapcar #[(collection-path) "	\230\203\302\207\303\304\"\207" [collection-path secrets-session-collection-path "session" secrets-get-collection-property "Label"] 3] secrets-get-collections] 3 (#$ . 6141)])
#@160 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.
(defalias 'secrets-collection-path #[(collection) "\203\n\306\230\203	\2063\307\310\n\f\311&\211\211\f;?\206&\f
\230)?\205,
)\2063\312\313\215\207" [collection secrets-session-collection-path secrets-service secrets-path secrets-interface-service collection-path "session" dbus-call-method :session "ReadAlias" collection-found (byte-code "\303 \304\211\203!	@\n\305\306\"\230\203\307\310\"\210	A\211\204	\304*\304\207" [collection-path --dolist-tail-- collection secrets-get-collections nil secrets-get-collection-property "Label" throw collection-found] 5) path secrets-empty-path] 8 (#$ . 6457)])
#@104 Create collection labeled COLLECTION if it doesn't exist.
Return the D-Bus object path for collection.
(defalias 'secrets-create-collection #[(collection) "\306!\211\211;?\206\n\230)\203-\307\310\311\f
\312\313\314\315\316DED&\211A@)!	)\207" [collection collection-path path secrets-empty-path secrets-service secrets-path secrets-collection-path secrets-prompt dbus-call-method :session "CreateCollection" :array :dict-entry "Label" :variant secrets-interface-service x] 13 (#$ . 7250)])
#@112 Return the collection name ALIAS is referencing to.
For the time being, only the alias "default" is supported.
(defalias 'secrets-get-alias #[(alias) "\304\305\306	\n\307&\310\"\207" [secrets-service secrets-path secrets-interface-service alias secrets-get-collection-property dbus-call-method :session "ReadAlias" "Label"] 8 (#$ . 7760)])
#@113 Set ALIAS as alias of collection labeled COLLECTION.
For the time being, only the alias "default" is supported.
(defalias 'secrets-set-alias #[(collection alias) "\306!\211\211;?\206\n\230)?\205!\307\310\f
\311\f\312	&)\207" [collection collection-path path secrets-empty-path secrets-service secrets-path secrets-collection-path dbus-call-method :session "SetAlias" :object-path secrets-interface-service alias] 10 (#$ . 8110)])
#@44 Delete ALIAS, referencing to a collection.
(defalias 'secrets-delete-alias #[(alias) "\305\306	\n\307\310\f&\207" [secrets-service secrets-path secrets-interface-service alias secrets-empty-path dbus-call-method :session "SetAlias" :object-path] 9 (#$ . 8557)])
#@96 Unlock collection labeled COLLECTION.
If successful, return the object path of the collection.
(defalias 'secrets-unlock-collection #[(collection) "\306!\211\211;?\206\n\230)\204)\307\310\311\f

\312\313\314	E&\211A@)!\210	)\207" [collection collection-path path secrets-empty-path secrets-service secrets-path secrets-collection-path secrets-prompt dbus-call-method :session "Unlock" :array :object-path secrets-interface-service x] 11 (#$ . 8828)])
#@39 Delete collection labeled COLLECTION.
(defalias 'secrets-delete-collection #[(collection) "\306!\211\211;?\206\n\230)?\205\307\310\311\f	
\312%!)\207" [collection collection-path path secrets-empty-path secrets-service secrets-interface-collection secrets-collection-path secrets-prompt dbus-call-method :session "Delete"] 8 (#$ . 9296)])
#@68 Return the object paths of all available items in COLLECTION-PATH.
(defalias 'secrets-get-items #[(collection-path) "\211;?\206	\n\230)?\205\305 \210\306\307\f\310%\207" [collection-path path secrets-empty-path secrets-service secrets-interface-collection secrets-open-session dbus-get-property :session "Items"] 7 (#$ . 9649)])
#@56 Return all properties of item identified by ITEM-PATH.
(defalias 'secrets-get-item-properties #[(item-path) "\211;?\206	\n\230)?\205\305\306\f$\207" [item-path path secrets-empty-path secrets-service secrets-interface-item dbus-get-all-properties :session] 6 (#$ . 9992)])
#@59 Return property PROPERTY of item identified by ITEM-PATH.
(defalias 'secrets-get-item-property #[(item-path property) "\211;?\206	\n\230)\206;??\205\306\307\f
%\207" [item-path path secrets-empty-path property secrets-service secrets-interface-item dbus-get-property :session] 7 (#$ . 10279)])
#@49 Return a list of all item labels of COLLECTION.
(defalias 'secrets-list-items #[(collection) "\304!\211\211;?\206\n\230)?\205\305\306\307	!\")\207" [collection collection-path path secrets-empty-path secrets-unlock-collection mapcar #[(item-path) "\301\302\"\207" [item-path secrets-get-item-property "Label"] 3] secrets-get-items] 5 (#$ . 10590)])
#@310 Search items in COLLECTION with ATTRIBUTES.
ATTRIBUTES are key-value pairs.  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 object paths of the found items are returned as list.
(defalias 'secrets-search-items #[(collection &rest attributes) "\306!\307\211\211\211;?\206\f
\230)?\205wA:\203S\310@!\204.\311\312@\"\210\313\301\314\315@!\316\307O\211A@)E\317#\211AA)\211\202\320\321\322	\203e\323	B\202f\324&\325\326\317\n@\n\211A@)\"\"+\207" [collection props result collection-path path secrets-empty-path secrets-unlock-collection nil keywordp error wrong-type-argument add-to-list :dict-entry symbol-name 1 append dbus-call-method :session "SearchItems" :array (:array :signature "{ss}") mapcar #[(item-path) "\301\302\"\207" [item-path secrets-get-item-property "Label"] 3] attributes x secrets-service secrets-interface-collection] 9 (#$ . 10955)])
#@353 Create a new item in COLLECTION with label ITEM and password PASSWORD.
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 object path of the created item is returned.
(defalias 'secrets-create-item #[(collection item password &rest attributes) "\306	!\235?\205\240\307	!\310\211\211\211;?\206
\230)?\205\237 A:\203]\311 @!\2048\312\313 @\"\210\314\302\315\316 @!\317\310O \211!A@)E\320# \211!AA)\211 \202$\321\322\"\f#\323\320\324\315\325\326DE\315\327\326$DEE\n\205\203\315\330\326\320\331\n\"DEC\"\332\333%\334\335&!\257\310&\336\211!A@)!\210@+\207" [item collection props result collection-path path secrets-list-items secrets-unlock-collection nil keywordp error wrong-type-argument add-to-list :dict-entry symbol-name 1 append dbus-call-method :session "CreateItem" :array "Label" :variant "Type" "Attributes" (:array) :struct :object-path (:array :signature "y") dbus-string-to-byte-array secrets-prompt secrets-empty-path attributes x secrets-service secrets-interface-collection secrets-interface-item-type-generic secrets-session-path password] 15 (#$ . 11989)])
#@98 Return the object path of item labeled ITEM in COLLECTION.
If there is no such item, return nil.
(defalias 'secrets-item-path #[(collection item) "\302!\303\304\215)\207" [collection collection-path secrets-unlock-collection item-found (byte-code "\304!\305\211\205#\n@\306	\307\"\230\203\310\311	\"\210\nA\211\204\n\305*\207" [collection-path item-path --dolist-tail-- item secrets-get-items nil secrets-get-item-property "Label" throw item-found] 5)] 2 (#$ . 13289)])
#@93 Return the secret of item labeled ITEM in COLLECTION.
If there is no such item, return nil.
(defalias 'secrets-get-secret #[(collection item) "\306	\"\211\211;?\206\f\230)?\205&\307\310\311
\n\f\312\313
&AA@!)\207" [collection item item-path path secrets-empty-path secrets-service secrets-item-path dbus-byte-array-to-string dbus-call-method :session "GetSecret" :object-path secrets-interface-item secrets-session-path] 10 (#$ . 13777)])
#@135 Return the lookup attributes of item labeled ITEM in COLLECTION.
If there is no such item, or the item has no attributes, return nil.
(defalias 'secrets-get-attributes #[(collection item) ";\204\306\307	\"\211\211;?\206\f\230)?\205'\310\311\312\313
\n
\314%\")\207" [collection item item-path path secrets-empty-path secrets-service "default" secrets-item-path mapcar #[(attribute) "\302\303@P!\211A@)B\207" [attribute x intern ":"] 4] dbus-get-property :session "Attributes" secrets-interface-item] 9 (#$ . 14234)])
#@145 Return the value of ATTRIBUTE of item labeled ITEM in COLLECTION.
If there is no such item, or the item doesn't own this attribute, return nil.
(defalias 'secrets-get-attribute #[(collection item attribute) "\303\304	\n\"\"A\207" [attribute collection item assoc secrets-get-attributes] 5 (#$ . 14773)])
#@28 Delete ITEM in COLLECTION.
(defalias 'secrets-delete-item #[(collection item) "\306	\"\211\211;?\206\f\230)?\205\307\310\311
\n\312%!)\207" [collection item item-path path secrets-empty-path secrets-service secrets-item-path secrets-prompt dbus-call-method :session "Delete" secrets-interface-item] 8 (#$ . 15084)])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [secrets-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar secrets-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" [secrets-mode-map variable-documentation put purecopy "Keymap for `secrets-mode'." boundp secrets-mode-syntax-table definition-name secrets-mode] 5)
(defvar secrets-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [secrets-mode-syntax-table variable-documentation put purecopy "Syntax table for `secrets-mode'." secrets-mode-abbrev-table definition-name secrets-mode] 5)
(defvar secrets-mode-abbrev-table (progn (define-abbrev-table 'secrets-mode-abbrev-table nil) secrets-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [secrets-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `secrets-mode'." secrets-mode derived-mode-parent nil] 5)
#@235 Major mode for presenting password entries retrieved by Security Service.
In this mode, widgets represent the search results.

\{secrets-mode-map}

This mode runs the hook `secrets-mode-hook', as the final step
during initialization.
(defalias 'secrets-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315!\316\"\210\317\320\321#\210\306\322!\210\323\324\325!\204@\307\211\326 \210))\327\330!\207" [delay-mode-hooks major-mode mode-name secrets-mode-map secrets-mode-syntax-table secrets-mode-abbrev-table make-local-variable t kill-all-local-variables secrets-mode "Secrets" use-local-map set-syntax-table copy-keymap set-keymap-parent define-key "z" kill-this-buffer tree-widget-after-toggle-functions (secrets-tree-widget-after-toggle-function) called-interactively-p interactive erase-buffer run-mode-hooks secrets-mode-hook local-abbrev-table special-mode-map widget-keymap buffer-read-only inhibit-read-only] 5 (#$ . 16714) nil])
(byte-code "\301\302\303\304#\210\305\306!rq\210\307\216\302 \210+\301\207" [#1=#:temp-buffer put secrets-mode disabled t generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2))] 4)
#@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 #[nil "\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 (#$ . 17934) nil])
#@33 Show all available collections.
(defalias 'secrets-show-collections #[nil "\304\305\306!\307 \210\310\311!\210\312 \313\211\205/@\314\315\316\n\317\n\320BBBBB!\210A\211\204\313,\207" [alias inhibit-read-only coll --dolist-tail-- t secrets-get-alias "default" erase-buffer tree-widget-set-theme "folder" secrets-list-collections nil widget-create tree-widget :tag :collection (:open nil :sample-face bold :expander secrets-expand-collection)] 8 (#$ . 18431)])
#@45 Expand items of collection shown as WIDGET.
(defalias 'secrets-expand-collection #[(widget) "\302\303\"\304\305\306	!\")\207" [widget coll widget-get :collection mapcar #[(item) "\302\303\304	\305\306BBBBBBB\207" [item coll tree-widget :tag :collection :item (:open nil :sample-face bold :expander secrets-expand-item)] 8] secrets-list-items] 4 (#$ . 18907)])
#@57 Expand password and attributes of item shown as WIDGET.
(defalias 'secrets-expand-item #[(widget) "\305\306\"\305\307\"\310	\n\"\311\312\313GT\314\315\"B\"\316\317\313\320\321\322\323	\n\"\324\325\326\327\330\331\332\f\313GZ\333\"\334Q\257
\314\335\",B\207" [widget coll item attributes padding widget-get :collection :item secrets-get-attributes apply max "password" mapcar #[(attribute) "\301@!G\207" [attribute symbol-name] 2] editable-field :tag :secret 42 :value secrets-get-secret :sample-face widget-button-pressed :size 0 :format "%{%t%}:" make-string 32 "%v\n" #[(attribute) "\304@!\305\306OA\307\310\n\311	\312\313\314\315\316\317\320\nGZ\321\"\322Q\257*\207" [attribute value name padding symbol-name 1 nil editable-field :tag :value :sample-face widget-documentation :size 0 :format "%{%t%}:" make-string 32 "%v\n"] 14]] 16 (#$ . 19277)])
#@46 Add a temporary widget to show the password.
(defalias 'secrets-tree-widget-after-toggle-function #[(widget &rest ignore) "\303\304\"\305\211\203-\n@\306	\307\"\203&\310	!b\210\311\312!\210\313	\314\315\316\317%\210\nA\211\204*\320 \207" [widget child --dolist-tail-- widget-get :children nil 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] 7 (#$ . 20149)])
#@45 Show password, and remove temporary widget.
(defalias 'secrets-tree-widget-show-password #[(widget &rest ignore) "\302\303\"\304	\305\306#\210\307	\302	\310\"\"\210\311 )\207" [widget parent widget-get :parent widget-put :secret nil widget-default-value-set :value widget-setup] 5 (#$ . 20647)])
(byte-code "\306\307\310#\203*\311\307	\n\312\313&\210\311\307\f
\314\315&\210\311\307\f
\316\315&\210\317\320\321!\207" [secrets-service dbus-service-dbus dbus-path-dbus dbus-interface-dbus secrets-path secrets-interface-service dbus-ping :session 100 dbus-register-signal "NameOwnerChanged" #[(&rest args) "\203	\306\307	\"\210\n\310\211\211\207" [secrets-debug args secrets-empty-path secrets-session-path secrets-prompt-signal secrets-collection-paths message "Secret Service has changed: %S" nil] 4] "CollectionCreated" secrets-collection-handler "CollectionDeleted" t provide secrets secrets-enabled] 8)
F1l3 Manager
