scripts/get-recognized-gfm-languages.el

   1 (require 'cl-lib)
   2
   3 (let ((urlbuf
   4        (url-retrieve-synchronously
   5         "https://raw.githubusercontent.com/github/linguist/master/lib/linguist/languages.yml"
   6         t)))
   7   (prog1 (with-current-buffer urlbuf
   8            (goto-char (point-min))
   9            ;; get past http headers
  10            (re-search-forward "^$")
  11            (cl-loop while (re-search-forward "^\\([^#[:space:]][^:]+\\):" nil t)
  12                     for lang = (match-string-no-properties 1)
  13                     collect (replace-regexp-in-string " " "-" lang)))
  14     (kill-buffer urlbuf)))