;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/ums.el

(require 'math)

(defun ums-stats ()
  (let ((buf (get-buffer-create "*UMS stats*")))
    (with-current-buffer buf
      (erase-buffer)
      (insert-file-contents "~/leaflet/list/list.txt")
      (let*((beg (point-min))
            (end (point-max))
            (mums (how-many "·"      beg end))
            (tot  (+ mums (how-many "\*" beg end)))
            (a (how-many "\(.*Å.*\)" beg end))
            (b (how-many "\(.*B.*\)" beg end))
            (l (how-many "\(.*L.*\)" beg end))
            (m (how-many "\(.*M.*\)" beg end))
            (s (how-many "\(.*S.*\)" beg end))
            (brd  (how-many "\("     beg end))
            (sanc (1- (+ mums brd)))
            (perc-a    (percent a    tot t))
            (perc-b    (percent b    tot t))
            (perc-l    (percent l    tot t))
            (perc-m    (percent m    tot t))
            (perc-s    (percent s    tot t))
            (perc-brd  (percent brd  tot t))
            (perc-mums (percent mums tot t))
            (perc-sanc (percent sanc tot t)) )
        (goto-char (point-min))

        (insert (format "Antal genomförda projekt på UMS: %d\n" tot))

        (insert (format "\nMed Björn: %d (%s)"   b perc-b))
        (insert (format "\n    Linus: %d (%s)"   l perc-l))
        (insert (format "\n Matthias: %d (%s)"   m perc-m))
        (insert (format "\n    Sofia: %d (%s)"   s perc-s))
        (insert (format "\n      Åka: %d (%s)\n" a perc-a))

        (insert (format "\nMed någon i styrelsen: %d (%s)\n" brd perc-brd))

        (insert (format "\nFör metallverkstan: %d (%s)\n" mums perc-mums))

        (insert (format "\nSammantaget metallverkstan/styrelsen: %d (%s)\n\n" sanc perc-sanc))

    (pop-to-buffer buf) ))))

;; (ums-stats)

(provide 'ums)