(#s(emacs-achievement "Achiever" "You used the achievements package." t nil nil 5 0 nil) #s(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) #s(emacs-achievement "Unlocker" "You have earned over 50 points in Emacs achievements. Not bad." t nil nil 5 0 advanced-achievements) #s(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) #s(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) #s(emacs-achievement "Free Software Zealot" "You've read the sales pitch." (lambda nil (and (achievements-command-was-run (quote (about-emacs describe-copying describe-distribution describe-gnu-project describe-no-warranty))))) nil nil 5 0 nil) #s(emacs-achievement "First things first" "You learned new things by using `help-for-help'." (lambda nil (and (achievements-command-was-run (quote help-for-help)))) nil nil 5 0 nil) #s(emacs-achievement "Show me the way" "You learned new things by using `help-with-tutorial'." (lambda nil (and (achievements-command-was-run (quote help-with-tutorial)))) nil nil 5 0 nil) #s(emacs-achievement "RTFM" "You learned new things by using `info-emacs-manual'." (lambda nil (and (achievements-command-was-run (quote info-emacs-manual)))) nil nil 5 0 nil) #s(emacs-achievement "Log Auditor" "You learned new things by using `view-echo-area-messages'." (lambda nil (and (achievements-command-was-run (quote view-echo-area-messages)))) nil nil 5 0 nil) #s(emacs-achievement "FAQ" "You learned new things by using `view-emacs-FAQ'." (lambda nil (and (achievements-command-was-run (quote view-emacs-FAQ)))) nil nil 5 0 nil) #s(emacs-achievement "What's new?" "You learned new things by using `view-emacs-news'." (lambda nil (and (achievements-command-was-run (quote view-emacs-news)))) nil nil 5 0 nil) #s(emacs-achievement "Am I the only one?" "You learned new things by using `view-emacs-problems'." (lambda nil (and (achievements-command-was-run (quote view-emacs-problems)))) nil nil 5 0 nil) #s(emacs-achievement "Entomologist" "You learned new things by using `view-emacs-debugging'." (lambda nil (and (achievements-command-was-run (quote view-emacs-debugging)))) nil nil 5 0 nil) #s(emacs-achievement "Joining the cause" "You learned new things by using `view-emacs-todo'." (lambda nil (and (achievements-command-was-run (quote view-emacs-todo)))) nil nil 5 0 nil) #s(emacs-achievement "Where else can I look?" "You learned new things by using `view-external-packages'." (lambda nil (and (achievements-command-was-run (quote view-external-packages)))) nil nil 5 0 nil) #s(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) #s(emacs-achievement "Package Hunter" "You learned new things by using `(finder-by-keyword describe-package)'." (lambda nil (and (achievements-command-was-run (quote (finder-by-keyword describe-package))))) nil nil 5 0 nil) #s(emacs-achievement "I know I read it somewhere" "You answered a question by using `apropos-documentation'." (lambda nil (and (achievements-command-was-run (quote apropos-documentation)))) nil nil 5 0 nil) #s(emacs-achievement "Apropos of Nothing" "You answered a question by using `apropos'." (lambda nil (and (achievements-command-was-run (quote apropos)))) nil nil 5 0 nil) #s(emacs-achievement "Answer in search of a question" "You answered a question by using `apropos-value'." (lambda nil (and (achievements-command-was-run (quote apropos-value)))) nil nil 5 0 nil) #s(emacs-achievement "What to type?" "You answered a question by using `d
>?\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) #s(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) #s(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) #s(emacs-achievement "Forbidden Fruits" "You have used all disabled commands." (lambda nil (and (achievements-command-was-run (quote (dired-find-alternate-file list-timers narrow-to-page scroll-left))))) nil nil 5 0 nil) #s(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) #s(emacs-achievement "Case Changer" "You have changed the case of a few words." (lambda nil (and (achievements-command-was-run (quote (upcase-word downcase-word capitalize-word))))) nil nil 5 0 nil) #s(emacs-achievement "CASE CHANGER" "You have changed the case of vast amounts of text." (lambda nil (and (achievements-command-was-run (quote (upcase-region downcase-region))))) nil nil 5 0 nil) #s(emacs-achievement "The Great Destroyer" "You have laid waste to an entire buffer in one go." (lambda nil (and (achievements-command-was-run (quote erase-buffer)))) nil nil 5 0 nil) #s(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) #s(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) #s(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) #s(emacs-achievement "Yes Man" "You can't say no." (lambda nil (and (and (>= (length yes-or-no-p-history) 10) (every (lambda (x) (equal "yes" x)) yes-or-no-p-history)))) nil nil 5 0 nil) #s(emacs-achievement "Leaving Home" "You have edited files outside your home directory." (lambda nil (and (and (getenv "HOME") (not (every (lambda (x) (or (string-match (concat "^" (regexp-quote (getenv "HOME"))) x) (string-match (concat "^[~]/") x))) file-name-history))))) nil nil 5 0 nil) #s(emacs-achievement "The Examined Life" "You have command logging enabled." (lambda nil (and (achievements-command-was-run (quote keyfreq-show)))) nil nil 5 0 nil) #s(emacs-achievement "Playing it Safe" "Your .emacs is under version control." t nil nil 5 0 nil) #s(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) #s(emacs-achievement "Surfs up" "You use Emacs for surfing the web" (lambda nil (and (achievements-command-was-run (quote (eww eww-browse-url eww-open-file w3 w3-fetch w3-open-local w3-quit w3m w3m-browse-url w3m-find-file))))) nil nil 5 0 nil) #s(emacs-achievement "Polyglot" "You have used over 20 major-modes at once." (lambda nil (and (<= 20 (length (let ((modes nil)) (loop for buf in (buffer-list) do (add-to-list (quote modes) (buffer-local-value (quote major-mode) buf))) modes))))) nil nil 5 0 nil) #s(emacs-achievement "Org-anizer" "You have used `org-mode'." (lambda nil (and (achievements-command-was-run (quote org-mode)))) nil nil 5 0 org-achievements))
