org-mode在publish时去掉多余的div和id

(advice-add #'org-export-get-reference :override #'unpackaged/org-export-get-reference)

(advice-add #'org-html-headline :override #'albert|org-html-headline)

(defun albert|org-html-headline (headline contents info)
  "Transcode a HEADLINE element from Org to HTML.
CONTENTS holds the contents of the headline.  INFO is a plist
holding contextual information."
  (unless (org-element-property :footnote-section-p headline)
    (let* ((numberedp (org-export-numbered-headline-p headline info))
           (numbers (org-export-get-headline-number headline info))
           (level (+ (org-export-get-relative-level headline info)
                     (1- (plist-get info :html-toplevel-hlevel))))
           (todo (and (plist-get info :with-todo-keywords)
                      (let ((todo (org-element-property :todo-keyword headline)))
                        (and todo (org-export-data todo info)))))
           (todo-type (and todo (org-element-property :todo-type headline)))
           (priority (and (plist-get info :with-priority)
                          (org-element-property :priority headline)))
           (text (org-export-data (org-element-property :title headline) info))
           (tags (and (plist-get info :with-tags)
                      (org-export-get-tags headline info)))
           (full-text (funcall (plist-get info :html-format-headline-function)
                               todo todo-type priority text tags info))
           (contents (or contents ""))
       (ids (delq nil
                      (list (org-element-property :CUSTOM_ID headline)
                            (org-export-get-reference headline info)
                            (org-element-property :ID headline))))
           (preferred-id (car ids))
           (extra-ids
        (mapconcat
         (lambda (id)
           (org-html--anchor
        (if (org-uuidgen-p id) (concat "ID-" id) id)
        nil nil info))
         (cdr ids) "")))
      (if (org-export-low-level-p headline info)
          ;; This is a deep sub-tree: export it as a list item.
          (let* ((html-type (if numberedp "ol" "ul")))
        (concat
         (and (org-export-first-sibling-p headline info)
          (apply #'format "<%s class=\"org-%s\">\n"
             (make-list 2 html-type)))
         (org-html-format-list-item
                   contents (if numberedp 'ordered 'unordered)
           nil info nil
                   (concat (org-html--anchor preferred-id nil nil info)
                           extra-ids
                           full-text)) "\n"
         (and (org-export-last-sibling-p headline info)
          (format "</%s>\n" html-type))))
    ;; Standard headline.  Export it as a section.
        (let ((extra-class (org-element-property :HTML_CONTAINER_CLASS headline))
              (first-content (car (org-element-contents headline))))
          (format "%s%s\n"
                  (format "\n<h%d>%s</h%d>\n"
                          level
                          (concat
                           (and numberedp
                                (format
                                 "<span class=\"section-number-%d\">%s</span> "
                                 level
                                 (mapconcat #'number-to-string numbers ".")))
                           full-text)
                          level)
                  (if (eq (org-element-type first-content) 'section) contents
                    (concat (org-html-section first-content "" info) contents))))))))

(advice-add #'org-html-section :override #'albert|org-html-section)

(defun albert|org-html-section (section contents info)
  "Transcode a SECTION element from Org to HTML.
CONTENTS holds the contents of the section.  INFO is a plist
holding contextual information."
  (let ((parent (org-export-get-parent-headline section)))
    ;; Before first headline: no container, just return CONTENTS.
    (if (not parent) contents
      ;; Get div's class and id references.
      (let* ((class-num (+ (org-export-get-relative-level parent info)
               (1- (plist-get info :html-toplevel-hlevel))))
         (section-number
          (and (org-export-numbered-headline-p parent info)
           (mapconcat
            #'number-to-string
            (org-export-get-headline-number parent info) "-"))))
        ;; Build return value.
    (format "\n%s\n" (or contents ""))))))

(defun html-body-id-filter (output backend info)
  "Remove random ID attributes generated by Org."
  (when (eq backend 'html)
    (replace-regexp-in-string
     " id=\"[[:alpha:]-]*org[[:alnum:]]\\{7\\}\""
     ""
     output t)))

(add-to-list 'org-export-filter-final-output-functions 'html-body-id-filter)

cd georgealbert.io
python -m http.server