ryuslash/scrumli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Keep priorities from diverging

Browse source 
Priorities should always be a sequence...
This commit is contained in:
Tom Willemse 2013-07-15 22:01:36 +02:00
parent 86b448369e
commit cfab0475f3
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
pg-datastore.lisp
View file

@ -94,8 +94,11 @@
:where (:= 'id id)) :where (:= 'id id))
:single)) :single))
(next-priority (funcall (ecase dir (:up #'-) (:down #'+)) (next-priority (funcall (ecase dir (:up #'-) (:down #'+))
current-priority 1))) current-priority 1))
(max-priority (query (:select (:max 'priority) :from type)
:single)))
(execute (:update type :set 'priority current-priority (execute (:update type :set 'priority current-priority
:where (:= 'priority next-priority))) :where (:= 'priority next-priority)))
(execute (:update type :set 'priority next-priority (execute (:update type :set
'priority (max 1 (min next-priority max-priority))
:where (:= 'id id)))))) :where (:= 'id id))))))