(save-excursion
(goto-char 0)
(if (re-search-forward (concat "^" (pelican-field field ".+*")) nil t)
(replace-match (pelican-field field value))
(save-excursion
(goto-char 0)
(if (re-search-forward (concat "^" (pelican-field field ".+*")) nil t)
(replace-match (pelican-field field value))
(re-search-forward "^$")
(replace-match (pelican-field field value)))))
(defun pelican-set-title (title)
"Set the title to TITLE."
(re-search-forward "^$")
(replace-match (pelican-field field value)))))
(defun pelican-set-title (title)
"Set the title to TITLE."