diff --git a/lisp/+link-hint.el b/lisp/+link-hint.el index b4584e0..a6999b7 100644 --- a/lisp/+link-hint.el +++ b/lisp/+link-hint.el @@ -39,6 +39,30 @@ If TYPES is nil, define it for `+link-hint-open-secondary-types'." (avy-with link-hint-open-link (link-hint--one :open-secondary))) +(defun +link-hint-open-chrome-setup (&optional types) + "Define the `:open-chrome' link-hint type for TYPES. +If TYPES is nil, define it for `+link-hint-open-secondary-types'." + (dolist (type (or types +link-hint-open-secondary-types)) + (link-hint-define-type type + :open-chrome #'browse-url-chrome + :open-chrome-multiple t))) + +(defun +link-hint-open-chrome () + "Open a link with chrome." + (interactive) + (avy-with link-hint-open-link + (link-hint--one :open-chrome))) + +;; (cl-defmacro +link-hint-add-type (keyword ) +;; "Define link-hint type KEYWORD to operate on TYPES. +;; If TYPES is nil or absent, define KEYWORD for all +;; `link-hint-types'." +;; (let (forms) +;; (dolist (type (or types link-hint-types)) +;; (push `(link-hint-define-type ,type ,keyword ,function) forms)) +;; (push `(defun ,(intern (format "+link-hint%s" ,keyword)) +;; )))) + (defun +link-hint-open-link (prefix) "Open a link. Without a PREFIX, open using `browse-url-browser-function'; with