contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Rename slot activity -> name

This commit is contained in:
contrapunctus 2022-04-18 23:15:16 +05:30
parent cf50c5beaf
commit 07609d4813
1 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
cl/chronometrist.org
View File

@ -975,19 +975,22 @@ return a list of tasks from the active backend."
#+BEGIN_SRC lisp
(defclass interval ()
((properties :initarg :properties :accessor properties)
(activity :initarg :activity
:accessor activity
:type string
:documentation "The name of the task executed during this interval.")
(name :initarg :name
:accessor name
:type string
:documentation "The name of the task executed during this interval.")
(start :initarg :start
:accessor start
:type integer
:documentation "The time at which this interval started, as an integer representing the UNIX epoch time.")
:documentation "The time at which this interval started, as
an integer representing the UNIX epoch time.")
(stop :initarg :stop
:accessor stop
:type integer
:documentation "The time at which this interval ended, as an integer representing the UNIX epoch time."))
(:documentation "A time range spent on a specific task, with optional properties."))
:documentation "The time at which this interval ended, as an
integer representing the UNIX epoch time."))
(:documentation "A time range spent on a specific task, with
optional properties."))
#+END_SRC
**** event :class:
@ -1001,7 +1004,8 @@ return a list of tasks from the active backend."
(time :initarg :time
:accessor event-time
:type integer
:documentation "The time at which this interval started, as an integer representing the UNIX epoch time."))
:documentation "The time at which this interval started, as
an integer representing the UNIX epoch time."))
(:documentation "A named timestamp with optional properties."))
#+END_SRC
@ -1348,24 +1352,30 @@ based on `*user-data-file*' and the BACKEND extension slot."
((rest-start :initarg :rest-start
:initform nil
:accessor backend-rest-start
:documentation "Integer denoting start of first s-expression in file.")
:documentation "Integer denoting start of first
s-expression in file.")
(rest-end :initarg :rest-end
:initform nil
:accessor backend-rest-end
:documentation "Integer denoting end of second-last s-expression in file.")
:documentation "Integer denoting end of second-last
s-expression in file.")
(rest-hash :initarg :rest-hash
:initform nil
:accessor backend-rest-hash
:documentation "Hash of content between rest-start and rest-end.")
:documentation "Hash of content between rest-start and
rest-end.")
(file-length :initarg :file-length
:initform nil
:accessor backend-file-length
:documentation "Integer denoting length of file, as returned by `(point-max)'.")
:documentation "Integer denoting length of file, as
returned by `(point-max)'.")
(last-hash :initarg :last-hash
:initform nil
:accessor backend-last-hash
:documentation "Hash of content between rest-end and file-length."))
(:documentation "Base class for any text file backend which stores s-expressions readable by Emacs Lisp."))
:documentation "Hash of content between rest-end and
file-length."))
(:documentation "Base class for any text file backend which stores
s-expressions readable by Emacs Lisp."))
#+END_SRC
**** create-file :writer:method:
@ -2288,7 +2298,7 @@ ORDER BY interval_id DESC;")
(where (:= :date_id date-id))))))
connection)
collect (make-instance 'chronometrist:interval
:activity name
:name name
:start start
:stop stop
:properties (when properties