浏览代码

Add new todo states to #emacs and orgmode

Colin Powell 5 年之前
父节点
当前提交
578b1c83a6
共有 3 个文件被更改,包括 19 次插入3 次删除
  1. 4 3
      emacs/.config/doom/+org.el
  2. 12 0
      emacs/.config/doom/config.el
  3. 3 0
      emacs/.config/doom/packages.el

+ 4 - 3
emacs/.config/doom/+org.el

@@ -36,14 +36,15 @@
                "*  %?\nEntered on %U\n"))
 
         org-todo-keywords
-            '((sequence "TODO(t)" "NEXT(n)" "WAITING(w)" "MAYBE(m)" "|" "DONE(d)"))
+            '((sequence "TODO(t)" "NEXT(n)" "MAYBE(m)" "|" "DONE(d)" "WONTDO(w)"))
 
         org-todo-keyword-faces
             '((("TODO" . (:foreground "red" :weight bold))
                ("NEXT" . (:foreground "blue"))
                ("MAYBE" . (:foreground "sea green"))
-               ("WAITING" . (:foreground "forest green")))
-               ("DONE" . (:foreground "light sea green")))
+               ("WAITING" . (:foreground "forest green"))
+               ("WONTDO" . (:foreground "forest green"))
+               ("DONE" . (:foreground "light sea green"))))
 
         org-agenda-span 5
         org-agenda-start-day "1d"

+ 12 - 0
emacs/.config/doom/config.el

@@ -166,6 +166,18 @@
       message-sendmail-extra-arguments '("--read-envelope-from")
       mail-envelope-from 'header)
 
+;;; It is the opposite of fill-paragraph
+(defun unfill-paragraph ()
+  "Takes a multi-line paragraph and makes it into a single line of text."
+  (interactive)
+  (let ((fill-column (point-max)))
+    (fill-paragraph nil)))
+;; Handy key definition
+(define-key global-map "\M-z" 'unfill-paragraph)
+
+(achievements-mode)
+(nyan-mode)
+
 (add-to-list 'auto-mode-alist '("\\.plantuml\\'" . planetuml-mode))
 
 (load! "+ui.el")

+ 3 - 0
emacs/.config/doom/packages.el

@@ -55,6 +55,9 @@
 (package! deadgrep)
 (package! kaolin-themes)
 (package! magit-circleci)
+(package! achievements)
+(package! nyan-mode)
+
 ; provides typographical replacements
 (package! typo)