;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.

(in-package #:syslog_helper)

(cffi:defcstruct winsize
  (ws_row :unsigned-short)
  (ws_col :unsigned-short)
  (ws_xpixel :unsigned-short)
  (ws_ypixel :unsigned-short))

(defun get-term-size ()
  (flet ((ioctl-gwinsz (fd)
	   (cffi:with-foreign-object (ptr '(:pointer (:struct winsize)))
	     (let* ((res (osicat-posix:ioctl fd osicat-posix:tiocgwinsz ptr)))
	       (if (= res 0)
		   (cffi:with-foreign-slots ((ws_row ws_col) ptr (:struct winsize))
		     (list ws_row ws_col))
		   (format t "~&error~%"))))))
    (loop with err = nil
       for x from 0 to 2
       for res = (handler-case (ioctl-gwinsz x)
		   (osicat-posix:enotty (c) (setf err c)))
       finally (if err
		   (error err)
		   (return res)))))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun symbol-concat (start end)
    (serapeum:concat
     (symbol-name start)
     (symbol-name end))))

(defmacro define-codecs (name () &body mappings)
  `(progn
     (defun ,(intern (symbol-concat '#:decode- name)) (,name)
       (ecase ,name
	 ,@mappings))
     (defun ,(intern (symbol-concat '#:encode- name)) (,name)
       (string-case:string-case ((string-downcase ,name))
	 ,@(mapcar #'reverse mappings)))))

(cl-ansi-term:update-style-sheet
 '((:emergency :black :b-red :bold)
   (:alert :black :b-red)
   (:critical :red :bold)
   (:error :red)
   (:warning :yellow :bold)
   (:notice :yellow)
   (:info :green)))