;;; -*- lexical-binding: t -*-

;; This file: http://user.it.uu.se/~embe8573/emacs-init/bmi.el
;;            https://dataswamp.org/~incal/emacs-init/bmi.el

(defun bmi (w l)
  (/ w (* l l)) )

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

;; (update-bmi 74.0 1.80) ; 22.8
;;
;;                                   BMI = kg/m^2
;;                                   from   to
;;                                   ------------
;; very severely underweight                15
;; severely underweight              15     16
;; underweight                       16     18.5
;; healthy weight                    18.5   25    <- 22.8
;; overweight                        25     30
;; obese I    (moderately obese)     30     35
;; obese II   (severely)             35     40
;; obese III  (very severely)        40     45
;; obese IV   (morbidly)             45     50
;; obese V    (super)                50     60
;; obese VI   (hyper)                60
;;
;; https://en.wikipedia.org/wiki/Body_mass_index