emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-edna dcbb344 18/72: Fixed up indenting


From: Ian Dunn
Subject: [elpa] scratch/org-edna dcbb344 18/72: Fixed up indenting
Date: Sun, 21 May 2017 21:11:21 -0400 (EDT)

branch: scratch/org-edna
commit dcbb3442ce0ebdf766d7ee758f2e009be66c1246
Author: Ian D <address@hidden>
Commit: Ian D <address@hidden>

    Fixed up indenting
---
 org-edna.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/org-edna.el b/org-edna.el
index a605179..5843086 100644
--- a/org-edna.el
+++ b/org-edna.el
@@ -59,17 +59,17 @@
 
 (defun org-edna--function-for-key (key)
   (cond
-    ((eq key 'consideration)
-     ;; Function is ignored here
-     (cons 'consideration 'identity))
-    (key
-     (when-let ((func-format (format "org-edna-%%s/%s" key))
-                (new-sym
-                 ;; Find the first bound function
-                 (seq-find
-                  (lambda (sym) (fboundp (intern (format func-format sym))))
-                  org-edna--types)))
-       (cons new-sym (intern (format func-format new-sym)))))))
+   ((eq key 'consideration)
+    ;; Function is ignored here
+    (cons 'consideration 'identity))
+   (key
+    (when-let ((func-format (format "org-edna-%%s/%s" key))
+               (new-sym
+                ;; Find the first bound function
+                (seq-find
+                 (lambda (sym) (fboundp (intern (format func-format sym))))
+                 org-edna--types)))
+      (cons new-sym (intern (format func-format new-sym)))))))
 
 (defun org-edna--handle-condition (func mod args targets consideration)
   ;; Check the condition at each target
@@ -135,7 +135,7 @@
                (not blocking-entry))                 ;; ever
       (setq blocking-entry
             (org-edna--handle-condition 'org-edna-condition/done
-                                       t nil targets consideration)))
+                                        t nil targets consideration)))
     ;; Only blockers care about the return value, and this will be non-nil if
     ;; the entry should be blocked.
     (setq org-block-entry-blocking blocking-entry)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]