;;; yolo.el -- Serving emacs, no security -*- lexical-binding: t -*-

;; Copyright (C) 2023  Free Software Foundation, Inc.

;; Author: Yuchen Pei <id@ypei.org>
;; Package-Requires: ((emacs "28.2"))

;; This file is part of dotted.

;; dotted is free software: you can redistribute it and/or modify it under
;; the terms of the GNU Affero General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; dotted is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
;; Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with dotted.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; Serving Emacs, no security.
;; usage: eval
;; (yolo-start)
;; open your browser, the following displays the Emacs splash screen
;; localhost:9999

;;; Code:

(require 'web-server)

(defvar yolo-server nil "The yolo server object.")

(defvar yolo-port 9999 "The yolo port.")

(defun yolo-serve (buffer)
  "Serve BUFFER with htmlize."
  (setq buffer (substring (url-unhex-string buffer) 1))
  (when (string-empty-p buffer)
    (setq buffer "*GNU Emacs*")
    ;; (let (buffers (buffer-list))
    ;;   (with-current-buffer (htmlize-buffer
    ;;                         (nth (random (length buffers)) buffers))
    ;;     (buffer-string)))
    )
  ;; todo: kill the htmlized buffer!
  (with-current-buffer (htmlize-buffer buffer)
    (buffer-string)))

;;;###autoload
(defun yolo-start ()
  "Start serving Emacs."
  (when yolo-server (yolo-stop))
  (setq yolo-server
        (ws-start
         (lambda (request)
           (with-slots (process headers) request
             (ws-response-header process 200 '("Content-type" . "text/html"))
             (process-send-string
              process
              (yolo-serve (alist-get :GET headers))
              )))
         yolo-port)))

(defun yolo-stop ()
  "Stop serving Emacs."
  (ws-stop yolo-server))

(provide 'yolo)
;;; yolo.el ends here