/usr/share/emacs/site-lisp/w3m/shimbun/sb-sueddeutsche-de.el is in w3m-el-snapshot 1.4.527+0.20140108-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | ;;; sb-sueddeutsche-de.el --- sueddeutsche.de shimbun backend
;; Copyright (C) 2008, 2009, 2010 David Engster
;; Author: David Engster <dengste@eml.cc>
;; Keywords: news
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'shimbun)
(require 'sb-rss)
(luna-define-class shimbun-sueddeutsche-de (shimbun-rss) ())
(defvar shimbun-sueddeutsche-de-group-url
'(("alles"
"http://www.sueddeutsche.de/app/service/rss/alles/rss.xml")
("topthemen"
"http://www.sueddeutsche.de/app/service/rss/topthemen/topthemen.xml")
("politik"
"http://rss.sueddeutsche.de/rss/Politik")
("wirtschaft"
"http://rss.sueddeutsche.de/rss/Wirtschaft")
("finanzen"
"http://rss.sueddeutsche.de/rss/Geld")
("kultur"
"http://rss.sueddeutsche.de/rss/Kultur")
("sport"
"http://rss.sueddeutsche.de/rss/Sport")
("bayern"
"http://rss.sueddeutsche.de/rss/Bayern")
("muenchen"
"http://rss.sueddeutsche.de/rss/M%C3%BCnchen")
("panorama"
"http://rss.sueddeutsche.de/rss/Panorama")
("leben"
"http://rss.sueddeutsche.de/rss/Leben%20&%20Stil")
("gesundheit"
"http://rss.sueddeutsche.de/rss/Gesundheit")
("computer"
"http://rss.sueddeutsche.de/rss/Computer")
("immobilien"
"http://rss.sueddeutsche.de/rss/Immobilien")
("wissen"
"http://rss.sueddeutsche.de/rss/Wissen")
("jobs"
"http://rss.sueddeutsche.de/rss/Job%20&%20Karriere")
("reise"
"http://rss.sueddeutsche.de/rss/Reise")))
(defvar shimbun-sueddeutsche-de-groups
(mapcar 'car shimbun-sueddeutsche-de-group-url))
(defvar shimbun-sueddeutsche-de-from-address "invalid@sueddeutsche.de")
(defvar shimbun-sueddeutsche-de-content-start
"<!--.*?[Bb]egin.*?[cC]ontent.*?-->\\|class=\"artikelBox\"")
(defvar shimbun-sueddeutsche-de-content-end
"<!--.*?[eE]nde.*?[cC]ontent.*?-->")
(defvar shimbun-sueddeutsche-de-x-face-alist
'(("default" . "\
Face: iVBORw0KGgoAAAANSUhEUgAAABAAAAAQAgMAAABinRfyAAAADFBMVEXLyspMSkr///9+fX1
CK4DEAAAARUlEQVQI12NYBQQMCKL/jv13hk1rX01hkFqxSo5BRGtVEMPWohVVDAvDV3oxrGp9+4q
ha+VTLQaR1earGNb/2W7PgGoAAO3JJfDNz7QzAAAAAElFTkSuQmCC")))
(luna-define-method shimbun-index-url ((shimbun shimbun-sueddeutsche-de))
(let ((group (shimbun-current-group-internal shimbun)))
(cadr (assoc group shimbun-sueddeutsche-de-group-url))))
(luna-define-method shimbun-rss-build-message-id ((shimbun
shimbun-sueddeutsche-de)
url date)
(let ((group (shimbun-current-group-internal shimbun))
id)
(cond ((string-match
".*sueddeutsche\\.de.*/\\(.+\\)/\\(.+\\)/?" url)
(concat "<" (match-string 1 url) "." (match-string 2 url) "." group
"@sueddeutsche.de>"))
(t
(error "Cannot find message-id base")))))
(luna-define-method shimbun-clear-contents :before ((shimbun
shimbun-sueddeutsche-de)
header)
(shimbun-remove-tags "<!-- Stoerer //-->" "<!-- END Stoerer //-->")
(shimbun-remove-tags "\\(span\\) class=\"hidePrint\">" t)
(shimbun-remove-tags
"\\(table\\)\\(?:[\t\n\r ]+[^\t\n\r >]+\\)[\t\n\r ]+class=\"stoerBS\"" t)
(shimbun-remove-tags "\\(:a\\|span\\)[\t\n\r ][^>]*bildstrecke" t)
(shimbun-remove-tags "<td class=\"artikelDruckenRight\" align=\"right\">"
"class=\"artikelDachzeile\"")
(shimbun-remove-tags "<div class=\"bannerOben\">" "<div class=\"bannerUnten\">"))
(luna-define-method shimbun-article-url ((shimbun shimbun-sueddeutsche-de)
header)
;; retrieve real URL and choose print-version
(let ((url (shimbun-header-xref header)))
(when (string-match "html?$" url)
(setq url
(car (last
(w3m-process-with-wait-handler
(w3m-w3m-attributes url nil handler))))))
(cond
((string-match "\\(.*jetzt.*sueddeutsche.*de.*\\)texte/anzeigen/\\(.+\\)" url)
(setq url (concat (match-string 1 url) "drucken/text/" (match-string 2 url))))
((string-match "text/$" url)
(setq url (concat url "print.html"))))
url))
(provide 'sb-sueddeutsche-de)
;;; sb-sueddeutsche-de.el ends here
|