([cl-struct-emacs-achievement "Achiever" "You used the achievements package." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Not All There" "You have a fractional achievement score." (lambda nil (and (/= achievements-score (round achievements-score)))) nil nil 0.5 0 nil] [cl-struct-emacs-achievement "Unlocker" "You have earned over 50 points in Emacs achievements. Not bad." t nil nil 5 0 advanced-achievements] [cl-struct-emacs-achievement "Over Achiever" "You have earned 500 points in Emacs achievements. Don't you have some real work to do?" (lambda nil (and (>= achievements-score 500))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Cheater" "You have earned all Emacs achievements. Actually that's impossible." (lambda nil (and (every (function achievements-earned-p) achievements-list))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Free Software Zealot" "You've read the sales pitch." t nil nil 5 0 nil] [cl-struct-emacs-achievement "First things first" "You learned new things by using `help-for-help'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Show me the way" "You learned new things by using `help-with-tutorial'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "RTFM" "You learned new things by using `info-emacs-manual'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Log Auditor" "You learned new things by using `view-echo-area-messages'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "FAQ" "You learned new things by using `view-emacs-FAQ'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "What's new?" "You learned new things by using `view-emacs-news'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Am I the only one?" "You learned new things by using `view-emacs-problems'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Entomologist" "You learned new things by using `view-emacs-debugging'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Joining the cause" "You learned new things by using `view-emacs-todo'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Where else can I look?" "You learned new things by using `view-external-packages'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "World Traveler" "You learned new things by using `(view-hello-file describe-language-environment describe-input-method describe-coding-system)'." (lambda nil (and (achievements-command-was-run (quote (view-hello-file describe-language-environment describe-input-method describe-coding-system))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Package Hunter" "You learned new things by using `(finder-by-keyword describe-package)'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "I know I read it somewhere" "You answered a question by using `apropos-documentation'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Apropos of Nothing" "You answered a question by using `apropos'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Answer in search of a question" "You answered a question by using `apropos-value'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "What to type?" "You answered a question by using `describe-bindings'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "What does this do?" "You answered a question by using `(describe-function Info-goto-emacs-command-node info-lookup-symbol describe-variable describe-mode)'." (lambda nil (and (achievements-command-was-run (quote (describe-function Info-goto-emacs-command-node info-lookup-symbol describe-variable describe-mode))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "What happens when I do this?" "You answered a question by using `(describe-key describe-key-briefly Info-goto-emacs-key-command-node where-is)'." (lambda nil (and (achievements-command-was-run (quote (describe-key describe-key-briefly Info-goto-emacs-key-command-node where-is))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "When is a word not a word?" "You answered a question by using `describe-syntax'." t nil nil 5 0 nil] [cl-struct-emacs-achievement "What did I just do?" "You answered a question by using `(command-history view-lossage)'." t nil nil 5 0 nil] [cl-struct-emacs-achievem
>?\205\304 \"\211G\305\232\207" [this-command achievements--arrow-key-replacement-commands last-input-event achievements--arrow-keys-needing-replacements delete 0] 4] 5 0 nil] [cl-struct-emacs-achievement "Inception" "You have used recursive editing and exited succesfully." (lambda nil (and (achievements-command-was-run (quote (recursive-edit exit-recursive-edit))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Narrow minded" "You have used narrowing." (lambda nil (and (achievements-command-was-run (quote (narrow-to-region narrow-to-page))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Forbidden Fruits" "You have used all disabled commands." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Enabler" "You have enabled all commands." (lambda nil (and (= 0 (length (loop for s being the symbols when (get s (quote disabled)) collect s))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Case Changer" "You have changed the case of a few words." t nil nil 5 0 nil] [cl-struct-emacs-achievement "CASE CHANGER" "You have changed the case of vast amounts of text." t nil nil 5 0 nil] [cl-struct-emacs-achievement "The Great Destroyer" "You have laid waste to an entire buffer in one go." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Goal Setter" "You have set the goal column." (lambda nil (and (achievements-command-was-run (quote set-goal-column)))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Wide Load" "You have scrolled to see an extra wide buffer." (lambda nil (and (achievements-command-was-run (quote scroll-left)))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Dired reuse" "You have reused a dired buffer to look at another file/directory." (lambda nil (and (achievements-command-was-run (quote dired-find-alternate-file)))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Yes Man" "You can't say no." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Leaving Home" "You have edited files outside your home directory." t nil nil 5 0 nil] [cl-struct-emacs-achievement "The Examined Life" "You have command logging enabled." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Playing it Safe" "Your .emacs is under version control." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Arbitrator" "You have used smerge-mode to resolve conflicts." (lambda nil (and (achievements-command-was-run (quote (smerge-keep-all smerge-keep-base smerge-keep-current smerge-keep-mine smerge-keep-other))))) nil nil 5 0 nil] [cl-struct-emacs-achievement "Surfs up" "You use Emacs for surfing the web" t nil nil 5 0 nil] [cl-struct-emacs-achievement "Polyglot" "You have used over 20 major-modes at once." t nil nil 5 0 nil] [cl-struct-emacs-achievement "Org-anizer" "You have used `org-mode'." t nil nil 5 0 org-achievements])
