code/elisp/worg.el

   1 ;;; worg.el --- this is code for Worg
   2 ;;
   3 ;; Copyright 2008 Bastien Guerry
   4 ;;
   5 ;; Emacs Lisp Archive Entry
   6 ;; Filename: worg.el
   7 ;; Version: 0.1
   8 ;; Author: Bastien Guerry <bzg AT altern DOT org>
   9 ;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
  10 ;; Keywords: org, wp, toc
  11 ;; Description: Shows a browsable table of contents for Org buffer
  12 ;;
  13 ;; This program is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 3, or (at your option)
  16 ;; any later version.
  17 ;;
  18 ;; This program is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22 ;;
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with this program; if not, write to the Free Software
  25 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 ;;
  27 ;;; Commentary:
  28 ;;
  29 ;; This file provides dynamic blocks for editing Worg pages.
  30 ;; See the Worg project here: https://git.sr.ht/~bzg/worg.
  31 ;;
  32 ;; Put this file into your load-path and the following into your ~/.emacs:
  33 ;;   (require 'worg)
  34 ;;
  35 ;;; Code:
  36
  37 (eval-when-compile
  38   (require 'cl))
  39
  40 (defun org-dblock-write:timestamp (params)
  41   "Insert a simple timestamp.
  42 Params are: string (like \"Updated: \"
  43             format (the formatting string)"
  44   (let ((string (or (plist-get params :string) "Updated: "))
  45         (time-format (or (plist-get params :format)
  46                          (car org-time-stamp-formats))))
  47     (insert string (format-time-string time-format))))
  48
  49 (provide 'worg)
  50
  51 ;;;  User Options, Variables
  52
  53
  54
  55 ;;; worg.el ends here