2022-07-13 16:26:16 +08:00
|
|
|
;; this file and Makefile from:
|
|
|
|
|
;; https://www.cnblogs.com/banjia/archive/2012/09/29/2708966.html
|
|
|
|
|
;; CSDN, 阿里云, 这些垃圾都在未授权盗搬, 结果这个东西有些地方都过时了
|
|
|
|
|
;; 能不能有点创新...
|
|
|
|
|
|
|
|
|
|
(require 'org)
|
2022-07-13 19:33:17 +08:00
|
|
|
(require 'ox)
|
|
|
|
|
|
|
|
|
|
(setq org-html-validation-link nil)
|
2022-07-13 16:26:16 +08:00
|
|
|
(setq org-publish-project-alist
|
|
|
|
|
'(("org-pages"
|
|
|
|
|
:base-directory "."
|
|
|
|
|
:base-extension "org"
|
2022-07-25 12:47:10 +08:00
|
|
|
:publishing-directory "./../org_html/"
|
2022-07-13 16:26:16 +08:00
|
|
|
:recursive t
|
2022-09-09 12:54:49 +08:00
|
|
|
:exclude "画大饼.org"
|
2022-07-13 19:33:17 +08:00
|
|
|
:publishing-function org-html-publish-to-html
|
|
|
|
|
:html-head "<link rel='stylesheet' type='text/css' href='./../css/org-css.css' />" ; instead of :style
|
2022-07-13 16:26:16 +08:00
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
(defun myweb-publish ()
|
|
|
|
|
"Publish myweb."
|
|
|
|
|
(interactive)
|
|
|
|
|
(setq debug-on-error t)
|
|
|
|
|
(org-publish-all))
|
|
|
|
|
|
