(defun my-copy-link (&optional filename skip-links)
  "Return the URL of this file.
If FILENAME is non-nil, use that instead.
If SKIP-LINKS is non-nil, skip custom links.
If we're in a Dired buffer, use the file at point."
  (interactive)
  (setq filename (or filename
                     (if (derived-mode-p 'dired-mode) (dired-get-filename))
                     (buffer-file-name)))
  (if-let*
      ((project-re (concat "\\(" (regexp-opt (mapcar 'car my-project-web-base-list)) "\\)"
                           "\\(.*\\)"))
       (url (cond
             ((and (derived-mode-p 'org-mode)
                   (eq (org-element-type (org-element-context)) 'link)
                   (not skip-links))
              (pcase (org-element-property :type (org-element-context))
                ((or "https" "http")
                 (org-element-property :raw-link (org-element-context)))
                ("yt"
                 (org-element-property :path (org-element-context)))
                ;; if it's a custom link, visit it and get the link
                (_
                 (save-window-excursion
                   (org-open-at-point)
                   (my-copy-link nil t)))))
             ;; links to my config usually have a CUSTOM_ID property
             ((string= (buffer-file-name) (expand-file-name "~/sync/emacs/Sacha.org"))
              (concat "https://sachachua.com/dotemacs#" (org-entry-get-with-inheritance "CUSTOM_ID")))
             ;; blog post drafts have permalinks
             ((and (derived-mode-p 'org-mode) (org-entry-get-with-inheritance "EXPORT_ELEVENTY_PERMALINK"))
              (concat "https://sachachua.com" (org-entry-get-with-inheritance "EXPORT_ELEVENTY_PERMALINK")))
             ;; some projects have web repos
             ((string-match
               project-re filename)
              (concat (assoc-default (match-string 1 filename) my-project-web-base-list)
                      (url-hexify-string (match-string 2 filename)))))))
      (progn
        (when (called-interactively-p 'any)
          (kill-new url)
          (message "%s" url))
        url)
    (error "Couldn't figure out URL.")))

(defun my-org-link-as-url (link)
  "Return the final URL for LINK."
  (dom-attr
   (dom-by-tag
    (with-temp-buffer
      (insert (org-export-string-as link 'html t))
      (xml-parse-region (point-min) (point-max)))
    'a)
   'href))

(defun my-org-stored-link-as-url (&optional link insert)
  "Copy the stored link as a plain URL.
If LINK is specified, use that instead."
  (interactive (list nil current-prefix-arg))
  (setq link (or link (caar org-stored-links)))
  (let ((url (if link
                 (my-org-link-as-url link)
               (error "No stored link"))))
    (when (called-interactively-p 'any)
      (if url
          (if insert (insert url) (kill-new url))
        (error "Could not find URL.")))
    url))

(ert-deftest my-org-stored-link-as-url ()
  (should
   (string= (my-org-stored-link-as-url "[[dotemacs:web-link]]")
            "https://sachachua.com/dotemacs#web-link"))
  (should
   (string= (my-org-stored-link-as-url "[[dotemacs:org-mode-sketch-links][my Org Mode sketch links]]")
            "https://sachachua.com/dotemacs#org-mode-sketch-links")))

(defun my-embark-org-copy-exported-url-as-wayback (link &rest _)
  (interactive "MLink: ")
  (let ((url  (my-embark-org-copy-exported-url link)))
    (when (not (string-match (regexp-quote "^https://web.archive.org") url))
      (setq url (concat "https://web.archive.org/web/" (format-time-string "%Y%m%d%H%M%S/")
                        url)))
    (when (called-interactively-p 'any)
      (kill-new url)
      (message "Copied %s" url))
    url))

(defun my-embark-org-copy-exported-url (link &rest _)
  (interactive "MLink: \np")
  (let ((url (my-org-link-as-url link)))
    (when (and (derived-mode-p 'org-mode)
               (org-entry-get-with-inheritance "EXPORT_ELEVENTY_PERMALINK")
               (string-match "^/" url))
      ;; local file links are copied to blog directories
      (setq url (concat "https://sachachua.com"
                        (org-entry-get-with-inheritance "EXPORT_ELEVENTY_PERMALINK")
                        (replace-regexp-in-string
                         "[\\?&].*"
                         ""
                         (file-name-nondirectory link)))))
    (when (called-interactively-p 'any)
      (kill-new url)
      (message "Copied %s" url))
    url))

(defun my-embark-replace-link-with-exported-url (link &rest _)
  (my-insert-or-replace-link (my-org-link-as-url link)))

(with-eval-after-load 'embark-org
  (mapc (lambda (map)
          (keymap-set map "u" #'my-embark-org-copy-exported-url)
          (keymap-set map "U" #'my-embark-org-copy-exported-url-as-wayback)
          (keymap-set map "r" #'my-embark-replace-link-with-exported-url))
        (list embark-url-map embark-org-link-map embark-org-link-copy-map)))

(defun my-consult-ripgrep-code ()
  (interactive)
  (consult-ripgrep (mapcar 'car my-project-web-base-list)))

(cl-pushnew (cons (expand-file-name "~/sync/emacs/Sacha.org") nil)
            my-project-web-base-list
            :test 'equal)
(cl-pushnew (cons (expand-file-name "~/proj/static-blog/_includes") nil)
            my-project-web-base-list
            :test 'equal)
(cl-pushnew (cons (expand-file-name "~/bin") nil)
            my-project-web-base-list
            :test 'equal)

(cl-pushnew (cons (expand-file-name "~/proj/static-blog/blog/") "https://sachachua.com/blog/")
            my-project-web-base-list
            :test 'equal)
(cl-pushnew (cons (expand-file-name "~/sync/orgzly") nil)
            my-project-web-base-list
            :test 'equal)

(keymap-global-set "M-s c" #'my-consult-ripgrep-code)