authoring server 5

build-site.el

@@ -32,6 +32,8 @@ redefine site-root themselves.")
 ;; Keep the old name around so any stray code still compiles.
 (defvaralias 'site-root 'z/site-root)
 
+(setq create-lockfiles nil)
+
 (defun site-path (path)
   "Expand PATH relative to `z/site-root'."
   (expand-file-name path z/site-root))
@@ -419,7 +421,7 @@ Created with %c on <a href=\"https://www.archlinux.org/\">Arch</a> \
   (with-temp-buffer
     (insert-file-contents filename nil 0 4096)
     (goto-char (point-min))
-    (if (re-search-forward "^# +\\(.+?\\)\\s-*$" nil t)
+    (if (re-search-forward "^#+ +\\(.+?\\)\\s-*$" nil t)
         (match-string 1)
       fallback)))