84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
;; ;; ease debugging by loading ~/.dashboardrc
;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
;; (if (common:file-exists? debugcontrolf)
;; (load debugcontrolf)))
;;
;; (debug:setup)
(define *tim* (iup:timer))
(define *ord* #f)
|
|
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(if (args:get-arg "-h")
(begin
(print help)
(exit)))
;; ;; ease debugging by loading ~/.dashboardrc
;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
;; (if (file-exists? debugcontrolf)
;; (load debugcontrolf)))
;;
;; (debug:setup)
(define *tim* (iup:timer))
(define *ord* #f)
|