Define the helper function
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
Get a number as input
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
Bind it to
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
If the number is an integer
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
And it is greater than
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
Return the input
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
If not, print a helpful message
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))
Ask for a positive input again.
(defunxx--read-positive(prompt)(let)((input)(read-numberprompt))(if)(andinput(integerpinput)(>input0))(message"Enter an integer greater than 0.")(sit-for1)(xx--read-positiveprompt))