scripts/get-recognized-gfm-languages.el

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