;;; -*- 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 83.3 1.80)    ; 25.7
;;; --------------------------------------------------
;;; 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
;;; -------------------------------------------------

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