diff options
| author | Craig Jennings <c@cjennings.net> | 2024-04-22 11:28:38 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2024-04-22 11:28:38 -0500 |
| commit | fb56736b9034b9a25a372fb981e875fd0e51e77d (patch) | |
| tree | 5d0d78dea3c5c5cfb1d56cf3e8292c01fc708f7c /wttrin.el | |
| parent | cbb07175245d7b6b12b3f06ac384a0f42bedc631 (diff) | |
changed accept-language variable name to wttrin-default-languages
the unwieldly wttrin-default-accept-language became the lighter-weight and more
user-friendly wttrin-default-language
Diffstat (limited to 'wttrin.el')
| -rw-r--r-- | wttrin.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -42,7 +42,7 @@ :prefix "wttrin-" :group 'comm) -(defcustom wttrin-font-name "Lucida Console" +(defcustom wttrin-font-name "Liberation Mono" "Preferred monospaced font name for weather display." :group 'wttrin :type 'string) @@ -73,7 +73,7 @@ :group 'wttrin :type '(repeat string)) -(defcustom wttrin-default-accept-language +(defcustom wttrin-default-languages '("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 @@ -93,7 +93,7 @@ units (default)." (defun wttrin-fetch-raw-string (query) "Get the weather information based on your QUERY." (let ((url-user-agent "curl")) - (add-to-list 'url-request-extra-headers wttrin-default-accept-language) + (add-to-list 'url-request-extra-headers wttrin-default-languages) (with-current-buffer (url-retrieve-synchronously (concat "http://wttr.in/" query "?A") |