;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/bmi.el
;;;   https://dataswamp.org/~incal/emacs-init/bmi.el
;;;
;;; --------------------------------------------------
;;; (update-bmi 79.3 1.80) ; 24.5
;;; --------------------------------------------------
;;; underweight very severely       ..   - 15
;;; underweight severely            15   - 16
;;; underweight                     16   - 18.5
;;; healthy weight                  18.5 - 25
;;; overweight                      25   - 30
;;; obese moderately                30   - 35
;;; obese severely                  35   - 40
;;; obese very severely             40   - 45
;;; obese morbidly                  45   - 50
;;; obese super                     50   - 60
;;; obese hyper                     60   - ..
;;; -------------------------------------------------
;;; https://en.wikipedia.org/wiki/Body_mass_index
;;; -------------------------------------------------

(defun update-bmi (w l)
  (let*((bmi-value  (/ w (* l l 1.0)))
        (bmi-format (format "%.1f" bmi-value)))
    (unless (looking-at "[[:space:]]*$")
      (kill-line) )
    (insert (format " ; %s" bmi-format))
    (save-buffer)
    (forward-char -1)
    (string-to-number bmi-format) ))