web: Fixup full URLS to www.gnupg.org
authorWerner Koch <wk@gnupg.org>
Tue, 15 Apr 2014 14:40:48 +0000 (16:40 +0200)
committerWerner Koch <wk@gnupg.org>
Wed, 30 Apr 2014 07:24:12 +0000 (09:24 +0200)
web/share/gpgweb.el

index 67cc740..f5274cc 100644 (file)
                  (while (re-search-forward
                          "^.*<li>.*>\\(GnuPG - \\).*<span.*$" nil t)
                    (replace-match "" t nil nil 1)))
+
+               ; Due to a problem with the current org exporter (cases
+               ; were we link to file mapped via a webserver alias) we
+               ; have to use a full URL at some places in the org
+               ; source.  We fix that up here.
+               (goto-char (point-min))
+               (while (re-search-forward
+                       "href=\"\\(https://www.gnupg.org\\)/.*\"" nil t)
+                 (replace-match "" t t nil 1))
+
+               ; And save the changes
                (basic-save-buffer))
       (unless visitingp (kill-buffer work-buffer))))))