之前，??我在寫(xiě)??? 有關(guān) ??embark?? 的內(nèi)容，我的第一設(shè)備為啟動(dòng)遠(yuǎn)程視頻流設(shè)計(jì)了一個(gè)新的 embark。embark 的作者 Omar Antolín Camarena 不僅閱讀了這篇內(nèi)容，還點(diǎn)評(píng)了一下我認(rèn)為值得跟進(jìn)的一些重大改進(jìn)。

首先，你應(yīng)該記得我們?cè)x過(guò)一個(gè)檢測(cè)視頻 URL 的函數(shù)：

(defun jao-video-finder ()
      "Check whether we're looking at a video URL.
    Return (video-url . <URL>) if so."
      (when-let ((url (thing-at-point-url-at-point)))
        (when (string-match-p jao-video-url-rx url)
          (cons 'video-url url))))

當(dāng)我們得到了一個(gè)非空的 ??url?? 值，即便它不是一個(gè)視頻鏈接，但它仍然是一個(gè)確切的 URL，并且 embark 已有了一個(gè) ??url?? 類(lèi)別，所以我們可以借助默認(rèn)的 URL 尋檢器存儲(chǔ)一個(gè)新的句法分析,語(yǔ)句如下：

(when-let ((url (thing-at-point-url-at-point)))
      (cons (if (string-match-p jao-video-url-rx url) 'video-url 'url) url))

這里有一個(gè)潛在的缺點(diǎn)就是：我們重寫(xiě)了 embark 的尋檢器，??embark-target-url-at-point??，所以我們可能更愿意保留后者。

實(shí)際上多虧了 embark 的 目標(biāo)轉(zhuǎn)換器 我們才能做成。我們可以在 ??embark-transformers-alist?? 中添加任意一個(gè)函數(shù)，應(yīng)用于任何一個(gè)給定類(lèi)別的目標(biāo)，而 embark 會(huì)將其轉(zhuǎn)換后的值應(yīng)用于它的操作中。Omar 很貼切地把這個(gè)過(guò)程稱(chēng)為“目標(biāo)的精化”;我們具體做法如下：

(defun jao-refine-url-type (url)
      "Refine type of URL in case it is a video."
      (cons (if (string-match-p jao-video-url-rx url) 'video-url 'url) url))
    (add-to-list 'embark-transformer-alist '(url . jao-refine-url-type))

通過(guò)這種策略，我們就不再需要 ??jao-video-finder?? 了，而且從概念上來(lái)說(shuō)，我們的 ??video-url?? 應(yīng)該被定義為一個(gè)精化操作而并非是一個(gè)目標(biāo) [腳注 1]。Omar 的第二個(gè)提議也與這個(gè)概念相契合：想必我們都希望所有關(guān)于 ??url?? 和我們的 ??video-url?? 的操作都是可用的，不是嗎？ 唔，這就是為什么我們用來(lái)定義行為的 ??embark-define-keymap?? 的宏可以通過(guò)使用關(guān)鍵字 [腳注 2] ??:parent?? 繼承其他鍵映射中已經(jīng)定義的所有操作的原因：

(embark-define-keymap jao-video-url-map
      "Actions on URLs pointing to remote video streams."
      :parent embark-url-map
      ("p" jao-play-video-url))
    (add-to-list 'embark-keymap-alist '(video-url . jao-video-url-map))

這種繼承鍵映射的功能并非是 embark 的附屬功能：vanilla Emacs 鍵映射通過(guò)標(biāo)準(zhǔn)函數(shù) ??set-keymap-parent?? 已經(jīng)搞定它了。你可以完全不用 ??embark-define-keymap?? 來(lái)定義 ??jao-video-url-map??，工作原理是一樣的。

這樣，我們的代碼就能夠更短，特征更多：謝謝你，Omar！

腳注 1：在某些情況下，保留 jao-video-finder 是有意義的，即，如果我們想要改變檢測(cè) URL 的功能的話。例如，我在使用 emacs-w3m 的時(shí)候，經(jīng)常有一個(gè) URL 作為文本屬性儲(chǔ)存了起來(lái)(實(shí)際文本是個(gè)鏈接文本)。要通過(guò)那里檢索 URL，就需要調(diào)用 ??w3m-anchor??，而用 ??embark-target-url-at-point?? 就會(huì)錯(cuò)過(guò)它。對(duì)于這種情況，我最終編寫(xiě)(并使用)??jao-video-finder?? 將其通過(guò)下文定義:

(when-let ((url (or (w3m-anchor) (thing-at-point-url-at-point))))
      (cons (if (string-match-p jao-video-url-rx url) 'video-url 'url) url))

另一種達(dá)成同件事情的方式（再次向 Omar 致敬）便是為 w3m 的錨點(diǎn)放置一個(gè)特定的巡檢器（且繼續(xù)使用 video-url 的轉(zhuǎn)換器）：

(defun jao-w3m-url-finder ()
      (when-let ((url (w3m-anchor)))
        (cons 'url url)))
    (add-to-list 'embark-target-finders #'jao-w3m-url-finder)

這種方法更加模塊化，并且取決于你們的喜好，且更加巧妙。這些功能都很小巧并且兩種方法之間并沒(méi)有太大的差別，但是如果其中某一種繼續(xù)加入更多尋檢器的話，前一種方法用起來(lái)來(lái)反而會(huì)讓一切變得更糟。

腳注 2：在我最開(kāi)始的例子中，我在視頻地圖中還添加了 ??browse-url?? 和 ??browse-url-firefox??。前一個(gè)已不再重要，因?yàn)樗呀?jīng)在 ??embark-url-map?? 中出現(xiàn)過(guò)了，如果我們想讓 ??browse-url-firefox?? 對(duì) 所有 的 URLs 可用,我們可以將其加入到 ??embark-url-map?? （謹(jǐn)記，embark 的鍵映射只是 Emacs 的鍵映射）。這是另一種擴(kuò)展 embark 的簡(jiǎn)便方法。

（題圖：MJ:emacs video geek wallpaper dark plain background Illustration）