From 9ae06ddf3d2b5b2f25bd7e8b804aa59fcd66d376 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Mon, 7 Sep 2020 11:15:48 +0200 Subject: [PATCH] Update achievements --- .achievements | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/.achievements b/.achievements index 9efac37..aa76b07 100644 --- a/.achievements +++ b/.achievements @@ -3,7 +3,7 @@ #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 "Cheater" "You have earned all Emacs achievements. Actually that's impossible." (lambda nil (and (every #'achievements-earned-p achievements-list))) nil nil 5 0 nil) #s(emacs-achievement "Free Software Zealot" "You've read the sales pitch." t nil nil 5 0 nil) #s(emacs-achievement "First things first" "You learned new things by using `help-for-help'." t nil nil 5 0 nil) #s(emacs-achievement "Show me the way" "You learned new things by using `help-with-tutorial'." t nil nil 5 0 nil) @@ -60,10 +60,10 @@ #s(emacs-achievement "Can you read upside down?" "You have installed and enjoyed `fliptext-flip-region'." t nil nil 5 100 nil) #s(emacs-achievement "Hack, hack, hack" "You have installed and enjoyed `nethack'." t nil nil 5 100 nil) #s(emacs-achievement "Nyan, Nyan, Nyan" "You have installed and enjoyed `nyan-mode'." t nil nil 5 100 nil) -#s(emacs-achievement "Pretty Stable" "You have an uptime of over 1 day." (lambda nil (and (featurep (quote uptimes)) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 86400))) nil nil 5 0 nil) +#s(emacs-achievement "Pretty Stable" "You have an uptime of over 1 day." (lambda nil (and (featurep 'uptimes) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 86400))) nil nil 5 0 nil) #s(emacs-achievement "It keeps going and going..." "You have an uptime of over 1 week." t nil nil 5 0 nil) -#s(emacs-achievement "Marathon Hacker" "You have an uptime of over 30 days." (lambda nil (and (featurep (quote uptimes)) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 2592000))) nil nil 5 0 nil) -#s(emacs-achievement "Methuselah" "You have an uptime of over 1 year!?" (lambda nil (and (featurep (quote uptimes)) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 31536000))) nil nil 5 0 nil) +#s(emacs-achievement "Marathon Hacker" "You have an uptime of over 30 days." (lambda nil (and (featurep 'uptimes) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 2592000))) nil nil 5 0 nil) +#s(emacs-achievement "Methuselah" "You have an uptime of over 1 year!?" (lambda nil (and (featurep 'uptimes) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 31536000))) nil nil 5 0 nil) #s(emacs-achievement "Short Story" "You've written the equivalent of a short story." t nil nil 5 0 nil) #s(emacs-achievement "Nanowrimo" "You could have finished Nanowrimo by now." t nil nil 5 0 nil) #s(emacs-achievement "War and Peace" "You've written the equivalent of War and Peace." t nil nil 5 0 nil) @@ -72,20 +72,20 @@ #s(emacs-achievement "Patriot or Rebel?" "You use XEmacs" (lambda nil (and (string-match "XEmacs\\|Lucid" emacs-version))) nil nil 5 0 nil) #s(emacs-achievement "Green Glowing faces" "You have used the console version Emacs." t nil nil 5 0 nil) #s(emacs-achievement "X marks the spot" "You have used the x version Emacs." t nil nil 5 0 nil) -#s(emacs-achievement "MacPort or Aquamacs" "You have used the mac version Emacs." (lambda nil (and (achievements-variable-was-set (quote (window-system mac))))) nil nil 5 0 nil) -#s(emacs-achievement "GNUStep or Cocoa" "You have used the nextstep version Emacs." (lambda nil (and (achievements-variable-was-set (quote (window-system ns))))) nil nil 5 0 nil) +#s(emacs-achievement "MacPort or Aquamacs" "You have used the mac version Emacs." (lambda nil (and (achievements-variable-was-set '(window-system mac)))) nil nil 5 0 nil) +#s(emacs-achievement "GNUStep or Cocoa" "You have used the nextstep version Emacs." (lambda nil (and (achievements-variable-was-set '(window-system ns)))) nil nil 5 0 nil) #s(emacs-achievement "Windows" "You have used the windows version Emacs." t nil nil 5 0 nil) -#s(emacs-achievement "DOS?" "You have used the DOS version Emacs." (lambda nil (and (achievements-variable-was-set (quote (window-system pc))))) nil nil 5 0 nil) -#s(emacs-achievement "Following the Hurd" "You have used Emacs on a gnu system." (lambda nil (and (achievements-variable-was-set (quote (system-type gnu))))) nil nil 5 0 nil) +#s(emacs-achievement "DOS?" "You have used the DOS version Emacs." (lambda nil (and (achievements-variable-was-set '(window-system pc)))) nil nil 5 0 nil) +#s(emacs-achievement "Following the Hurd" "You have used Emacs on a gnu system." (lambda nil (and (achievements-variable-was-set '(system-type gnu)))) nil nil 5 0 nil) #s(emacs-achievement "Tux's Friend" "You have used Emacs on a gnu/linux system." t nil nil 5 0 nil) -#s(emacs-achievement "Beastie's Pal" "You have used Emacs on a gnu/kfreebsd system." (lambda nil (and (achievements-variable-was-set (quote (system-type gnu/kfreebsd))))) nil nil 5 0 nil) -#s(emacs-achievement "Friends with Hexley" "You have used Emacs on a darwin system." (lambda nil (and (achievements-variable-was-set (quote (system-type darwin))))) nil nil 5 0 nil) -#s(emacs-achievement "DOS Box" "You have used Emacs on a ms-dos system." (lambda nil (and (achievements-variable-was-set (quote (system-type ms-dos))))) nil nil 5 0 nil) +#s(emacs-achievement "Beastie's Pal" "You have used Emacs on a gnu/kfreebsd system." (lambda nil (and (achievements-variable-was-set '(system-type gnu/kfreebsd)))) nil nil 5 0 nil) +#s(emacs-achievement "Friends with Hexley" "You have used Emacs on a darwin system." (lambda nil (and (achievements-variable-was-set '(system-type darwin)))) nil nil 5 0 nil) +#s(emacs-achievement "DOS Box" "You have used Emacs on a ms-dos system." (lambda nil (and (achievements-variable-was-set '(system-type ms-dos)))) nil nil 5 0 nil) #s(emacs-achievement "Windows Machine" "You have used Emacs on a windows-nt system." t nil nil 5 0 nil) -#s(emacs-achievement "The Swan" "You have used Emacs on a cygwin system." (lambda nil (and (achievements-variable-was-set (quote (system-type cygwin))))) nil nil 5 0 nil) +#s(emacs-achievement "The Swan" "You have used Emacs on a cygwin system." (lambda nil (and (achievements-variable-was-set '(system-type cygwin)))) nil nil 5 0 nil) #s(emacs-achievement "Anonymous" "You have `user-mail-address' set to nil." t nil nil 5 0 nil) #s(emacs-achievement "The One and Only" "You are Richard Stallman." (lambda nil (and (equal user-mail-address "rms@gnu.org"))) nil nil 50 0 nil) -#s(emacs-achievement "A Well Oiled Machine" "You help maintain Emacs." (lambda nil (and (member user-mail-address (quote ("rms@gnu.org" "cyd@gnu.org" "monnier@iro.umontreal.ca"))))) nil nil 50 0 nil) +#s(emacs-achievement "A Well Oiled Machine" "You help maintain Emacs." (lambda nil (and (member user-mail-address '("rms@gnu.org" "cyd@gnu.org" "monnier@iro.umontreal.ca")))) nil nil 50 0 nil) #s(emacs-achievement "Tainted Love" "You have enabled non-GNU package repositories." t nil nil 5 0 nil) #s(emacs-achievement "Vanilla" "You have no installed packages." (lambda nil (and (= (length package-alist) 0))) nil nil 5 0 nil) #s(emacs-achievement "Package Neophyte" "You have installed at least 1 package." t nil nil 5 0 nil) @@ -114,7 +114,7 @@ #s(emacs-achievement "Leaving Home" "You have edited files outside your home directory." t nil nil 5 0 nil) #s(emacs-achievement "The Examined Life" "You have command logging enabled." t 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 "Arbitrator" "You have used smerge-mode to resolve conflicts." (lambda nil (and (achievements-command-was-run '(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" t nil nil 5 0 nil) #s(emacs-achievement "Polyglot" "You have used over 20 major-modes at once." t nil nil 5 0 nil) #s(emacs-achievement "Org-anizer" "You have used `org-mode'." t nil nil 5 0 org-achievements)