Emacs定制

0x00 引言

Emacs是一个操作系统级别Editor，最初由Richard Stallman(理查德·马修·斯托曼)于1975年在MIT协同Guy Steele共同完成。很可能有人喜欢UNIX哲学，而讨厌Emacs这种包含万物的行为。而我会说“我喜欢UNIX哲学，也拥抱Emacs”。

0x01 Appointment

在diary文件中编辑你的安排如下

Monday
  8:00am  该工作咯
  3:00pm  看会儿paper
Tuesday
  8:00am  该工作咯
  3:00pm  看会儿paper
Wednesday
  8:00am  该工作咯
  3:00pm  看会儿paper
Thursday
  8:00am  该工作咯
  3:00pm  看会儿paper
Friday
  8:00am  该工作咯
  3:00pm  看会儿paper

* 1   清理一遍阅读列表，学习一个新主题

在你自己的配置文件中添加以下代码：

(global-set-key (kbd "<f9>")
                '(lambda () (interactive)
                   (progn
                     (if (not (featurep 'appt))
                         (appt-activate)
                       (unless appt-timer
                         (appt-activate)))
                     )))    ;quick access to Calendar and Diary

每次打开Emacs的时候，按f9就能激活提醒了。

0x02 Calendar

在生活中总有些节日不能错过，
在过往的时间中总有些日子不能忘怀，
在这世间总有些人不能不挂念，

那么cal-china-x就能登上舞台，解决你的这些问题了，它可以记录农历的节日，也可以记录阳历。每天打开Emacs就能看到近日的重要事件。

  (if  (< (string-to-number (format-time-string "%H")) 9)
      (calendar)
    (switch-to-buffer "*scratch*"))

0x03 writeroom mode

当你在写作或者编码时，是不是不喜欢被打扰？那么这个包就是你想要的。还记当年流行全屏写作软件，到处找软件的日子吗？有过iA Writer使用经历吗？

在Emacs中，你安装writeroom包后，就能完全沉浸在自己快乐写作或编码中，不会有任何打扰。

0x04 focus mode

当你写作或者编码时，是不是想减少关注点？那么focus包就是你要的。

0x05 Auctex

在使用Emacs之前，我一直使用TeXstudio作为TeXLive的前段，写作时使用Sublime。当你遇见Auctex时，你会喜欢上她的。

0x06 Time Format

当你全屏Emacs后，无法看到时间，你可以通过这个在mode line上看到时间奥。

  (setq display-time-24hr-format t
        ;; display-time-format "%d | %H:%M"
        ;; display-time-day-and-date t
        ;; display-time-interval 60
        display-time-default-load-average nil)
  (display-time-mode)

0x07 Org Pomodoro

org-pomodoro自带的显示样式，太长。占地方，我需要短些的。

    (custom-set-variables
     '(org-pomodoro-format "•%s")
     '(org-pomodoro-short-break-format "•%s") )

(add-hook 'org-pomodoro-finished-hook
          (lambda ()
            (mukhali/terminal-notifier-notify "Pomodoro" "time-for-relax")))
(add-hook 'org-pomodoro-short-break-finished-hook
          (lambda ()
            (mukhali/terminal-notifier-notify "Break-Completed" "ready-for-another?")))

0x08 Org Todo

任何事物默认设置永远不会是你想要的，就像QQ默认设置一样：不断打扰你，不断让你去社交。

Org 的设置还是需要定制的，根据自己的需求，使用频率去定制自己的方式。下面是我的一些基本定制内容。

    (define-key global-map (kbd "<f7>") 'org-agenda-list)
    (define-key global-map (kbd "<f9>")
      (lambda () (interactive) (org-capture nil "w")))
    (with-eval-after-load 'org-agenda
      (define-key org-agenda-mode-map (kbd "P") 'org-pomodoro))

    ;; (setq org-directory "~/org/")
    (setq org-deadline-warning-days 4)
    (setq org-agenda-files (list
                            "~/org/works.org"))
    (setq org-src-fontify-natively t)
    ;; (setq org-default-notes-file (concat org-directory "notes.org"))
    ;; (setq org-agenda-include-diary t)
    (setq org-refile-targets
          '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5)))
    (setq org-todo-keywords
          '((sequence "TODO(t)" "|" "DONE(d)" "CANCELED(c)")))

    (setq org-capture-templates
          '(("w" "I always arrive late at the office, 
                    but I make up for it by leaving early."
             entry (file+headline "works.org" "Works")
             "* TODO %?\n %i\n SCHEDULED: %t\n %a" :empty-lines 1)))

0x09 Windows notifier

不喜欢Emacs自带的notifier，感谢开源运动，让我有解决方案可选。下面是我的定制。

  (setq terminal-notifier-command
                "~/plugins/growlnotify.exe")
  (defun mukhali/terminal-notifier-notify (title message)
    (shell-command-to-string
     (concat terminal-notifier-command
             " /t:" title
             " /i:" "~/plugins/emacs.png")
             " " message))) 

0x10 杂项

;; Emacs 启动时所在的位置
  (setq default-frame-alist '((left . 0) (top . 0) (width . 80) (height . 38)))

;; 自己的一些Windows使用习惯
  (define-key global-map (kbd "M-<f4>")
    (lambda () (interactive)
      (recentf-cleanup)
      (projectile-cleanup-known-projects)
      (spacemacs/save-buffers-kill-emacs)
      ) )
  (define-key global-map (kbd "M-C-q") 'winner-undo)
  (global-unset-key (kbd "C-x C-s"))
  (global-set-key (kbd "C-s") 'save-buffer)

;; 一些常用函数
(defun mukhali/quick-folding-source ()
  (interactive)
  (set-selective-display
   (if selective-display nil 1)))

0x11 UPDATE

2016-03-08
2016-04-20