comparison lisp/net/secrets.el @ 107397:6c48d0b283da

* net/secrets.el (secrets-enabled): New variable. Use it instead of a subfeature.

107396:d5de7ba3f80f

;; In order to activate this package, you must add the following code
;; into your .emacs:
;;
;;   (require 'secrets)

;; It can be checked afterwards, whether there is a daemon providing
;; this interface:
;;
;;   (featurep 'secrets 'enabled)

;; The atomic objects to be managed by the Secret Service API are
;; secret items, which are something an application wishes to store
;; securely.  A good example is a password that an application needs
;; to save and use at a later date.

(declare-function dbus-call-method "dbusbind.c")
(declare-function dbus-register-signal "dbusbind.c")
(defvar dbus-debug)

(require 'dbus)

(defvar secrets-debug t
  "Write debug messages")

(defconst secrets-service "org.freedesktop.secrets"

      (secrets-prompt
       (dbus-call-method
	:session secrets-service item-path
	secrets-interface-item "Delete")))))

(if (dbus-ping :session secrets-service 100)

    (progn
      ;; We must reset all variables, when there is a new instance of
      ;; the "org.freedesktop.secrets" service.
      (dbus-register-signal
       :session dbus-service-dbus dbus-path-dbus
       dbus-interface-dbus "NameOwnerChanged"
       (lambda (&rest args)
	 (when secrets-debug (message "Secret Service has changed: %S" args))
	 (setq secrets-session-path secrets-empty-path
	       secrets-prompt-signal nil
	       secrets-collection-paths nil))
       secrets-service)

      ;; We want to refresh our cache, when there is a change in
      ;; collections.
      (dbus-register-signal
       :session secrets-service secrets-path
       secrets-interface-service "CollectionCreated"
       'secrets-collection-handler)

      (dbus-register-signal
       :session secrets-service secrets-path
       secrets-interface-service "CollectionDeleted"
       'secrets-collection-handler)

      ;; We shall inform, whether the secret service is enabled on
      ;; this machine.
      (provide 'secrets '(enabled)))

  (provide 'secrets))

;;; TODO:

;; * secrets-debug should be structured like auth-source-debug to
;;   prevent leaking sensitive information.  Right now I don't see

107397:6c48d0b283da

;; In order to activate this package, you must add the following code
;; into your .emacs:
;;
;;   (require 'secrets)
;;
;; Afterwards, the variable `secrets-enabled' is non-nil when there is
;; a daemon providing this interface.

;; The atomic objects to be managed by the Secret Service API are
;; secret items, which are something an application wishes to store
;; securely.  A good example is a password that an application needs
;; to save and use at a later date.

(declare-function dbus-call-method "dbusbind.c")
(declare-function dbus-register-signal "dbusbind.c")
(defvar dbus-debug)

(require 'dbus)

(defvar secrets-enabled nil
  "Whether there is a daemon offering the Secret Service API."

(defvar secrets-debug t
  "Write debug messages")

(defconst secrets-service "org.freedesktop.secrets"

      (secrets-prompt
       (dbus-call-method
	:session secrets-service item-path
	secrets-interface-item "Delete")))))

(when (dbus-ping :session secrets-service 100)

  ;; We must reset all variables, when there is a new instance of the
  ;; "org.freedesktop.secrets" service.
  (dbus-register-signal
   :session dbus-service-dbus dbus-path-dbus
   dbus-interface-dbus "NameOwnerChanged"
   (lambda (&rest args)
     (when secrets-debug (message "Secret Service has changed: %S" args))
     (setq secrets-session-path secrets-empty-path
	   secrets-prompt-signal nil
	   secrets-collection-paths nil))
   secrets-service)

  ;; We want to refresh our cache, when there is a change in
  ;; collections.
  (dbus-register-signal
   :session secrets-service secrets-path
   secrets-interface-service "CollectionCreated"
   'secrets-collection-handler)

  (dbus-register-signal
   :session secrets-service secrets-path
   secrets-interface-service "CollectionDeleted"
   'secrets-collection-handler)

  ;; We shall inform, whether the secret service is enabled on this
  ;; machine.
  (setq secrets-enabled t)))

(provide 'secrets)

;;; TODO:

;; * secrets-debug should be structured like auth-source-debug to
;;   prevent leaking sensitive information.  Right now I don't see