meteocat_ametlla.el

(defun weather-ametlla ()
  "Obre un buffer amb la predicció horaria de temps a l'Ametlla segons meteocat.cat."
  (interactive)
  (let ((buffer (get-buffer-create "*weather ametlla*")))
    (switch-to-buffer buffer)
    (setq buffer-read-only nil)
    (erase-buffer)
    (shell-command "w3m -dump https://m.meteo.cat/prediccio-per-hores?codi=080057" buffer)
    (local-set-key "q" 'kill-this-buffer)
    ))