FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix the cube index list link and cube order

This commit is contained in:
Sameer Rahmani 2022-06-29 02:17:33 +01:00
parent ffcf493540
commit 32bb579ac8
2 changed files with 35 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -51,7 +51,7 @@ docs:
./build.el docs ./build.el docs
serve: build serve: build
npx http-server ./build npx http-server ./build/site-build/
.PHONY: deploy-docs .PHONY: deploy-docs
deploy-docs: docs deploy-docs: docs

68
core/fg42/build/docs.el
View File

@ -59,7 +59,7 @@
(copy-directory (from-root "/docs/site/pages") build-dir nil t)) (copy-directory (from-root "/docs/site/pages") build-dir nil t))
(defun fg42/build-prepare-docs (build-dir) (defun fg42/build-prepare-docs (build-dir host)
"Prepare the documents and the website in the given BUILD-DIR." "Prepare the documents and the website in the given BUILD-DIR."
(fg42/build-docs-copy-base build-dir) (fg42/build-docs-copy-base build-dir)
@ -77,10 +77,10 @@
(cons :links (mapconcat (lambda (c) (cons :links (mapconcat (lambda (c)
(format "- [[%s][%s]]\n" (format "- [[%s][%s]]\n"
;; href ;; href
(format "%s/cubes/%s.org" build-dir c) (format "%s/cubes/%s.html" host c)
;; title ;; title
(plist-get (symbol-plist c) :title))) (plist-get (symbol-plist c) :title)))
fg42/available-cubes))))) (sort fg42/available-cubes 'string<))))))
(defun all-org-files () (defun all-org-files ()
@ -137,7 +137,7 @@ Not pages."
(->epoch (get-file-global-props file "DATE")) (->epoch (get-file-global-props file "DATE"))
(get-file-global-props file "TITLE") (get-file-global-props file "TITLE")
(replace-regexp-in-string "\\.org" ".html" (replace-regexp-in-string "\\.org" ".html"
(file-name-nondirectory file))) (file-name-nondirectory file)))
result) result)
result))) result)))
files files
@ -247,11 +247,11 @@ Not pages."
(files (cdr (assoc tag (cdr tags))))) (files (cdr (assoc tag (cdr tags)))))
(when (null tag) (when (null tag)
(message "[Error]: The following files are missig a category: %s" (message "[Error]: The following files are missig a category: %s"
(mapconcat (mapconcat
(lambda (x) (format " %s\n" x)) (lambda (x) (format " %s\n" x))
(sort (sort
(mapcar #'pair-file-with-date files) (mapcar #'pair-file-with-date files)
(lambda (x y) (> (car x) (car y)))))) (lambda (x y) (> (car x) (car y))))))
(error "The above list of files are missing a category")) (error "The above list of files are missing a category"))
(copy-template (copy-template
@ -276,34 +276,34 @@ Not pages."
(defun fg42/build-docs (build-dir) (defun fg42/build-docs (build-dir)
"Build the documents and the website in the given BUILD-DIR." "Build the documents and the website in the given BUILD-DIR."
;; Create org files for the cubes
(fg42/build-prepare-docs build-dir)
;; We will use the org-agenda to extract all the tags
;;; Set the dir containing org the org-files
(setq org-directory (expand-file-name "site" build-dir))
;;; Discover all the org files
(setq org-agenda-files (all-org-files))
(setf user-full-name author-name)
(setf user-mail-address author-email)
;; Disable default header links (top, next)
(setf org-html-home/up-format "")
(setf org-html-link-up "")
(setf org-html-link-home "")
(setf org-html-scripts "")
(copy-template (from-root "/docs/site/config.org")
(expand-file-name "config.org" build-dir)
'())
(let ((base-url (if (prod-p) "https://fg42.org" "http://localhost:3003")) (let ((base-url (if (prod-p) "https://fg42.org" "http://localhost:3003"))
(stage1-dir (expand-file-name "site" build-dir)) (stage1-dir (expand-file-name "site" build-dir))
(final-dir (expand-file-name "site-build" build-dir))) (final-dir (expand-file-name "site-build" build-dir)))
;; Create org files for the cubes
(fg42/build-prepare-docs build-dir base-url)
;; We will use the org-agenda to extract all the tags
;;; Set the dir containing org the org-files
(setq org-directory (expand-file-name "site" build-dir))
;;; Discover all the org files
(setq org-agenda-files (all-org-files))
(setf user-full-name author-name)
(setf user-mail-address author-email)
;; Disable default header links (top, next)
(setf org-html-home/up-format "")
(setf org-html-link-up "")
(setf org-html-link-home "")
(setf org-html-scripts "")
(copy-template (from-root "/docs/site/config.org")
(expand-file-name "config.org" build-dir)
'())
(message "Creating the main index file") (message "Creating the main index file")
(copy-template (from-root "/docs/site/templates/index.org") (copy-template (from-root "/docs/site/templates/index.org")
(expand-file-name "site/index.org" build-dir) (expand-file-name "site/index.org" build-dir)
@ -390,7 +390,7 @@ Not pages."
(org-publish-project "build" t nil) (org-publish-project "build" t nil)
(message "Build complete.") (message "Build complete.")
)) ))
(provide 'fg42/build/docs) (provide 'fg42/build/docs)
;;; docs.el ends here ;;; docs.el ends here