Emacs定制

96
作者 mukhali
2015.08.25 15:36* 字数 1085

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包后,就能完全沉浸在自己快乐写作或编码中,不会有任何打扰。


Emacs写作

0x04 focus mode

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


Emacs专注

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
一些小工具