Commits

Ivan Andrus  committed b06131d

Added some achievements

  • Participants
  • Parent commits 3e906dc

Comments (0)

Files changed (2)

File advanced-achievements.el

                                          (string-match (concat "^[~]/") x)))
                          file-name-history))))
 
+(defachievement "The Examined Life"
+  "You have command logging enabled."
+  :command 'keyfreq-show)
+
+(defachievement "Playing it Safe"
+  "Your .emacs is under version control."
+  :predicate '(and (require 'vc nil t)
+                   (vc-backend user-init-file)))
+
+(defachievement "Arbitrator"
+  "You have used smerge-mode to resolve conflicts."
+  :command '(smerge-keep-all smerge-keep-base smerge-keep-current
+             smerge-keep-mine smerge-keep-other))
+
+(defachievement "Surfs up"
+  "You use Emacs for surfing the web"
+  :command '(eww eww-browse-url eww-open-file
+             w3 w3-fetch w3-open-local w3-quit
+             w3m w3m-browse-url w3m-find-file))
+
 ;;}}}
+;;{{{ Modes
+
+(defachievement "Polyglot"
+  "You have used over 20 major-modes at once."
+  :predicate '(<= 20
+                  (length (let ((modes nil))
+                            (loop for buf in (buffer-list)
+                                  do (add-to-list 'modes (buffer-local-value 'major-mode buf)))
+                            modes))))
+
+(defachievement "Org-anizer"
+  "You have used `org-mode'."
+  :command 'org-mode
+  :unlocks 'org-achievements)
+
+;;}}}
+
 
 (provide 'advanced-achievements)
 

File ideas-achievements.el

 
 ;;{{{ keybindings
 
-(defachievement "The Examined Life"
-  "You have command logging enabled."
-  :package 'command-frequency)
-
 (defachievement "Evil Genius"
   "Use `evil-mode'.")
 
 ;;}}}
 ;;{{{ org
 
-(defachievement "Organizer"
-  "Use `org-mode'.")
-
 (defachievement "Busy Bee"
   "You have more than 100 TODO items in your agenda")
 
 ;;}}}
 ;;{{{ Modes
 
-(defachievement "Polyglot"
-  "You have used over 50 major-modes.")
-
 (defachievement ""
   ;; descriptions like this could be autogenerated
   "You use cperl-mode."
 ;;}}}
 ;;{{{ Version control
 
-(defachievement "Playing it Safe"
-  "Your .emacs is under version control.")
-
 (defachievement "Old Timer"
   "Your .emacs has been under version control for over 5 years ago.")
 
-(defachievement ""
-  "You have used smerge-mode to resolve conflicts.")
-
 ;;}}}
 ;;{{{ Editing