Ivan Andrus avatar Ivan Andrus committed acf9184

Fixed indentation

Comments (0)

Files changed (1)

 
 (defmacro defcommand-achievements (format-str body &rest arguments)
   (cons 'progn
-       (loop for achiev in body
-             collect (append
-                      (list 'defachievement
-                            (cadr achiev)
-                            (format format-str
-                                    (car achiev)
-                                    (cddr achiev))
-                            :command (list 'function (car achiev)))
-                      arguments))))
+        (loop for achiev in body
+              collect (append
+                       (list 'defachievement
+                             (cadr achiev)
+                             (format format-str
+                                     (car achiev)
+                                     (cddr achiev))
+                             :command (list 'function (car achiev)))
+                       arguments))))
 
 (defmacro defvalue-achievements (var format-str body &rest arguments)
   (cons 'progn
           (incf score points)
           (unless (emacs-achievement-transient achievement)
             (setf (emacs-achievement-predicate achievement) t)))))
-  ;; Save the updated list of achievements
-  (achievements-save-achievements)
-  (setq achievement-total total)
-  (setq achievement-score score)))
+    ;; Save the updated list of achievements
+    (achievements-save-achievements)
+    (setq achievement-total total)
+    (setq achievement-score score)))
 
 (defun achievements-earned-p (achievement)
   "Returns non-nil if the achievement is earned."
     (let ((pred (emacs-achievement-predicate achievement)))
       (when (>= achievement-score
                 (emacs-achievement-min-score achievement))
-          (insert (format "%s %20s | %s\n"
-                      (cond ((eq pred nil) ":-|")
-                            ((eq pred t) ":-)")
-                            ((listp pred)
-                             (if (funcall pred) ":-)" ":-("))
-                            (t ":-?"))
-                      (emacs-achievement-name achievement)
-                      (emacs-achievement-description achievement)))))))
+        (insert (format "%s %20s | %s\n"
+                        (cond ((eq pred nil) ":-|")
+                              ((eq pred t) ":-)")
+                              ((listp pred)
+                               (if (funcall pred) ":-)" ":-("))
+                              (t ":-?"))
+                        (emacs-achievement-name achievement)
+                        (emacs-achievement-description achievement)))))))
 
 ;;}}}
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.