From 4b96cd6bd9cfbae53526e4715f4ade5420c154e4 Mon Sep 17 00:00:00 2001 From: Colin Powell Date: Tue, 26 Nov 2019 13:33:19 -0500 Subject: [PATCH] Break out #emacs config a little better --- emacs/.config/doom/+eshell.el | 14 +++++++++++ emacs/.config/doom/+mail.el | 9 +++++++ emacs/.config/doom/+mastodon.el | 9 +++++++ emacs/.config/doom/+mpd.el | 15 +++++++++++ emacs/.config/doom/+org.el | 3 ++- emacs/.config/doom/config.el | 44 +++++---------------------------- emacs/.config/doom/init.el | 2 +- emacs/.config/doom/packages.el | 1 - emacs/.emacs.d/.achievements | 4 +-- 9 files changed, 58 insertions(+), 43 deletions(-) create mode 100644 emacs/.config/doom/+eshell.el create mode 100644 emacs/.config/doom/+mastodon.el create mode 100644 emacs/.config/doom/+mpd.el diff --git a/emacs/.config/doom/+eshell.el b/emacs/.config/doom/+eshell.el new file mode 100644 index 0000000..d5f933c --- /dev/null +++ b/emacs/.config/doom/+eshell.el @@ -0,0 +1,14 @@ +;;; ~/.dotfiles/emacs/.config/doom/+eshell.el -*- lexical-binding: t; -*- + +(after! eshell + (set-eshell-alias! + "f" "(other-window 1) && find-file $1" + "l" "ls -lh" + "d" "dired $1" + "dc" "docker-compose $*" + "fftest" "cd ~/src/ff/fifteen5 && docker-compose exec app django-admin test -k $*" + "ffsh" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin shell_plus" + "ffdj" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin $*" + "gl" "(call-interactively 'magit-log-current)" + "gs" "magit-status" + "gc" "magit-commit")) diff --git a/emacs/.config/doom/+mail.el b/emacs/.config/doom/+mail.el index ad124aa..30dca38 100644 --- a/emacs/.config/doom/+mail.el +++ b/emacs/.config/doom/+mail.el @@ -446,3 +446,12 @@ with `notmuch-hello-query-counts'." (setq message-default-mail-headers "Cc: \nBcc: \n") (setq message-auto-save-directory "~/Mail/colin@onec.me/Drafts/") (setq message-directory "~/Mail/colin@onec.me/") + +;;; Setup sending email with msmtp +(setq send-mail-function 'sendmail-send-it + sendmail-program "/usr/local/bin/msmtp" + mail-specify-envelope-from t + message-sendmail-f-is-evil t + message-sendmail-envelope-from 'header + message-sendmail-extra-arguments '("--read-envelope-from") + mail-envelope-from 'header) diff --git a/emacs/.config/doom/+mastodon.el b/emacs/.config/doom/+mastodon.el new file mode 100644 index 0000000..0b6ac61 --- /dev/null +++ b/emacs/.config/doom/+mastodon.el @@ -0,0 +1,9 @@ +;;; ~/.dotfiles/emacs/.config/doom/+mastodon.el -*- lexical-binding: t; -*- + +(setq mastodon-instance-url "https://mastodon.technology") + +(map! :leader + (:prefix "=" + :desc "Open mastodon" "=" #'mastodon + :desc "Update Mastodon timeline" "u" #'mastodon-tl--update + :desc "Toot to Mastodon" "t" #'mastodon-toot)) diff --git a/emacs/.config/doom/+mpd.el b/emacs/.config/doom/+mpd.el new file mode 100644 index 0000000..ee0ffc6 --- /dev/null +++ b/emacs/.config/doom/+mpd.el @@ -0,0 +1,15 @@ +;;; ~/.dotfiles/emacs/.config/doom/+mpd.el -*- lexical-binding: t; -*- +(defun mpdel-playlist-play () + "Start playing the song at point." + (interactive) + (if (derived-mode-p 'mpdel-playlist-current-playlist-mode) + (libmpdel-play-song (navigel-entity-at-point)) + (mpdel-core-insert-current-playlist))) + +(map! :leader + (:prefix "-" + :desc "MPD Open playlist" "-" #'mpdel-playlist-open + :desc "MPD Remove at point" "d" #'mpdel-playlist-delete + :desc "MPD Start at point" "s" #'mpdel-playlist-play + :desc "MPD Next track" "n" #'libmpdel-playback-next + :desc "MPD Previous track" "p" #'libmpdel-playback-previous)) diff --git a/emacs/.config/doom/+org.el b/emacs/.config/doom/+org.el index 998d054..6e91edc 100644 --- a/emacs/.config/doom/+org.el +++ b/emacs/.config/doom/+org.el @@ -33,9 +33,10 @@ "* TODO %?\n %i\n %a") ("w" "Work diary entry" entry (file "~/org/work_diary.org") "* %u\n%?\n") + ("u" "Add unblink entry" entry (file+headline "~/org/unblink.org" "Misc") + "* TITLE\n:PROPERTIES:\n:EXPORT_FILE_NAME: TITLE\n:EXPORT_DATE: %i\n:END:\n%?\n") ("n" "Add an idea" entry (file "~/org/ideas.org") "* %?\nEntered on %U\n")) - org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "MAYBE(m)" "|" "DONE(d)" "WONTDO(w)")) diff --git a/emacs/.config/doom/config.el b/emacs/.config/doom/config.el index 2d5b10d..8200bef 100644 --- a/emacs/.config/doom/config.el +++ b/emacs/.config/doom/config.el @@ -72,12 +72,6 @@ (:prefix "o" :desc "Elfeed feed reader" "f" #'elfeed :desc "Lobste.rs" "l" #'ivy-lobsters) - (:prefix "l" - :desc "MPD Open playlist" "o" #'mpdel-playlist-open - :desc "MPD Remove at point" "d" #'mpdel-playlist-delete - :desc "MPD Start at point" "s" #'mpdel-playlist-play - :desc "MPD Next track" "n" #'libmpdel-playback-next - :desc "MPD Previous track" "p" #'libmpdel-playback-previous) (:prefix "b" :desc "Black format buffer" "f" #'blacken-buffer :desc "Links in buffer" "l" #'ace-link-org) @@ -120,20 +114,6 @@ (setq rmh-elfeed-org-files (list "~/org/elfeed.org") elfeed-search-filter "@1-week-ago +unread ") -;; emacs/eshell -(after! eshell - (set-eshell-alias! - "f" "(other-window 1) && find-file $1" - "l" "ls -lh" - "d" "dired $1" - "dc" "docker-compose $*" - "fftest" "cd ~/src/ff/fifteen5 && docker-compose exec app django-admin test -k $*" - "ffsh" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin shell_plus" - "ffdj" "cd ~/src/ff/fifteen5/ && docker-compose exec app django-admin $*" - "gl" "(call-interactively 'magit-log-current)" - "gs" "magit-status" - "gc" "magit-commit")) - (add-hook 'prog-mode-hook #'goto-address-mode) ;; Linkify links! ;; tools/deft @@ -144,14 +124,6 @@ (setq magit-repository-directories '(("~/work" . 2)) magit-save-repository-buffers nil) -;;; Setup sending email with msmtp -(setq send-mail-function 'sendmail-send-it - sendmail-program "/usr/local/bin/msmtp" - mail-specify-envelope-from t - message-sendmail-f-is-evil t - message-sendmail-envelope-from 'header - message-sendmail-extra-arguments '("--read-envelope-from") - mail-envelope-from 'header) ;;; It is the opposite of fill-paragraph (defun unfill-paragraph () @@ -162,26 +134,21 @@ ;; Handy key definition (define-key global-map "\M-z" 'unfill-paragraph) -(achievements-mode) +; add a v (nyan-mode) - (add-to-list 'auto-mode-alist '("\\.plantuml\\'" . planetuml-mode)) (load! "+ui.el") (load! "+org") ;; Org mode stuff like todos and rebindings (load! "+org-cal") (load! "+nov") ;; nov.el epub mode settings -;(load! "+elfeed") (load! "+mail") ;; Mail stuff +(load! "+eshell") +(load! "+mpd") (load! "+ranger") +(load! "+mastodon") (load! "+wttrin") ;; Weather config - -(defun mpdel-playlist-play () - "Start playing the song at point." - (interactive) - (if (derived-mode-p 'mpdel-playlist-current-playlist-mode) - (libmpdel-play-song (navigel-entity-at-point)) - (mpdel-core-insert-current-playlist))) +;(load! "+elfeed") ;; This runs a background web process ... ;; findout timezone location strings at http://worldtime.io (setq display-time-world-list '(("America/Los_Angeles" "San Francisco") @@ -190,3 +157,4 @@ ("Europe/London" "London") ("Europe/Warsaw" "Warsaw") ("Europe/Kiev" "Lviv"))) + diff --git a/emacs/.config/doom/init.el b/emacs/.config/doom/init.el index 5d26160..7f51057 100644 --- a/emacs/.config/doom/init.el +++ b/emacs/.config/doom/init.el @@ -185,7 +185,7 @@ ["#2b2a27" "#ff5d38" "#98be65" "#bcd42a" "#51afef" "#c678dd" "#46D9FF" "#ede0ce"]) '(custom-safe-themes (quote - ("a70b47c87e9b0940f6fece46656200acbfbc55e129f03178de8f50934ac89f58" "1f36ca86913068b7d8377a327394eecfff71be34119619f779cb229875ceec0c" "0eb3c0868ff890b0c4ee138069ce2a8936a8a69ba150efa6bfb9fb7c05af5ec3" "001c2ff8afde9c3e707a2eb3e810a0a36fb2b466e96377ac95968e7f8930a7c5" "2a3ffb7775b2fe3643b179f2046493891b0d1153e57ec74bbe69580b951699ca" "0fe9f7a04e7a00ad99ecacc875c8ccb4153204e29d3e57e9669691e6ed8340ce" "f951343d4bbe5a90dba0f058de8317ca58a6822faa65d8463b0e751a07ec887c" "423435c7b0e6c0942f16519fa9e17793da940184a50201a4d932eafe4c94c92d" "cdb3e7a8864cede434b168c9a060bf853eeb5b3f9f758310d2a2e23be41a24ae" "70cc30fd9d27a8d0d3ae82974ac2c409fd2cd5746470e2246778c6bec2d4857c" "5e96177f8bd6762e3f167fb7f5b6199fbff81704f654c66c772cd326d4fb78e3" "2878517f049b28342d7a360fd3f4b227086c4be8f8409f32e0f234d129cee925" "f30aded97e67a487d30f38a1ac48eddb49fdb06ac01ebeaff39439997cbdd869" default))) + ("528d0ed2f87187406f4db88879555f03f1c9478018a49e2e35c84b666c97d44a" "a70b47c87e9b0940f6fece46656200acbfbc55e129f03178de8f50934ac89f58" "1f36ca86913068b7d8377a327394eecfff71be34119619f779cb229875ceec0c" "0eb3c0868ff890b0c4ee138069ce2a8936a8a69ba150efa6bfb9fb7c05af5ec3" "001c2ff8afde9c3e707a2eb3e810a0a36fb2b466e96377ac95968e7f8930a7c5" "2a3ffb7775b2fe3643b179f2046493891b0d1153e57ec74bbe69580b951699ca" "0fe9f7a04e7a00ad99ecacc875c8ccb4153204e29d3e57e9669691e6ed8340ce" "f951343d4bbe5a90dba0f058de8317ca58a6822faa65d8463b0e751a07ec887c" "423435c7b0e6c0942f16519fa9e17793da940184a50201a4d932eafe4c94c92d" "cdb3e7a8864cede434b168c9a060bf853eeb5b3f9f758310d2a2e23be41a24ae" "70cc30fd9d27a8d0d3ae82974ac2c409fd2cd5746470e2246778c6bec2d4857c" "5e96177f8bd6762e3f167fb7f5b6199fbff81704f654c66c772cd326d4fb78e3" "2878517f049b28342d7a360fd3f4b227086c4be8f8409f32e0f234d129cee925" "f30aded97e67a487d30f38a1ac48eddb49fdb06ac01ebeaff39439997cbdd869" default))) '(fci-rule-color "#5B6268") '(jdee-db-active-breakpoint-face-colors (cons "#2b2a27" "#ff5d38")) '(jdee-db-requested-breakpoint-face-colors (cons "#2b2a27" "#98be65")) diff --git a/emacs/.config/doom/packages.el b/emacs/.config/doom/packages.el index b78ae5d..80e7a00 100644 --- a/emacs/.config/doom/packages.el +++ b/emacs/.config/doom/packages.el @@ -60,7 +60,6 @@ (package! deadgrep) (package! kaolin-themes) (package! magit-circleci) -(package! achievements) (package! nyan-mode) ; provides typographical replacements diff --git a/emacs/.emacs.d/.achievements b/emacs/.emacs.d/.achievements index 2f48234..1c9b98b 100644 --- a/emacs/.emacs.d/.achievements +++ b/emacs/.emacs.d/.achievements @@ -1,2 +1,2 @@ -(#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 `describe-bindings'." (lambda nil (and (achievements-command-was-run (quote describe-bindings)))) nil nil 5 0 nil) #s(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) #s(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) #s(emacs-achievement "When is a word not a word?" "You answered a question by using `describe-syntax'." (lambda nil (and (achievements-command-was-run (quote describe-syntax)))) nil nil 5 0 nil) #s(emacs-achievement "What did I just do?" "You answered a question by using `(command-history view-lossage)'." (lambda nil (and (achievements-command-was-run (quote (command-history view-lossage))))) nil nil 5 0 nil) #s(emacs-achievement "Shortcut genius" "You don't need to learn new shortcuts anymore." (lambda nil (and (achievements-variable-was-set (quote (suggest-key-bindings nil))))) nil nil 5 0 nil) #s(emacs-achievement "Streamlined" "Your .emacs took less that 1 second to load." (lambda nil (and (< (float-time (time-subtract after-init-time before-init-time)) 1))) t nil 5 0 nil) #s(emacs-achievement "Oops" "Your .emacs file had an error." t nil nil 5 0 nil) #s(emacs-achievement "Traditionalist" "You use .emacs instead of .emacs.d/init.el." (lambda nil (and (string-match "/\\.emacs\\'" user-init-file))) nil nil 5 0 nil) #s(emacs-achievement "Modernist" "You use .emacs.d/init.el instead of .emacs." t nil nil 5 0 nil) #s(emacs-achievement "Post Modernist" "You don't use .emacs.d/init.el or .emacs." (lambda nil (and (not (or (string-match "/init\\.el\\'" user-init-file) (string-match "/\\.emacs\\'" user-init-file))))) nil nil 5 0 nil) #s(emacs-achievement "Need for Speed" "Your .emacs is byte-compiled." (lambda nil (and (or (file-exists-p (concat user-init-file "c")) (file-exists-p (concat user-init-file ".elc"))))) nil nil 5 0 nil) #s(emacs-achievement "Last Year's Model" "Your byte-compiled .emacs is out of date." (lambda nil (and (cond ((file-exists-p (concat user-init-file "c")) (file-newer-than-file-p user-init-file (concat user-init-file "c"))) ((file-exists-p (concat user-init-file ".elc")) (file-newer-than-file-p user-init-file (concat user-init-file ".elc")))))) nil nil 5 0 nil) #s(emacs-achievement "Purest Vanilla" "You have no .emacs file. How is that even possible?" (lambda nil (and (not (file-exists-p user-init-file)))) nil nil 5 0 nil) #s(emacs-achievement "Twenty Five" "You have enjoyed `5x5'." (lambda nil (and (achievements-command-was-run (quote 5x5)))) nil nil 5 50 nil) #s(emacs-achievement "The Future of Pixar" "You have enjoyed `animate'." (lambda nil (and (achievements-command-was-run (quote animate)))) nil nil 5 50 nil) #s(emacs-achievement "Van Gogh" "You have enjoyed `artist-mode'." (lambda nil (and (achievements-command-was-run (quote artist-mode)))) nil nil 5 50 nil) #s(emacs-achievement "Hide and Seek" "You have enjoyed `blackbox'." (lambda nil (and (achievements-command-was-run (quote blackbox)))) nil nil 5 50 nil) #s(emacs-achievement "Blubb blubb" "You have enjoyed `bubbles'." (lambda nil (and (achievements-command-was-run (quote bubbles)))) nil nil 5 50 nil) #s(emacs-achievement "Change the world!" "You have enjoyed `butterfly'." (lambda nil (and (achievements-command-was-run (quote butterfly)))) nil nil 5 50 nil) #s(emacs-achievement "Spy vs Spy" "You have enjoyed `decipher'." (lambda nil (and (achievements-command-was-run (quote decipher)))) nil nil 5 50 nil) #s(emacs-achievement "Tabloids" "You have enjoyed `dissociated-press'." (lambda nil (and (achievements-command-was-run (quote dissociated-press)))) nil nil 5 50 nil) #s(emacs-achievement "I <3 Eliza" "You have enjoyed `doctor'." (lambda nil (and (achievements-command-was-run (quote doctor)))) nil nil 5 50 nil) #s(emacs-achievement "Adventure!" "You have enjoyed `dunnet'." (lambda nil (and (achievements-command-was-run (quote dunnet)))) nil nil 5 50 nil) #s(emacs-achievement "Connect 5" "You have enjoyed `gomoku'." (lambda nil (and (achievements-command-was-run (quote gomoku)))) nil nil 5 50 nil) #s(emacs-achievement "Penmanship" "You have enjoyed `handwrite'." (lambda nil (and (achievements-command-was-run (quote handwrite)))) nil nil 5 50 nil) #s(emacs-achievement "Saigon" "You have enjoyed `hanoi'." (lambda nil (and (achievements-command-was-run (quote hanoi)))) nil nil 5 50 nil) #s(emacs-achievement "It's Alive!" "You have enjoyed `life'." (lambda nil (and (achievements-command-was-run (quote life)))) nil nil 5 50 nil) #s(emacs-achievement "Telegraph Operator" "You have enjoyed `morse-region'." (lambda nil (and (achievements-command-was-run (quote morse-region)))) nil nil 5 50 nil) #s(emacs-achievement "Arithmetician" "You have enjoyed `mpuz'." (lambda nil (and (achievements-command-was-run (quote mpuz)))) nil nil 5 50 nil) #s(emacs-achievement "Ping" "You have enjoyed `pong'." (lambda nil (and (achievements-command-was-run (quote pong)))) nil nil 5 50 nil) #s(emacs-achievement "Chase your tail" "You have enjoyed `snake'." (lambda nil (and (achievements-command-was-run (quote snake)))) nil nil 5 50 nil) #s(emacs-achievement "All alone?" "You have enjoyed `solitaire'." (lambda nil (and (achievements-command-was-run (quote solitaire)))) nil nil 5 50 nil) #s(emacs-achievement "Tessellator" "You have enjoyed `tetris'." (lambda nil (and (achievements-command-was-run (quote tetris)))) nil nil 5 50 nil) #s(emacs-achievement "Yow!" "You have enjoyed `yow'." (lambda nil (and (achievements-command-was-run (quote yow)))) nil nil 5 50 nil) #s(emacs-achievement "The Matrix" "You have enjoyed `zone'." (lambda nil (and (achievements-command-was-run (quote zone)))) nil nil 5 50 nil) #s(emacs-achievement "Um, Star?" "You have installed and enjoyed `emstar'." (lambda nil (and (achievements-command-was-run (quote emstar)))) nil nil 5 100 nil) #s(emacs-achievement "Can you read upside down?" "You have installed and enjoyed `fliptext-flip-region'." (lambda nil (and (achievements-command-was-run (quote fliptext-flip-region)))) nil nil 5 100 nil) #s(emacs-achievement "Hack, hack, hack" "You have installed and enjoyed `nethack'." (lambda nil (and (achievements-command-was-run (quote nethack)))) nil nil 5 100 nil) #s(emacs-achievement "Nyan, Nyan, Nyan" "You have installed and enjoyed `nyan-mode'." (lambda nil (and (achievements-command-was-run (quote nyan-mode)))) 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 "It keeps going and going..." "You have an uptime of over 1 week." (lambda nil (and (featurep (quote uptimes)) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 604800))) 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 "Short Story" "You've written the equivalent of a short story." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 12000))) nil nil 5 0 nil) #s(emacs-achievement "Nanowrimo" "You could have finished Nanowrimo by now." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 300000))) nil nil 5 0 nil) #s(emacs-achievement "War and Peace" "You've written the equivalent of War and Peace." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 3523722))) nil nil 5 0 nil) #s(emacs-achievement "Proust" "You could have beaten Proust for longest novel." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 7200000))) nil nil 5 0 nil) #s(emacs-achievement "Loyalist" "You use GNU Emacs" t nil nil 5 0 nil) #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 "Windows" "You have used the windows version Emacs." (lambda nil (and (achievements-variable-was-set (quote (window-system w32))))) 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 "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 "Windows Machine" "You have used Emacs on a windows-nt system." (lambda nil (and (achievements-variable-was-set (quote (system-type windows-nt))))) 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 "Anonymous" "You have `user-mail-address' set to nil." (lambda nil (and (equal user-mail-address nil))) 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 "Tainted Love" "You have enabled non-GNU package repositories." t nil nil 5 0 nil) #s(emacs-achievement "Vanilla" "You have no installed packages." t nil nil 5 0 nil) #s(emacs-achievement "Package Neophyte" "You have installed at least 1 package." t nil nil 5 0 nil) #s(emacs-achievement "Package Apprentice" "You have installed over 10 packages." t nil nil 5 0 nil) #s(emacs-achievement "Package Journeyman" "You have installed over 100 packages." (lambda nil (and (>= (length package-alist) 100))) nil nil 5 0 nil) #s(emacs-achievement "Clean Desk" "You have less than 10 buffers open." t nil nil 5 0 nil) #s(emacs-achievement "Messy Desk" "You have over 100 buffers open." t nil nil 5 0 nil) #s(emacs-achievement "Papers to the ceiling" "You have over 1000 buffers open." (lambda nil (and (>= (length (buffer-list)) 1000))) nil nil 5 0 nil) #s(emacs-achievement "The Ol' Switcheroo" "You've switched to another buffer" (lambda nil (and (achievements-command-was-run (quote (switch-to-buffer ido-switch-buffer))))) nil nil 5 0 nil) #s(emacs-achievement "Buffer, buffers, everywhere" "You've seen all the buffers that can be seen." (lambda nil (and (achievements-command-was-run (quote (list-buffers ibuffer))))) nil nil 5 0 nil) #s(emacs-achievement "Top o' the morning" "You've used Emacs as a replacement for top." (lambda nil (and (achievements-command-was-run (quote proced)))) nil nil 5 0 nil) #s(emacs-achievement "Archer" "You use the arrow keys a lot." t nil nil 5 0 nil) #s(emacs-achievement "William Tell" "You use the arrow keys for almost everything." (lambda nil (and (let ((in-a-row 0) (success nil)) (mapc (lambda (e) (if (memq e (quote (right left up down))) (if (>= (incf in-a-row) 20) (setq success t)) (setq in-a-row 0))) (recent-keys)) success))) nil nil 5 0 nil) #s(emacs-achievement "No arrows" "You know the replacements for the arrow keys." (lambda nil (and nil)) nil #[nil " >\205 - >?\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 (narrow-to-region downcase-region erase-buffer projectile-ripgrep projectile-grep set-goal-column projectile-ag list-timers upcase-region 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." t 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)) +(#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 `describe-bindings'." (lambda nil (and (achievements-command-was-run (quote describe-bindings)))) nil nil 5 0 nil) #s(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) #s(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) #s(emacs-achievement "When is a word not a word?" "You answered a question by using `describe-syntax'." (lambda nil (and (achievements-command-was-run (quote describe-syntax)))) nil nil 5 0 nil) #s(emacs-achievement "What did I just do?" "You answered a question by using `(command-history view-lossage)'." (lambda nil (and (achievements-command-was-run (quote (command-history view-lossage))))) nil nil 5 0 nil) #s(emacs-achievement "Shortcut genius" "You don't need to learn new shortcuts anymore." (lambda nil (and (achievements-variable-was-set (quote (suggest-key-bindings nil))))) nil nil 5 0 nil) #s(emacs-achievement "Streamlined" "Your .emacs took less that 1 second to load." (lambda nil (and (< (float-time (time-subtract after-init-time before-init-time)) 1))) t nil 5 0 nil) #s(emacs-achievement "Oops" "Your .emacs file had an error." t nil nil 5 0 nil) #s(emacs-achievement "Traditionalist" "You use .emacs instead of .emacs.d/init.el." (lambda nil (and (string-match "/\\.emacs\\'" user-init-file))) nil nil 5 0 nil) #s(emacs-achievement "Modernist" "You use .emacs.d/init.el instead of .emacs." t nil nil 5 0 nil) #s(emacs-achievement "Post Modernist" "You don't use .emacs.d/init.el or .emacs." (lambda nil (and (not (or (string-match "/init\\.el\\'" user-init-file) (string-match "/\\.emacs\\'" user-init-file))))) nil nil 5 0 nil) #s(emacs-achievement "Need for Speed" "Your .emacs is byte-compiled." (lambda nil (and (or (file-exists-p (concat user-init-file "c")) (file-exists-p (concat user-init-file ".elc"))))) nil nil 5 0 nil) #s(emacs-achievement "Last Year's Model" "Your byte-compiled .emacs is out of date." (lambda nil (and (cond ((file-exists-p (concat user-init-file "c")) (file-newer-than-file-p user-init-file (concat user-init-file "c"))) ((file-exists-p (concat user-init-file ".elc")) (file-newer-than-file-p user-init-file (concat user-init-file ".elc")))))) nil nil 5 0 nil) #s(emacs-achievement "Purest Vanilla" "You have no .emacs file. How is that even possible?" (lambda nil (and (not (file-exists-p user-init-file)))) nil nil 5 0 nil) #s(emacs-achievement "Twenty Five" "You have enjoyed `5x5'." (lambda nil (and (achievements-command-was-run (quote 5x5)))) nil nil 5 50 nil) #s(emacs-achievement "The Future of Pixar" "You have enjoyed `animate'." (lambda nil (and (achievements-command-was-run (quote animate)))) nil nil 5 50 nil) #s(emacs-achievement "Van Gogh" "You have enjoyed `artist-mode'." (lambda nil (and (achievements-command-was-run (quote artist-mode)))) nil nil 5 50 nil) #s(emacs-achievement "Hide and Seek" "You have enjoyed `blackbox'." (lambda nil (and (achievements-command-was-run (quote blackbox)))) nil nil 5 50 nil) #s(emacs-achievement "Blubb blubb" "You have enjoyed `bubbles'." (lambda nil (and (achievements-command-was-run (quote bubbles)))) nil nil 5 50 nil) #s(emacs-achievement "Change the world!" "You have enjoyed `butterfly'." (lambda nil (and (achievements-command-was-run (quote butterfly)))) nil nil 5 50 nil) #s(emacs-achievement "Spy vs Spy" "You have enjoyed `decipher'." (lambda nil (and (achievements-command-was-run (quote decipher)))) nil nil 5 50 nil) #s(emacs-achievement "Tabloids" "You have enjoyed `dissociated-press'." (lambda nil (and (achievements-command-was-run (quote dissociated-press)))) nil nil 5 50 nil) #s(emacs-achievement "I <3 Eliza" "You have enjoyed `doctor'." (lambda nil (and (achievements-command-was-run (quote doctor)))) nil nil 5 50 nil) #s(emacs-achievement "Adventure!" "You have enjoyed `dunnet'." (lambda nil (and (achievements-command-was-run (quote dunnet)))) nil nil 5 50 nil) #s(emacs-achievement "Connect 5" "You have enjoyed `gomoku'." (lambda nil (and (achievements-command-was-run (quote gomoku)))) nil nil 5 50 nil) #s(emacs-achievement "Penmanship" "You have enjoyed `handwrite'." (lambda nil (and (achievements-command-was-run (quote handwrite)))) nil nil 5 50 nil) #s(emacs-achievement "Saigon" "You have enjoyed `hanoi'." (lambda nil (and (achievements-command-was-run (quote hanoi)))) nil nil 5 50 nil) #s(emacs-achievement "It's Alive!" "You have enjoyed `life'." (lambda nil (and (achievements-command-was-run (quote life)))) nil nil 5 50 nil) #s(emacs-achievement "Telegraph Operator" "You have enjoyed `morse-region'." (lambda nil (and (achievements-command-was-run (quote morse-region)))) nil nil 5 50 nil) #s(emacs-achievement "Arithmetician" "You have enjoyed `mpuz'." (lambda nil (and (achievements-command-was-run (quote mpuz)))) nil nil 5 50 nil) #s(emacs-achievement "Ping" "You have enjoyed `pong'." (lambda nil (and (achievements-command-was-run (quote pong)))) nil nil 5 50 nil) #s(emacs-achievement "Chase your tail" "You have enjoyed `snake'." (lambda nil (and (achievements-command-was-run (quote snake)))) nil nil 5 50 nil) #s(emacs-achievement "All alone?" "You have enjoyed `solitaire'." (lambda nil (and (achievements-command-was-run (quote solitaire)))) nil nil 5 50 nil) #s(emacs-achievement "Tessellator" "You have enjoyed `tetris'." (lambda nil (and (achievements-command-was-run (quote tetris)))) nil nil 5 50 nil) #s(emacs-achievement "Yow!" "You have enjoyed `yow'." (lambda nil (and (achievements-command-was-run (quote yow)))) nil nil 5 50 nil) #s(emacs-achievement "The Matrix" "You have enjoyed `zone'." (lambda nil (and (achievements-command-was-run (quote zone)))) nil nil 5 50 nil) #s(emacs-achievement "Um, Star?" "You have installed and enjoyed `emstar'." (lambda nil (and (achievements-command-was-run (quote emstar)))) nil nil 5 100 nil) #s(emacs-achievement "Can you read upside down?" "You have installed and enjoyed `fliptext-flip-region'." (lambda nil (and (achievements-command-was-run (quote fliptext-flip-region)))) nil nil 5 100 nil) #s(emacs-achievement "Hack, hack, hack" "You have installed and enjoyed `nethack'." (lambda nil (and (achievements-command-was-run (quote nethack)))) nil nil 5 100 nil) #s(emacs-achievement "Nyan, Nyan, Nyan" "You have installed and enjoyed `nyan-mode'." (lambda nil (and (achievements-command-was-run (quote nyan-mode)))) 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 "It keeps going and going..." "You have an uptime of over 1 week." (lambda nil (and (featurep (quote uptimes)) (> (let* ((uptime (car uptimes-top-n)) (seconds (- (cddr uptime) (cadr uptime)))) seconds) 604800))) 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 "Short Story" "You've written the equivalent of a short story." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 12000))) nil nil 5 0 nil) #s(emacs-achievement "Nanowrimo" "You could have finished Nanowrimo by now." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 300000))) nil nil 5 0 nil) #s(emacs-achievement "War and Peace" "You've written the equivalent of War and Peace." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 3523722))) nil nil 5 0 nil) #s(emacs-achievement "Proust" "You could have beaten Proust for longest novel." (lambda nil (and (> (achievements-num-times-commands-were-run (quote (self-insert-command org-self-insert-command))) 7200000))) nil nil 5 0 nil) #s(emacs-achievement "Loyalist" "You use GNU Emacs" t nil nil 5 0 nil) #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 "Windows" "You have used the windows version Emacs." (lambda nil (and (achievements-variable-was-set (quote (window-system w32))))) 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 "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 "Windows Machine" "You have used Emacs on a windows-nt system." (lambda nil (and (achievements-variable-was-set (quote (system-type windows-nt))))) 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 "Anonymous" "You have `user-mail-address' set to nil." (lambda nil (and (equal user-mail-address nil))) 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 "Tainted Love" "You have enabled non-GNU package repositories." t nil nil 5 0 nil) #s(emacs-achievement "Vanilla" "You have no installed packages." t nil nil 5 0 nil) #s(emacs-achievement "Package Neophyte" "You have installed at least 1 package." t nil nil 5 0 nil) #s(emacs-achievement "Package Apprentice" "You have installed over 10 packages." t nil nil 5 0 nil) #s(emacs-achievement "Package Journeyman" "You have installed over 100 packages." (lambda nil (and (>= (length package-alist) 100))) nil nil 5 0 nil) #s(emacs-achievement "Clean Desk" "You have less than 10 buffers open." t nil nil 5 0 nil) #s(emacs-achievement "Messy Desk" "You have over 100 buffers open." t nil nil 5 0 nil) #s(emacs-achievement "Papers to the ceiling" "You have over 1000 buffers open." (lambda nil (and (>= (length (buffer-list)) 1000))) nil nil 5 0 nil) #s(emacs-achievement "The Ol' Switcheroo" "You've switched to another buffer" (lambda nil (and (achievements-command-was-run (quote (switch-to-buffer ido-switch-buffer))))) nil nil 5 0 nil) #s(emacs-achievement "Buffer, buffers, everywhere" "You've seen all the buffers that can be seen." (lambda nil (and (achievements-command-was-run (quote (list-buffers ibuffer))))) nil nil 5 0 nil) #s(emacs-achievement "Top o' the morning" "You've used Emacs as a replacement for top." (lambda nil (and (achievements-command-was-run (quote proced)))) nil nil 5 0 nil) #s(emacs-achievement "Archer" "You use the arrow keys a lot." t nil nil 5 0 nil) #s(emacs-achievement "William Tell" "You use the arrow keys for almost everything." t nil nil 5 0 nil) #s(emacs-achievement "No arrows" "You know the replacements for the arrow keys." (lambda nil (and nil)) nil #[nil " >\205 + >?\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 (narrow-to-region downcase-region erase-buffer projectile-ripgrep projectile-grep set-goal-column projectile-ag list-timers upcase-region 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." t 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." t 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)) \ No newline at end of file