;;; md4tj --- Summary

;;; Commentary:

;;; Code:

(require 'cl-lib)
;(load "./md4tj-util.el")

(defun md4tj-blog-enabled ()
  "Determine if the current buffer corresponds to a blog."
  (save-excursion
	(goto-char (point-min))
	(not (not (search-forward-regexp "^@@BLOGENABLE" (point-max) t)))))

(defun md4tj-blog-base-url ()
  "Find base URL of blog."
  (save-excursion
	(goto-char (point-min))
	(if (search-forward-regexp "^@@BLOGBASEURL" (point-max) t)
		(replace-regexp-in-string "^@@BLOGBASEURL[ \\\t]+" "" (md4tj-util-getline))
	  nil)))

(defun md4tj-blog-base-dir ()
  "Find base directory of blog."
  (save-excursion
	(goto-char (point-min))
	(if (search-forward-regexp "^@@BLOGBASEDIR" (point-max) t)
		(replace-regexp-in-string "^@@BLOGBASEDIR[ \\\t]+" "" (md4tj-util-getline))
	  "")))

(defun md4tj-blog-names ()
  "Find all blogs on blog page."
  (cl-map #'listp (lambda (l) (nth 1 l)) (cl-map #'listp 'split-string (cl-remove-if-not (lambda (s) (string-match "^@@BLOGPOST" s)) (split-string (buffer-string) "\n")))))

(defun md4tj-blog-links ()
  "Get all links on the blog page."
  (let ((base-url (md4tj-blog-base-url)))
	(cl-map #'listp (lambda (s) (concat base-url s)) (md4tj-blog-names))))

(defun md4tj-blog-file (name)
  "Get full filename from NAME."
  (concat (md4tj-blog-base-dir) name ".md4tj"))

(defun md4tj-blog-files ()
  "Get all blog .md4tj files."
  (cl-map #'listp 'md4tj-blog-file (md4tj-blog-names)))

(defun md4tj-blog-title (f)
  "Get blog title from file F."
  (with-temp-buffer
	(insert-file-contents f)
	(goto-char (point-min))
	(if (search-forward-regexp "^@@BLOGPOSTTITLE" (point-max) t)
		(replace-regexp-in-string "^@@BLOGPOSTTITLE[ \t]+" "" (md4tj-util-getline))
	  "")))

(defun md4tj-blog-titles ()
  "Get all blog titles in current file."
  (cl-map #'listp 'md4tj-blog-title (md4tj-blog-files)))

(defun md4tj-blog-time (f)
  "Get blog time (unix time) from file F."
  (with-temp-buffer
	(insert-file-contents f)
	(goto-char (point-min))
	(if (search-forward-regexp "^@@BLOGPOSTDATE" (point-max) t)
		(replace-regexp-in-string "^@@BLOGPOSTDATE[ \t]+" "" (md4tj-util-getline))
	  "")))

(defun md4tj-blog-times ()
  "Get all blog times in current file."
  (cl-map #'listp 'md4tj-blog-time (md4tj-blog-files)))


;; triple of
;; Title
;; Time
;; Link
(defun md4tj-all-blogs-list ()
  "Get all blogs in current buffer."
  (-sort (lambda (l1 l2) (< (string-to-number (nth 1 l1)) (string-to-number (nth 1 l2)))) (md4tj-util-zip (list (md4tj-blog-titles) (md4tj-blog-times) (md4tj-blog-links)))))

(defun md4tj-all-blogs-list-elt-to-html (elt)
  "Convert abl list elt ELT to html."
  (concat "<div class=blogpost>" "\n"
		  "<a href=\"" (nth 2 elt) "\"><h4>" (nth 0 elt) "</h4></a>" "\n"
		  "<h5>" (format-time-string "%Y %B %d %H:%M" (string-to-number (nth 1 elt))) "</h5>" "\n"
		  "</div>"))

(defun md4tj-all-blogs-list-to-html (abl)
  "Convert all blogs list ABL to html."
  (mapconcat 'md4tj-all-blogs-list-elt-to-html (md4tj-all-blogs-list) "\n"))




  
(provide 'md4tj-blog)
;;; md4tj-blog.el ends here