|
@@ -997,7 +997,7 @@ the project."
|
|
|
(kill-buffer buf))
|
|
|
(setq index (sort index (lambda (a b) (string< (downcase (car a))
|
|
|
(downcase (car b))))))
|
|
|
- (setq ibuffer (find-file-noselect (expand-file-name "theindex.org" directory)))
|
|
|
+ (setq ibuffer (find-file-noselect (expand-file-name "theindex.inc" directory)))
|
|
|
(with-current-buffer ibuffer
|
|
|
(erase-buffer)
|
|
|
(insert "* Index\n")
|
|
@@ -1024,7 +1024,16 @@ the project."
|
|
|
(insert " - " link "\n")
|
|
|
(insert " - " link "\n")))
|
|
|
(save-buffer))
|
|
|
- (kill-buffer ibuffer)))
|
|
|
+ (kill-buffer ibuffer)
|
|
|
+ ;; Create theindex.org if it doesn't exist already
|
|
|
+ (let ((index-file (expand-file-name "theindex.org" directory)))
|
|
|
+ (unless (file-exists-p index-file)
|
|
|
+ (setq ibuffer (find-file-noselect index-file))
|
|
|
+ (with-current-buffer ibuffer
|
|
|
+ (erase-buffer)
|
|
|
+ (insert "\n\n#+include: \"theindex.inc\"\n\n")
|
|
|
+ (save-buffer))
|
|
|
+ (kill-buffer ibuffer)))))
|
|
|
|
|
|
;; Caching functions:
|
|
|
|