116 lines
4.9 KiB
EmacsLisp
116 lines
4.9 KiB
EmacsLisp
;;; core-spacemacs.el --- Spacemacs Core File
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(require 'org)
|
|
(require 'ox-publish)
|
|
(require 's)
|
|
(require 'dash)
|
|
|
|
(defvar spacemacs--category-names
|
|
'(("config-files" . "Configuration files")
|
|
("email" . "E-mail")
|
|
("irc" . "IRC")
|
|
("lang" . "Programming languages"))
|
|
"Special names for categories. Used to generate the layers list.")
|
|
|
|
(defun spacemacs//generate-layers-from-path (path level)
|
|
"Add all layers found in PATH to the current buffer, at org level LEVEL."
|
|
(let* ((all-subs (directory-files path t nil nil))
|
|
(layers (-filter (lambda (p)
|
|
(eq 'layer (configuration-layer//directory-type p)))
|
|
all-subs))
|
|
(categories (-filter (lambda (p)
|
|
(eq 'category (configuration-layer//directory-type p)))
|
|
all-subs)))
|
|
(message "%S" layers)
|
|
(dolist (l layers)
|
|
(let ((layer-name (file-name-nondirectory l))
|
|
(target-path (concat (file-relative-name
|
|
l (concat user-emcas-directory "layers"))
|
|
"/README.org")))
|
|
(insert (format "- [[file:%s][%s]]\n" target-path layer-name))))
|
|
(dolist (c categories)
|
|
(let* ((category-name (substring (file-name-nondirectory c) 1))
|
|
(pretty-name (or (cdr (assoc category-name spacemacs--category-names))
|
|
(s-capitalize (replace-regexp-in-string
|
|
"-" " " category-name)))))
|
|
(message "%S" category-name)
|
|
(unless (string= "distribution" category-name)
|
|
(insert (format "\n%s %s\n" level pretty-name))
|
|
(spacemacs/generate-layers-from-path c (concat level "*"))
|
|
)))))
|
|
|
|
(defun spacemacs//generate-layers-file ()
|
|
"Generate the layers list file."
|
|
(interactive)
|
|
(with-temp-buffer
|
|
(org-mode)
|
|
(insert "#+TITLE: Configuration layers\n\n")
|
|
(insert "* Table of Contents\n")
|
|
(org-set-tags-to '("TOC_4_org" "noexport"))
|
|
(insert "* General layers\n")
|
|
(spacemacs//generate-layers-from-path configuration-layer-directory "*")
|
|
(write-file (concat user-emacs-directory "layers/LAYERS.org"))))
|
|
|
|
(defun spacemacs/publish-doc ()
|
|
"Publishe the documentation to doc/export/."
|
|
(interactive)
|
|
(let* ((header
|
|
"<link rel=\"stylesheet\" type=\"text/css\"
|
|
href=\"http://www.pirilampo.org/styles/readtheorg/css/htmlize.css\"/>
|
|
<link rel=\"stylesheet\" type=\"text/css\"
|
|
href=\"http://www.pirilampo.org/styles/readtheorg/css/readtheorg.css\"/>
|
|
<script src=\"https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js\"></script>
|
|
<script src=\"https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js\"></script>
|
|
<script type=\"text/javascript\"
|
|
src=\"http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js\"></script>
|
|
<script type=\"text/javascript\"
|
|
src=\"http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js\"></script>")
|
|
(publish-target (concat spacemacs-docs-directory "export/"))
|
|
(org-publish-project-alist
|
|
`(("spacemacs"
|
|
:components ("spacemacs-doc"
|
|
"spacemacs-doc-static"
|
|
"layers-doc"
|
|
"layers-doc-static"))
|
|
("spacemacs-doc"
|
|
:base-directory ,spacemacs-docs-directory
|
|
:base-extension "org"
|
|
:publishing-directory ,(concat publish-target "doc/")
|
|
:publishing-function org-html-publish-to-html
|
|
:headline-levels 4
|
|
:html-head ,header)
|
|
("layers-doc"
|
|
:base-directory ,(concat user-emacs-directory "layers/")
|
|
:base-extension "org"
|
|
:recursive t
|
|
:publishing-directory ,(concat publish-target "layers/")
|
|
:publishing-function org-html-publish-to-html
|
|
:preparation-function spacemacs/generate-layers-file
|
|
:exclude "extensions"
|
|
:html-head ,header)
|
|
("spacemacs-doc-static"
|
|
:base-directory ,spacemacs-docs-directory
|
|
:base-extension "png"
|
|
:recursive t
|
|
:publishing-directory ,(concat publish-target "doc/")
|
|
:publishing-function org-publish-attachment)
|
|
("layers-doc-static"
|
|
:base-directory ,(concat user-emacs-directory "layers/")
|
|
:base-extension "png"
|
|
:recursive t
|
|
:publishing-directory ,(concat publish-target "layers/")
|
|
:publishing-function org-publish-attachment))))
|
|
(org-publish-project "spacemacs")))
|
|
|
|
(provide 'core-documentation)
|