;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/bmi.el
;;
;; ------------------------------------------------
;; (update-bmi 80.5 1.80)     ; 24.8
;; ------------------------------------------------
;; underweight very severely  < 15
;; underweight severely         15
;; underweight                  16
;; healthy weight               18.5
;; overweight                   25
;; obese moderately             30
;; obese severely               35
;; obese very severely          40
;; obese morbidly               45
;; obese super                  50
;; obese hyper               >= 60
;; ------------------------------------------------
;; https://en.wikipedia.org/wiki/Body_mass_index
;; ------------------------------------------------

(require 'newcomment)

(defun update-bmi (w l)
  (let*((bmi (/ w (expt l 2))))
    (unless (looking-at "[[:space:]]*$")
      (kill-line) )
    (insert (format "%s %s %.1f" (make-string 4 ?\s) comment-start bmi))
    (save-buffer) ))

(provide 'bmi)