END; require_once "include/calendar.php"; require_once "include/planner-include.php"; require_once "include/header.inc.php"; ?>


C1CFeature: Write an aggregator that adds notes to planner plan pages--this is planner-search-notes-with-body for now {{Tasks:629}} (2004.04.22)
C2CSupport RSS 0.92 publication {{Tasks:588}} (2004.04.23)
C3XFigure out how to put absolute URLs into the wiki feed {{Tasks:628}} (PlannerModeRSS) (2004.04.17)
C4XFeature: Make it possible to use functions in the categorizing list {{Tasks:585}} {{Schedule:16:00-16:30}} (2004.05.15)


1. Publishing absolute URLs in RSS feeds

Categories: 2004.04.17:6 -- Permalink, Comment form
(defvar sacha/emacs-wiki-use-absolute-url-flag nil
  "Non-nil means publish absolute URLs.")

(defadvice planner-rss-add-note (around sacha/absolute-urls activate)
  "Publish absolute URLs."
  (let ((sacha/emacs-wiki-use-absolute-url-flag t))

(require 'w3m)
(defadvice emacs-wiki-markup-link (around sacha activate)
  "Resolve the matched wiki-link into its ultimate <a href> form.
Images used the <img> tag."
  ;; avoid marking up urls that appear to be inside existing HTML
  (when (and (not (eq (char-after (point)) ?\"))
             (not (eq (char-after (point)) ?\>)))
    (let* (string
           (wiki-link (match-string 0))
           (url (emacs-wiki-link-url wiki-link))
           (name (emacs-wiki-escape-html-string
                  (emacs-wiki-wiki-visible-name wiki-link))))
      (when url
        (unless (emacs-wiki-wiki-url-p url)
          (setq url
                 (if (string-match "public_html" url)
          (when sacha/emacs-wiki-use-absolute-url-flag
            (setq url
      (setq string
            (if (null url)
                (if (and emacs-wiki-serving-p
                          (emacs-wiki-wiki-base wiki-link)))
                     "<a class=\"nonexistent\" href=\"editwiki?%s\">%s</a>"
                     (emacs-wiki-wiki-base wiki-link) name)
                  (format "<a class=\"nonexistent\" href=\"%s\">%s</a>"
                          emacs-wiki-maintainer name))
              (if (save-match-data
                    (string-match emacs-wiki-image-regexp url))
                  (if (string-equal url name)
                      (format "<img src=\"%s\" />" url)
                    (format "<img src=\"%s\" alt=\"%s\" />" url name))
                (if (save-match-data
                      (string-match emacs-wiki-image-regexp name))
                    (format "<a href=\"%s\"><img src=\"%s\" /></a>" url name)
                  (format "<a href=\"%s\">%s</a>" url name)))))
      (add-text-properties 0 (1- (length string))
                           '(rear-nonsticky (read-only) read-only
                                            t) string)
      (setq ad-return-value string))))
Permalink, Comment form -- Back to top