如何得到英文的星期几?

emacs有没有方便的内置函数可以得到英文的星期几, 我自己电脑上

(format-time-string "%A")

得到的是中文的"星期一"

目前使用的是

(defun maple/get-weekday()
  "Show weekday of today."
  (car (rassq (string-to-number (format-time-string "%w"))
              '(("Sunday" . 0)
                ("Monday" . 1)
                ("Tuesday" . 2)
                ("Wednesday" . 3)
                ("Thursday" . 4)
                ("Friday" . 5)
                ("Saturday" . 6)))))
(let ((system-time-locale "en_US.UTF-8"))
  (format-time-string "%A"))
;; => "Monday"
3 个赞