Add rational type to all slots that encode time intervals in seconds.

atlas-engineer · Sep 13, 2022 · ddfa96c · ddfa96c
1 parent fc4f9ed
commit ddfa96c
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/libraries/download-manager/engine.lisp b/libraries/download-manager/engine.lisp
@@ -73,14 +73,14 @@ download.")
     :initarg :header
     :initform "")
    (update-interval
-    :type float
+    :type rational
     :accessor update-interval
     :initarg :update-interval
     :initform 1.0
     :documentation "Time in seconds after which a notification is sent to the
 `*notifications*' channel.")
    (last-update
-    :type float
+    :type rational
     :accessor last-update
     :initarg :last-update
     :initform 0.0

diff --git a/libraries/password-manager/password.lisp b/libraries/password-manager/password.lisp
@@ -10,7 +10,7 @@
     :documentation "The program to query for password information.")
    (sleep-timer
     15.0
-    :type float
+    :type rational
     :documentation "The amount of time to sleep, in seconds."))
   (:export-class-name-p t)
   (:export-accessor-names-p t)

diff --git a/libraries/prompter/prompter-source.lisp b/libraries/prompter/prompter-source.lisp
@@ -231,7 +231,7 @@ changes.")
 
    (notification-delay
     0.1
-    :type float
+    :type rational
     :documentation "Time in seconds after which to notify `update-notifier' if
 `suggestions' was modified.")
 
@@ -308,7 +308,7 @@ executed.  Also see `selection-actions-delay'.")
 
    (selection-actions-delay
     0.0
-    :type float
+    :type rational
     :documentation "Time in seconds after which `selection-actions' run."))
   (:export-class-name-p t)
   (:export-accessor-names-p t)

diff --git a/source/browser.lisp b/source/browser.lisp
@@ -136,7 +136,7 @@ issued by Control+<button1> in a new window.")
     :documentation "`local-time:timestamp' of when Nyxt was started.")
    (init-time
     0.0
-    :type float
+    :type rational
     :export nil
     :documentation "Initialization time in seconds.")
    (ready-p

diff --git a/source/mode/repeat.lisp b/source/mode/repeat.lisp
@@ -29,7 +29,7 @@
     :documentation "The number of times to repeat the commands for.")
    (repeat-interval
     1.0
-    :type float
+    :type rational
     :documentation "Time in seconds after which `repeat-action' is repeated.")
    (repeat-action
     nil