fixed title

src/demo.org

@@ -4,8 +4,12 @@
 #+KEYWORDS: programming
 #+DESCRIPTION: css demonstration
 #+OPTIONS: H:5
+#+OPTIONS: auto-id:t
 
 * Level 1 in org-mode
+  :PROPERTIES:
+  :CUSTOM_ID: level-1-in-org-mode-e308
+  :END:
 
 This is a text I write so we can test many different details of a web page.
 The text can be *bold*, /italic/, +strikethrough+ or =keyword=.
@@ -23,6 +27,9 @@ But if I use a double space
 There should be a forced newline.
 
 ** Level 2
+   :PROPERTIES:
+   :CUSTOM_ID: level-2-85fc
+   :END:
 
  There should be whitespace between paragraphs.
  GitHub is a code hosting platform for version control and collaboration.

src/index.org

@@ -87,7 +87,7 @@ I write all the content with [[http://orgmode.org][org-mode]].
      "<div class=\"content\">"
      (menu '("<a href=\"#postamble\">↓ bottom ↓</a>"))
      "<h1>"
-     (format "%s" (plist-get info :title))
+     (format "%s" (car (plist-get info :title)))
      (when-let ((date (get-from-info info :date)))
        (format " - <span class=\"article-date\">%s</span>" date))
      "</h1>"