UTILITIES/org-fixup.el

   1 ;;; org-fixup.el - to make life easier for folks without GNU make
   2 ;;
   3 ;; Author: Achim Gratz
   4 ;; Keywords: outlines, hypermedia, calendar, wp
   5 ;; Homepage: http://orgmode.org
   6 ;;
   7 ;; This file is not yet part of GNU Emacs.
   8 ;;
   9 ;; GNU Emacs is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 3, or (at your option)
  12 ;; any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  22 ;; Boston, MA 02110-1301, USA.
  23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24 ;;
  25 ;;; Commentary:
  26
  27 (require 'org-compat)
  28 (require 'autoload)
  29
  30 (defun org-make-org-version (org-release org-git-version odt-dir)
  31   (find-file "org-version.el")
  32   (erase-buffer)
  33   (insert "\
  34 ;;; org-version.el --- autogenerated file, do not edit
  35 ;;
  36 ;;; Code:
  37 ;;;\#\#\#autoload
  38 \(defun org-release ()
  39   \"The release version of org-mode.
  40   Inserted by installing org-mode or when a release is made.\"
  41    (let ((org-release \"" org-release "\"))
  42      org-release))
  43 ;;;\#\#\#autoload
  44 \(defun org-git-version ()
  45   \"The Git version of org-mode.
  46   Inserted by installing org-mode or when a release is made.\"
  47    (let ((org-git-version \"" org-git-version "\"))
  48      org-git-version))
  49 ;;;\#\#\#autoload
  50 \(defconst org-odt-data-dir \"" odt-dir "\"
  51   \"The location of ODT styles.\")
  52 \f\n;; Local Variables:\n;; version-control: never
  53 ;; no-byte-compile: t
  54 ;; coding: utf-8\n;; End:\n;;; org-version.el ends here\n")
  55   (save-buffer))
  56
  57 (defun org-make-org-install (absfile)
  58   (find-file absfile)
  59   (erase-buffer)
  60   (insert ";;; org-install.el --- autogenerated file, do not edit\n;;\n;;; Code:\n")
  61   (let ((files (directory-files (file-name-directory absfile) 'full "^[^.#~]*\\.el$")))
  62     (mapc (lambda (f) (generate-file-autoloads f)) files))
  63   (insert "\f\n(provide 'org-install)\n")
  64   (insert "\f\n;; Local Variables:\n;; version-control: never\n")
  65   (insert ";; no-byte-compile: t\n;; no-update-autoloads: t\n")
  66   (insert ";; coding: utf-8\n;; End:\n;;; org-install.el ends here\n")
  67   (save-buffer))
  68
  69 (defmacro org-fixup ()
  70   (let* ((origin default-directory)
  71          (dirlisp (org-find-library-dir "org"))
  72          (dirorg (concat dirlisp "../" ))
  73          (dirgit (concat dirorg ".git/" ))
  74          (org-version "N/A-fixup")
  75          (org-git-version "N/A-fixup !!check installation!!"))
  76     (if (load (concat dirlisp "org-version.el") 'noerror 'nomessage 'nosuffix)
  77         (setq org-version     (org-release)
  78               org-git-version (org-git-version))
  79       (when (and (file-exists-p dirgit)
  80                  (executable-find "git"))
  81         (unwind-protect
  82             (progn
  83               (cd dirorg)
  84               (let (( git6 (substring (shell-command-to-string "git describe --abbrev=6 HEAD") 0 -1))
  85                     ( git0 (substring (shell-command-to-string "git describe --abbrev=0 HEAD") 0 -1))
  86                     ( gitd (string-match "\\S-" (shell-command-to-string "git status -uno --porcelain"))))
  87                 (setq org-git-version (concat git6 (when gitd ".dirty")))
  88                 (if (string-match "^release_" git0)
  89                     (setq org-version (substring git0 8))
  90                   (setq org-version git0)))
  91               (cd origin)))))
  92     `(progn
  93        (defun org-release () ,org-version)
  94        (defun org-git-version () ,org-git-version)
  95        "org-fixup.el: redefined org version.")))
  96
  97 (provide 'org-fixup)
  98 \f
  99 ;; Local Variables:
 100 ;; no-byte-compile: t
 101 ;; coding: utf-8
 102 ;; End:
 103 ;;; org-fixup.el ends here