** General Setting
*** scroll bar, tool-bar and menu-bar
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (scroll-bar-mode 0)
- (tool-bar-mode 0)
-
- (if window-system
- (menu-bar-mode 1)
+ (if (display-graphic-p)
+ (progn
+ (scroll-bar-mode 0)
+ (tool-bar-mode 0)
+ (menu-bar-mode 1))
(menu-bar-mode 0))
(setq debug-on-error t)
(setq org-ditaa-jar-path "/usr/local/Cellar/ditaa/0.9/libexec/ditaa0_9.jar")
(unless
(file-exists-p org-ditaa-jar-path)
- (error "seudut: ditaa.jar not found at %s " org-ditaa-jar-path))
+ (warn "seudut: ditaa.jar not found at %s " org-ditaa-jar-path))
(org-babel-do-load-languages 'org-babel-load-languages
'((python . t)
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(require 'ox-publish)
+ ;; To prevent inline-css when exporting html. will use external css
+ (setq org-html-htmlize-output-type 'css)
+
(setq org-publish-project-alist
`(
("org-notes"
("\\.markdown\\'" . markdown-mode))
:init (setq markdown-command "multimarkdown"))
+ (add-hook 'gfm-mode-hook (lambda ()
+ (set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
+ (set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch)))
(with-eval-after-load "gfm-mode"
(set-face-attribute 'markdown-inline-code-face nil :inherit 'fixed-pitch)
(set-face-attribute 'markdown-pre-face nil :inherit 'fixed-pitch))
** Group buffer
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (use-package gnus
- :init
- (setq gnus-permanently-visible-groups "\.*")
- :config
- (cond (window-system
- (setq custom-background-mode 'light)
- (defface my-group-face-1
- '((t (:foreground "Red" :bold t))) "First group face")
- (defface my-group-face-2
- '((t (:foreground "DarkSeaGreen4" :bold t)))
- "Second group face")
- (defface my-group-face-3
- '((t (:foreground "Green4" :bold t))) "Third group face")
- (defface my-group-face-4
- '((t (:foreground "SteelBlue" :bold t))) "Fourth group face")
- (defface my-group-face-5
- '((t (:foreground "Blue" :bold t))) "Fifth group face")))
- (setq gnus-group-highlight
- '(((> unread 200) . my-group-face-1)
- ((and (< level 3) (zerop unread)) . my-group-face-2)
- ((< level 3) . my-group-face-3)
- ((zerop unread) . my-group-face-4)
- (t . my-group-face-5))))
-
-
- ;; key-
- (add-hook 'gnus-group-mode-hook (lambda ()
- (define-key gnus-group-mode-map "k" 'gnus-group-prev-group)
- (define-key gnus-group-mode-map "j" 'gnus-group-next-group)
- (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group)
- (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t)))))
+ ;; (use-package gnus
+ ;; :init
+ ;; (setq gnus-permanently-visible-groups "\.*")
+ ;; :config
+ ;; (cond (window-system
+ ;; (setq custom-background-mode 'light)
+ ;; (defface my-group-face-1
+ ;; '((t (:foreground "Red" :bold t))) "First group face")
+ ;; (defface my-group-face-2
+ ;; '((t (:foreground "DarkSeaGreen4" :bold t)))
+ ;; "Second group face")
+ ;; (defface my-group-face-3
+ ;; '((t (:foreground "Green4" :bold t))) "Third group face")
+ ;; (defface my-group-face-4
+ ;; '((t (:foreground "SteelBlue" :bold t))) "Fourth group face")
+ ;; (defface my-group-face-5
+ ;; '((t (:foreground "Blue" :bold t))) "Fifth group face")))
+ ;; (setq gnus-group-highlight
+ ;; '(((> unread 200) . my-group-face-1)
+ ;; ((and (< level 3) (zerop unread)) . my-group-face-2)
+ ;; ((< level 3) . my-group-face-3)
+ ;; ((zerop unread) . my-group-face-4)
+ ;; (t . my-group-face-5))))
+
+
+ ;; ;; key-
+ ;; (add-hook 'gnus-group-mode-hook (lambda ()
+ ;; (define-key gnus-group-mode-map "k" 'gnus-group-prev-group)
+ ;; (define-key gnus-group-mode-map "j" 'gnus-group-next-group)
+ ;; (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group)
+ ;; (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t)))))
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
** Mu4e - Emacs frontend of Mu
config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offlineimap-and-mu4e-on-osx/][emacs-as-email-client-with-offlineimap-and-mu4e-on-osx]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (require 'mu4e)
- (setq mu4e-maildir "~/.Mail")
- (setq mu4e-drafts-folder "/[Gmail].Drafts")
- (setq mu4e-sent-folder "/[Gmail].Sent Mail")
- ;; don't save message to Sent Messages, Gmail/IMAP takes care of this
- (setq mu4e-sent-messages-behavior 'delete)
- ;; allow for updating mail using 'U' in the main view:
- (setq mu4e-get-mail-command "offlineimap")
-
- ;; shortcuts
- (setq mu4e-maildir-shortcuts
- '( ("/INBOX" . ?i)
- ("/[Gmail].Sent Mail" . ?s)))
-
- ;; something about ourselves
- (setq
- user-mail-address "seudut@gmail.com"
- user-full-name "Peng Li"
- mu4e-compose-signature
- (concat
- "Thanks,\n"
- "Peng\n"))
-
- ;; show images
- (setq mu4e-show-images t)
-
- ;; use imagemagick, if available
- (when (fboundp 'imagemagick-register-types)
- (imagemagick-register-types))
-
- ;; convert html emails properly
- ;; Possible options:
- ;; - html2text -utf8 -width 72
- ;; - textutil -stdin -format html -convert txt -stdout
- ;; - html2markdown | grep -v ' _place_holder;' (Requires html2text pypi)
- ;; - w3m -dump -cols 80 -T text/html
- ;; - view in browser (provided below)
- (setq mu4e-html2text-command "textutil -stdin -format html -convert txt -stdout")
-
- ;; spell check
- (add-hook 'mu4e-compose-mode-hook
- (defun my-do-compose-stuff ()
- "My settings for message composition."
- (set-fill-column 72)
- (flyspell-mode)))
-
- ;; add option to view html message in a browser
- ;; `aV` in view to activate
- (add-to-list 'mu4e-view-actions
- '("ViewInBrowser" . mu4e-action-view-in-browser) t)
-
- ;; fetch mail every 10 mins
- (setq mu4e-update-interval 600)
-
- ;; mu4e view
- (setq-default mu4e-headers-fields '((:flags . 6)
- (:from-or-to . 22)
- (:mailing-list . 20)
- (:thread-subject . 70)
- (:human-date . 16)))
+ (if (require 'mu4e nil 'noerror)
+ (progn
+ (setq mu4e-maildir "~/.Mail")
+ (setq mu4e-drafts-folder "/[Gmail].Drafts")
+ (setq mu4e-sent-folder "/[Gmail].Sent Mail")
+ ;; don't save message to Sent Messages, Gmail/IMAP takes care of this
+ (setq mu4e-sent-messages-behavior 'delete)
+ ;; allow for updating mail using 'U' in the main view:
+ (setq mu4e-get-mail-command "offlineimap")
+
+ ;; shortcuts
+ (setq mu4e-maildir-shortcuts
+ '( ("/INBOX" . ?i)
+ ("/[Gmail].Sent Mail" . ?s)))
+
+ ;; something about ourselves
+ (setq
+ user-mail-address "seudut@gmail.com"
+ user-full-name "Peng Li"
+ mu4e-compose-signature
+ (concat
+ "Thanks,\n"
+ "Peng\n"))
+
+ ;; show images
+ (setq mu4e-show-images t)
+
+ ;; use imagemagick, if available
+ (when (fboundp 'imagemagick-register-types)
+ (imagemagick-register-types))
+
+ ;; convert html emails properly
+ ;; Possible options:
+ ;; - html2text -utf8 -width 72
+ ;; - textutil -stdin -format html -convert txt -stdout
+ ;; - html2markdown | grep -v ' _place_holder;' (Requires html2text pypi)
+ ;; - w3m -dump -cols 80 -T text/html
+ ;; - view in browser (provided below)
+ (setq mu4e-html2text-command "textutil -stdin -format html -convert txt -stdout")
+
+ ;; spell check
+ (add-hook 'mu4e-compose-mode-hook
+ (defun my-do-compose-stuff ()
+ "My settings for message composition."
+ (set-fill-column 72)
+ (flyspell-mode)))
+
+ ;; add option to view html message in a browser
+ ;; `aV` in view to activate
+ (add-to-list 'mu4e-view-actions
+ '("ViewInBrowser" . mu4e-action-view-in-browser) t)
+
+ ;; fetch mail every 10 mins
+ (setq mu4e-update-interval 600)
+
+ ;; mu4e view
+ (setq-default mu4e-headers-fields '((:flags . 6)
+ (:from-or-to . 22)
+ (:mailing-list . 20)
+ (:thread-subject . 70)
+ (:human-date . 16))))
+ (warn "seudut:mu4e not installed, it won't work."))
#+END_SRC
** Smtp - send mail
(global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word)
#+END_SRC
+
* Developing
** perspeen
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (el-get-bundle seudut/perspeen
- :features perspeen
- (setq perspeen-use-tab t)
+ (use-package perspeen
+ :ensure t
+ :init
+ (setq perspeen-use-tab nil)
+ :config
(perspeen-mode))
;; super-i to switch to ith workspace
(define-key perspeen-mode-map (kbd "s-n") 'perspeen-next-ws)
(define-key perspeen-mode-map (kbd "s-p") 'perspeen-previous-ws)
(define-key perspeen-mode-map (kbd "s-'") 'perspeen-last-ws)
+ (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)
(define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab))
#+END_SRC
+
* TODO todolist
** Rucket
** player video on iphone for