doc/news.muse

   1 #title Monikop (and Pokinom)
   2 #subtitle rsync between unconnected hosts
   3 #author Bert Burgemeister
   4
   5
   6 * Release Notes
   7
   8 <lisp>
   9 (with-temp-buffer
  10   (insert-file-contents "../NEWS")
  11   (goto-char (point-min))
  12   (open-line 1)
  13   (while (not (eobp))
  14     (while (search-forward "\n*" nil t)
  15       (replace-match "** " nil t))
  16     (forward-line))
  17   (goto-char (point-min))
  18   (while (not (eobp))
  19     (while (search-forward "\n; " nil t)
  20       (kill-line)
  21       (kill-line -1))
  22     (forward-line))
  23   (buffer-string))
  24 </lisp>