emacs-config/lisp/custom/ol-sflogin.el

;;; ol-sflogin.el --- Support for links to auto-login to Salesforce

;;; Commentary:

;;; Code:

(require 'ol)

(defun org-sflogin-complete (result)
  "Login to SF is complete with RESULT."
  (message "Launching Org in Browser..."))

(defun org-sflogin-command (username)
  "The command used to login to salesforce with USERNAME directly."
  (message "Logging into Salesforce...")
  (async-start-process "sfdx:login" "sfdx" 'org-sflogin-complete "force:org:open" "-u" username))

(org-link-set-parameters "sflogin"
                         :follow #'org-sflogin-command)

(provide 'ol-sflogin)
;;; ol-sflogin.el ends here