Skip to content
Browse files

Bug fix for org-readme generating texinfo documentation from org-files.

  • Loading branch information...
1 parent 850ff5a commit 79a589e8aaab1a2b395b59f34680dbea60ee2254 @mattfidler committed
Showing with 19 additions and 3 deletions.
  1. +2 −1 Readme.org
  2. +13 −1 org-readme.el
  3. +4 −1 org-readme.info
View
3 Readme.org
@@ -8,7 +8,7 @@
- Author :: Matthew L. Fidler
- Maintainer :: Matthew L. Fidler
- Created :: Fri Aug 3 22:33:41 2012 (-0500)
- - Version :: 20130322.923
+ - Version :: 20130322.924
- Package-Requires :: ((http-post-simple "1.0") (yaoddmuse "0.1.1")(header2 "21.0") (lib-requires "21.0"))
- Last-Updated :: Wed Aug 22 13:11:26 2012 (-0500)
- By :: Matthew L. Fidler
@@ -85,6 +85,7 @@ libraries and why they are needed.
** Internal Variables
* History
+ - 22-Mar-2013 :: Bug fix for org-readme generating texinfo documentation from org-files. (Matthew L. Fidler)
- 22-Mar-2013 :: Separated out the texinfo conversion so that this may be applied to a generalized readme. (Matthew L. Fidler)
- 13-Mar-2013 :: Added bug fix so that starred initial variables do not mess with org-cut-region. That way, strange duplication of lines and regions do not occur. (Matthew L. Fidler)
- 10-Dec-2012 :: Changed melpa versions to be nil. However if a melpa version is detected, continue using it. (Matthew L. Fidler)
View
14 org-readme.el
@@ -5,7 +5,7 @@
;; Author: Matthew L. Fidler
;; Maintainer: Matthew L. Fidler
;; Created: Fri Aug 3 22:33:41 2012 (-0500)
-;; Version: 20130322.923
+;; Version: 20130322.924
;; Package-Requires: ((http-post-simple "1.0") (yaoddmuse "0.1.1")(header2 "21.0") (lib-requires "21.0"))
;; Last-Updated: Wed Aug 22 13:11:26 2012 (-0500)
;; By: Matthew L. Fidler
@@ -81,6 +81,9 @@
;;; Change Log:
;; 22-Mar-2013 Matthew L. Fidler
;; Last-Updated: Wed Aug 22 13:11:26 2012 (-0500) #794 (Matthew L. Fidler)
+;; Bug fix for org-readme generating texinfo documentation from org-files.
+;; 22-Mar-2013 Matthew L. Fidler
+;; Last-Updated: Wed Aug 22 13:11:26 2012 (-0500) #794 (Matthew L. Fidler)
;; Separated out the texinfo conversion so that this may be applied to a
;; generalized readme.
;; 13-Mar-2013 Matthew L. Fidler
@@ -1262,6 +1265,15 @@ If so, return the name of that lisp file, otherwise return nil."
ver
desc
cnt)
+ (when (string= (downcase base) "readme")
+ (let ((df (directory-files (file-name-directory (buffer-file-name)) t ".*[.]el$")))
+ (unless (= 1 (length df))
+ (setq df (directory-files (file-name-directory (buffer-file-name)) t ".*-mode[.]el$")))
+ (unless (= 1 (length df))
+ (setq df (directory-files (file-name-directory (buffer-file-name)) t ".*-pkg[.]el$")))
+ (when (= 1 (length df))
+ (setq base (file-name-sans-extension (file-name-nondirectory (nth 0 df))))
+ (setq file (concat base ".texi")))))
(shell-command (concat "pandoc Readme.md -s -o " file))
;; Now add direntry.
(setq cnt (with-temp-buffer
View
5 org-readme.info
@@ -35,7 +35,7 @@ Readme.org and Commentary/Change-logs.
* *Created* - Fri Aug 3 22:33:41 2012 (-0500)
- * *Version* - 20130322.923
+ * *Version* - 20130322.924
* *Package-Requires* - ((http-post-simple "1.0") (yaoddmuse
"0.1.1")(header2 "21.0") (lib-requires "21.0"))
@@ -152,6 +152,9 @@ File: org-readme.info, Node: History, Prev: Using org-readme, Up: Org Readme
1.3 History
===========
+ * *22-Mar-2013* - Bug fix for org-readme generating texinfo
+ documentation from org-files. (Matthew L. Fidler)
+
* *22-Mar-2013* - Separated out the texinfo conversion so that this
may be applied to a generalized readme. (Matthew L. Fidler)

0 comments on commit 79a589e

Please sign in to comment.
Something went wrong with that request. Please try again.