mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: Reference to cl-assert

Browse source 
This is required by default in my emacs, but needs to be required here
for people not running Doom
This commit is contained in:
Griffin Smith 2019-02-18 11:56:43 -05:00
parent 514afa33c0
commit 4b4c0f1f4a
1 changed files with 6 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
org-clubhouse.el
View file

@ -33,6 +33,7 @@
;;; Code: ;;; Code:
(require 'cl-macs)
(require 'dash) (require 'dash)
(require 'dash-functional) (require 'dash-functional)
(require 's) (require 's)
@ -258,13 +259,6 @@ not be prompted")
drawer-pos)) drawer-pos))
(org-clubhouse-find-description-drawer))))))) (org-clubhouse-find-description-drawer)))))))
(comment
--elt
(equal 'drawer (car --elt))
()
--elt
)
;;; ;;;
;;; API integration ;;; API integration
;;; ;;;
@ -413,7 +407,7 @@ not be prompted")
'id))) 'id)))
(defun org-clubhouse-stories-in-project (project-id) (defun org-clubhouse-stories-in-project (project-id)
"Returns the stories in the given project as org bugs" "Return the stories in the given PROJECT-ID as org headlines."
(let ((resp-json (org-clubhouse-request "GET" (format "/projects/%d/stories" project-id)))) (let ((resp-json (org-clubhouse-request "GET" (format "/projects/%d/stories" project-id))))
(->> resp-json ->list reject-archived (->> resp-json ->list reject-archived
(-reject (lambda (story) (equal :json-true (alist-get 'completed story)))) (-reject (lambda (story) (equal :json-true (alist-get 'completed story))))
@ -498,7 +492,7 @@ not be prompted")
(cl-defun org-clubhouse-create-epic-internal (cl-defun org-clubhouse-create-epic-internal
(title &key milestone-id) (title &key milestone-id)
(assert (and (stringp title) (cl-assert (and (stringp title)
(integerp milestone-id))) (integerp milestone-id)))
(org-clubhouse-request (org-clubhouse-request
"POST" "POST"
@ -559,7 +553,7 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
(cl-defun org-clubhouse-create-story-internal (cl-defun org-clubhouse-create-story-internal
(title &key project-id epic-id story-type description) (title &key project-id epic-id story-type description)
(assert (and (stringp title) (cl-assert (and (stringp title)
(integerp project-id) (integerp project-id)
(or (null epic-id) (integerp epic-id)) (or (null epic-id) (integerp epic-id))
(or (null description) (stringp description)))) (or (null description) (stringp description))))
@ -670,7 +664,7 @@ children of that headline into tasks in the task list of the story."
;;; ;;;
(cl-defun org-clubhouse-create-task (title &key story-id) (cl-defun org-clubhouse-create-task (title &key story-id)
(assert (and (stringp title) (cl-assert (and (stringp title)
(integerp story-id))) (integerp story-id)))
(org-clubhouse-request (org-clubhouse-request
"POST" "POST"
@ -748,7 +742,7 @@ the headline."
(cl-defun org-clubhouse-update-story-internal (cl-defun org-clubhouse-update-story-internal
(story-id &rest attrs) (story-id &rest attrs)
(assert (and (integerp story-id) (cl-assert (and (integerp story-id)
(listp attrs))) (listp attrs)))
(org-clubhouse-request (org-clubhouse-request
"PUT" "PUT"