SiteTest/test1/test2/a.txt

   1 ;;; This file contains small pieces of list code to test PmWiki mode
   2
   3 ;;; Set URL
   4 (set 'pmwiki-page-url
   5      "http://www.pmichaud.com/wiki/EmacsModes/PmWikiModeTestPage?action")
   6
   7 ;;; Open various pages
   8 (pmichaud-pmwiki-browse "EmacsModes" "PmWikiMode")
   9 (pmichaud-pmwiki-browse "EmacsModes" "TestColors")
  10
  11
  12
  13 ;;;
  14 ;;; Following links
  15 ;;;
  16 (pmichaud-pmwiki-browse "EmacsModes" "WikiSandbox")
  17 ;; Open sandbox to play in.
  18 ;; Things to test:
  19 ;; * Add text and save, C-c C-c.
  20 ;; * Follow a link to an existing page, C-c C-g
  21 ;;      - Test both local link (e.g. HomePage) and full links
  22 ;;        e.g. Main/HomePage and Main.HomePage
  23 ;; * Create new link and follow it
  24
  25
  26 ;;;
  27 ;;; pmwiki-open-url()
  28 ;;;
  29 (pmwiki-open-url "http://www.pmichaud.com/wiki/EmacsModes/WikiSandbox")
  30 ;; Opens EmacsModes.WikiSandbox
  31 ;; * Make a change and save, C-c C-c
  32
  33 ;;;
  34 ;;; pmwiki-open()
  35 ;;;
  36
  37 ;;;
  38 ;;; pmichaud-pmwiki-browse()
  39 ;;;
  40 (pmichaud-pmwiki-browse "EmacsModes" "WikiSandbox")
  41 ;; Loads sandbox from www.pmichaud.com
  42 ;; * Make some change, C-c C-c and verify in browser that it worked.
  43
  44
  45 ;;;
  46 ;;; lyx-wiki-browse()
  47 ;;;
  48 (lyx-wiki-browse "Test" "WikiSandbox")
  49 ;; Loads sandbox from wiki.lyx.org
  50 ;; * Make some change, C-c C-c and verify in browser that it worked.
  51
  52
  53 ;;;
  54 ;;; pmwiki-loc()
  55 ;;;
  56 (defun test-pmwiki-loc (url)
  57   "Test function for `pmwiki-loc'."
  58   (interactive "sURL: ")
  59   (let ((pmwiki-page-url url))
  60     (message (format "\n\nTesting with `pmwiki-page-url'\n\t%s"
  61                      pmwiki-page-url))
  62     (message (format "(pmwiki-loc 1):\t\t%s" (pmwiki-loc 1)))
  63     (message (format "(pmwiki-loc 2):\t\t%s" (pmwiki-loc 2)))
  64     (message (format "(pmwiki-loc 3):\t\t%s" (pmwiki-loc 3)))
  65     (message (format "(pmwiki-loc 'base): \t%s"  (pmwiki-loc 'base)))
  66     (message (format "(pmwiki-loc 'group): \t%s" (pmwiki-loc 'group)))
  67     (message (format "(pmwiki-loc 'page): \t%s"  (pmwiki-loc 'page)))
  68     (message (format "(pmwiki-loc 'name): \t%s"  (pmwiki-loc 'name)))
  69     (message (format "(pmwiki-loc 'link): %s"
  70                      (pmwiki-link-to-name (pmwiki-loc 'link)))))
  71   (message (format "\nTesting with argument:\n\t%s" url))
  72   (message (format "(pmwiki-loc 1 url):\t%s" (pmwiki-loc 1 url)))
  73   (message (format "(pmwiki-loc 2 url):\t%s" (pmwiki-loc 2 url)))
  74   (message (format "(pmwiki-loc 3 url):\t%s" (pmwiki-loc 3 url)))
  75   (message (format "(pmwiki-loc 'base url):\t%s"  (pmwiki-loc 'base url)))
  76   (message (format "(pmwiki-loc 'group url):%s" (pmwiki-loc 'group url)))
  77   (message (format "(pmwiki-loc 'page url):\t%s"  (pmwiki-loc 'page url)))
  78   (message (format "(pmwiki-loc 'name url):\t%s"  (pmwiki-loc 'name url)))
  79   (message (format "(pmwiki-loc 'link):\t%s"
  80                    (pmwiki-link-to-name (pmwiki-loc 'link url)))))
  81
  82 (test-pmwiki-loc "http://www.pmichaud.com/wiki/Modes/PageName")
  83 (test-pmwiki-loc
  84  "http://www.pmichaud.com/wiki/EmacsModes/PmWikiModeTestPage?action")
  85 (test-pmwiki-loc "http://wiki.lyx.org/pmwiki.php/Modes/Page")
  86 (test-pmwiki-loc "http://wiki.lyx.org/pmwiki.php/Modes/Page-with-dashes")
  87
  88 (set 'pmwiki-FreeLinkPattern
  89      (concat "{{\\(\\([A-Za-z][A-Za-z0-9]*"
  90           "\\(?:\\(?:[   _]*\\|-\\)[A-Za-z0-9]+\\)*\\)"
  91           "\\(?:|\\(\\(?:\\(?:[         _]*\\|-\\)[A-Za-z0-9]\\)*\\)\\)?\\)}}"
  92           "\\(\\(?:-?[A-Za-z0-9]+\\)*\\)"))
  93 (defun a ()
  94   ""
  95   (interactive)
  96   (re-search-forward pmwiki-FreeLinkPattern))
  97
  98 ;;;
  99 ;;; pmwiki-name-to-link()
 100 ;;;
 101 (defun test-pmwiki-name-to-link (s) ""
 102   (let ((link (pmwiki-name-to-link s)))
 103     (message
 104      (format
 105       (format "%-20s =>\t%%s" s)
 106       (if link (pmwiki-link-to-name link) "Not a link!")))))
 107
 108 (test-pmwiki-name-to-link "Wiki.WikiWord")
 109 (test-pmwiki-name-to-link "Wiki/WikiWord")
 110 (test-pmwiki-name-to-link "WikiWord")
 111 (test-pmwiki-name-to-link "WikiWord.")
 112
 113
 114
 115
 116 ;;;
 117 ;;; pmwiki-URI-type
 118 ;;;
 119 (print (pmwiki-URI-type "Wiki.WikiWord") t)
 120 (print (pmwiki-URI-type "http://www.pmichaud.com/wiki/PmWiki/HomePage") t)
 121 (print (pmwiki-URI-type "http://utenti.lycos.it/sanniolug/pmwiki/pmwiki.php?pagename=Main.WikiSandbox") t)