Skip to content

Fire-jobs-if-needed should handle empty *jobs* list #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 5 commits into
base: master
Choose a base branch
from
Open

Fire-jobs-if-needed should handle empty *jobs* list #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
b7abedf
Fire-jobs-if-needed should handle empty *jobs* list
BnMcGn Sep 25, 2021
ca373eb
Bugfix
BnMcGn Sep 25, 2021
85b0ca1
Merge branch 'master' of github.com:BnMcGn/clerk
BnMcGn Sep 26, 2021
93d481a
Cosmetic touchups
BnMcGn Sep 27, 2021
6f03b64
Update README.md
BnMcGn Oct 5, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 10 additions & 6 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,8 @@

A cron-like scheduler with sane DSL

**Maintained fork is at [https://github.com/lisp-maintainers/clerk](https://github.com/lisp-maintainers/clerk)**

## Example usage

### Job MACRO
Expand Down Expand Up @@ -59,19 +61,19 @@ The original idea was for users to use the library to execute some sort of execu
#'query-api-fn)
```

As you can see, you have to provide a function (either anonimous function or a function symbol) as the last argument.
As you can see, you have to provide a function (either anonymous function or a function symbol) as the last argument.

## Instalation and usage
## Installation and usage

Clone the repo inside `quicklisp/local-projects` and do `(ql:quicklisp :clerk)` in your REPL.

Make sure your jobs are loaded before executing `(clerk:start)`. The jobs reside inside `clerk:*jobs*`, but you can also type `(clerk:calendar)` to see a list of all scheduled and running jobs.

### Job types

There are two types of jobs - `continuous` and `one-time`. If a job has the keyword `every` after the job description - the job will be countinuous. This means that when an event is fired, a new event will be pushed in the event queue for firing exactly `interval` time from now. The jobs above are an example for `continuous` jobs.
There are two types of jobs - `continuous` and `one-time`. If a job has the keyword `every` after the job description - the job will be continuous. This means that when an event is fired, a new event will be pushed in the event queue for firing exactly `interval` time from now. The jobs above are an example of `continuous` jobs.

A `one-time` job is fired once and then it is removed from the jobs' queue. An example for a one-time job can be:
A `one-time` job is fired once and then it is removed from the jobs queue. An example of a one-time job can be:

```
(job "Extraordinary event" in 5.days (send-mail "Don't forget X"))
Expand Down Expand Up @@ -99,6 +101,8 @@ where the number is a positive integer and the `interval-type` if one of the fol

Pretty self-explanatory. The idea is that if you type the day of the week, clerk will calculate when it is and add an event to the queue.

## Issues / Contribution
## Maintenance

Clerk was written by Petko Tsikov

If you have issues - open a github issue or contact me at `(reverse "moc.liamg@vokist")`. If you want to contribute - open an issue or make a PR. Thanks!
It is currently maintained by Ben McGunigle (bnmcgn at gmail dot com)
15 changes: 7 additions & 8 deletions src/clerk.lisp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -73,13 +73,12 @@ jobs."
(add-to-jobs-queue name 'every interval body)))

(defun fire-job-if-needed ()
(if (fire-job-p (car *jobs*))
(progn
(fire-job (pop *jobs*))
;; just in case the second job in queue is the same
;; second as the first one. Or there might be a lot of
;; jobs in the queue.
(fire-job-if-needed))))
(when (and *jobs* (fire-job-p (car *jobs*)))
(fire-job (pop *jobs*))
;; just in case the second job in queue is the same
;; second as the first one. Or there might be a lot of
;; jobs in the queue.
(fire-job-if-needed)))

(defun start ()
"Start the thread that waits for a jobs to fire."
Expand All @@ -89,7 +88,7 @@ jobs."
(loop
(fire-job-if-needed)
(sleep 1)))
:name "Main scheduler thread.")))
:name "Clerk scheduler thread")))

(defun stop ()
"Stop scheduler"
Expand Down