Explicitly define setter functions for timeline tooling
This is more explicitly and allows for more flexiblity. Let's hope the performance impact is not prohibitive, though.
This commit is contained in:
parent
dd27018420
commit
2e229c5af9
|
@ -119,14 +119,22 @@ end date of the timeline."
|
||||||
|
|
||||||
;; Model
|
;; Model
|
||||||
|
|
||||||
(defalias 'timeline-tools-entry-start-time 'car
|
(defun timeline-tools-entry-start-time (entry)
|
||||||
"Start time of ENTRY.")
|
"Start time of ENTRY."
|
||||||
|
(car entry))
|
||||||
|
|
||||||
(defalias 'timeline-tools-entry-end-time 'cadr
|
(defun timeline-tools-entry-end-time (entry)
|
||||||
"End time of ENTRY.")
|
"End time of ENTRY."
|
||||||
|
(cadr entry))
|
||||||
|
|
||||||
(defalias 'timeline-tools-entry-marker 'caddr
|
(defun timeline-tools-entry-marker (entry)
|
||||||
"Marker to org task of ENTRY.")
|
"Marker to org task of ENTRY."
|
||||||
|
(caddr entry))
|
||||||
|
|
||||||
|
(gv-define-setter timeline-tools-entry-start-time
|
||||||
|
(time entry) `(setcar ,entry ,time))
|
||||||
|
(gv-define-setter timeline-tools-entry-end-time
|
||||||
|
(time entry) `(setcar (cdr ,entry) ,time))
|
||||||
|
|
||||||
(defun timeline-tools-make-entry (start-time end-time marker)
|
(defun timeline-tools-make-entry (start-time end-time marker)
|
||||||
"Return a timeline entry made up of START-TIME, END-TIME, and MARKER.
|
"Return a timeline entry made up of START-TIME, END-TIME, and MARKER.
|
||||||
|
|
Loading…
Reference in New Issue