Merge pull request #8 from emacsist/master

[add]  HTTP request header: Accept-Language, display different lan…

1 files changed, 7 insertions, 0 deletions

diff --git a/wttrin.el b/wttrin.el
index a8d9b85..c92ff1d 100644
--- a/wttrin.el
+++ b/wttrin.el
@@ -27,9 +27,16 @@
   :group 'wttrin
   :type 'list)
 
+(defcustom wttrin-default-accept-language '("Accept-Language" . "en-US,en;q=0.8,zh-CN;q=0.6,zh;q=0.4")
+  "Specify default HTTP request Header for Accept-Language."
+  :group 'wttrin
+  :type '(list)
+  )
+
 (defun wttrin-fetch-raw-string (query)
   "Get the weather information based on your QUERY."
   (let ((url-request-extra-headers '(("User-Agent" . "curl"))))
+    (add-to-list 'url-request-extra-headers wttrin-default-accept-language)
     (with-current-buffer
         (url-retrieve-synchronously
          (concat "http://wttr.in/" query)