diff --git a/init.el b/init.el index 878586e..e2dcb5a 100644 --- a/init.el +++ b/init.el @@ -358,6 +358,7 @@ db/scratch db/find-user-init-file db/run-or-hide-ansi-term + db/ement-connect db/hex-to-ascii db/text-to-hex turn-on-lispy-when-available diff --git a/site-lisp/db-customize.el b/site-lisp/db-customize.el index 82cc99d..6cda66f 100644 --- a/site-lisp/db-customize.el +++ b/site-lisp/db-customize.el @@ -20,6 +20,16 @@ :group 'personal-settings :type 'string) +(defcustom db/matrix-user-id "" + "Main Matrix User ID." + :group 'personal-settings + :type 'string) + +(defcustom db/matrix-password-store-entry "" + "Password Store entry for Matrix User ID in `db/matrix-user-id'." + :group 'personal-settings + :type 'string) + (defcustom db/important-documents-path "~/Documents/library/" "Path to look for documents that can be listed in extended search commands like `db/helm-shortcuts’." diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 280b7e0..c940989 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -105,6 +105,16 @@ With ARG, switch to `default-directory' of the current buffer first." (insert (format "cd '%s'" current-dir)) (comint-send-input))))) +(defun db/ement-connect () + "Connect to my matrix account." + (interactive) + (require 'ement) + (let ((password (password-store-get db/matrix-password-store-entry))) + (unless password + (user-error "No pass entry for Matrix password at “%s”" db/matrix-password-store-entry)) + (ement-connect :user-id db/matrix-user-id + :password password))) + ;;; General Utilities