论坛随机页面实现

Emacs-Lisp
1

意义

  • 受到维基百科随机页面启发
  • 对于新人 很多有意义的主题沉了 但没人挖出来
  • 解决选择困难

方案

目前主题一共有14892个，可以修改

(require 'request)
(setq uri (format "https://emacs-china.org/t/%s"
		  (random 14892)))
(request
  uri
  :complete (cl-function
	     (lambda (&key response &allow-other-keys)
	       (if (eq 200 (request-response-status-code response))
		   (browse-url uri)
		 (message "404")))))