Re: ELisp - Making a list from a function returning a number

[steve-humphreys]

I have now started constructing my function but get many problems.

(defun timgrid ()

   (setq tstr 800)
   (setq tend 1300)
   (setq tpd 34)

   (setq i 0)
   (setq tim tstr)
   (setq tlist '(tim))
   (dotimes (i 4)
      (setq tfr (timfutur (tim tpd)))
      (setq tim tfr)
      (setq tlist (append (tlist) (tim))) ))


> Sent: Thursday, December 17, 2020 at 12:42 PM
> From: steve-humphreys@gmx.com
> To: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: ELisp - Making a list from a function returning a number
>
>
> I have written a function to return time as a number so I can set the 
> temporal grid
> in org-agenda.
>
> I was previously using number-sequence until someone fount a problem.  Now I 
> have timfutur to
> give me the next time (time interval "tsk" after time "tim")
>
> (tim (number-sequence tstr tend tskp))
>
> So what I have remaining to do is to make a list of numbers representing the 
> times when the
> agenda grids are displayed.
>
>
> (defun timfutur (tim tsk)
>
>    (let* ( (thr (/ tim 100))
>            (tmn (- tim (* thr 100)))
>
>            (tinc_mn (+ tmn tsk))
>            (tinc_hr (/ (+ tmn tsk) 60))
>            (tinc_mn (- tinc_mn (* tinc_hr 60)))
>
>            (thr_futur (* (+ thr tinc_hr) 100))
>            (tmn_futur tinc_mn)
>            (tim_out (+ thr_futur tmn_futur)) )
>       ;; --- body of let ----
>       tim_out ))                  ;  function returns last form
>
>