convert wiki notation from wiliki to souceforge.jp

gistfile1.el

;; -*-emacs-lisp-*-
;; converting wiki notation from wiliki to souceforge.jp

(defun sf ()
  "converting wiki notation from wiliki to souceforge.jp"
  (interactive)
  (save-excursion

    ;; heading
    (goto-char (point-min))
    (replace-regexp "^\* " "= ")
    (goto-char (point-min))
    (replace-regexp "^\*\* " "== ")
    (goto-char (point-min))
    (replace-regexp "^\*\*\* " "=== ")

    ;; itemize
    (goto-char (point-min))
    (replace-regexp "^- " "  * ")
    (goto-char (point-min))
    (replace-regexp "^-- " "    * ")
    (goto-char (point-min))
    (replace-regexp "^--- " "      * ")
    (goto-char (point-min))
    (replace-regexp "^---- " "        * ")

    ;; link
    (goto-char (point-min))
    (replace-string "[[" "[")
    (goto-char (point-min))
    (replace-string "]]" "]")
    (goto-char (point-min))

    ;; table
    (replace-string "|" "||")
    (goto-char (point-min))

    ;; line break
    (replace-string "~%" "[[BR]]")
    (goto-char (point-min))

    ))