emacs - cperl-mode
[dotfiles.git] / emacs.d_2 / config.org
1 #+TITLE: Emacs Configuration file
2 #+AUTHOR: Peng Li
3 #+EMAIL: seudut@gmail.com
4
5 * Introduction
6
7 Most config are just copied from [[https://github.com/howardabrams/dot-files][howardabrams]]'s dotfiles
8
9 * Basic Settings
10
11 ** Setting loading Path
12
13 Set the emacs load path
14
15 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
16
17   (add-to-list 'load-path "~/.emacs.d/elisp")
18
19 #+END_SRC
20
21 ** Package Initialization
22
23 #+BEGIN_SRC emacs-lisp :tangle yes
24
25   (require 'package)
26
27   (setq package-archives '(("mepla" . "http://melpa.milkbox.net/packages/")
28                            ("org" . "http://orgmode.org/elpa/")))
29
30   (package-initialize)
31
32 #+END_SRC
33
34 ** Windows Setting
35
36 Disable scroll bar, tool-bar and menu-bar
37
38 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
39
40   (scroll-bar-mode 0)
41   (tool-bar-mode 0)
42   (menu-bar-mode 0)
43
44   (setq debug-on-error t)
45   (setq inhibit-startup-message t)
46
47   (defalias 'yes-or-no-p 'y-or-n-p)
48   (show-paren-mode 1)
49
50 #+END_SRC
51
52 * Use-package
53
54 Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
55
56 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
57
58   (unless (package-installed-p 'use-package)
59     (package-refresh-contents)
60     (package-install 'use-package))
61
62   (require 'use-package)
63
64 #+END_SRC
65
66 * Color and Fonts Settings
67
68 ** highlight current line
69
70 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
71
72   (global-hl-line-mode)
73
74 #+END_SRC
75
76 ** Smart Comments
77
78 [[https://github.com/paldepind/smart-comment][smart-comments]]
79
80 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
81
82   (use-package smart-comment
83     :ensure t
84     :bind ("M-;" . smart-conmment))
85
86 #+END_SRC
87
88 ** Font Setting
89
90 syntax highlighting
91
92 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
93
94   (global-font-lock-mode 1)
95
96 #+END_SRC
97
98 [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family
99
100 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
101
102   (if window-system
103       (defvar sd/fixed-font-family
104         (cond ((x-list-fonts "Hasklig")         "Hasklig")
105               ((x-list-fonts "Source Code Pro") "Source Code Pro")
106               ((x-list-fonts "Anonymous Pro")   "Anonymous Pro")
107               ((x-list-fonts "M+ 1mn")          "M+ 1mn"))
108         "The fixed width font based on what is installed, `nil' if not defined."))
109
110 #+END_SRC
111
112 Setting the fonts 
113
114 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
115
116   (if window-system
117       (when sd/fixed-font-family
118         (set-frame-font sd/fixed-font-family)
119         (set-face-attribute 'default nil :font sd/fixed-font-family :height 140)
120         (set-face-font 'default sd/fixed-font-family)))
121
122 #+END_SRC
123
124 ** Color Theme
125
126 Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package=
127
128 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
129
130   (setq vc-follow-symlinks t)
131
132   (use-package color-theme
133     :ensure t
134     :init (require 'color-theme)
135     :config (use-package color-theme-sanityinc-tomorrow
136               :ensure t
137               :no-require t
138               :config
139               (load-theme 'sanityinc-tomorrow-bright t)))
140
141   ;(eval-after-load 'color-theme
142   ;  (load-theme 'sanityinc-tomorrow-bright t))
143
144 #+END_SRC
145
146 Change the Org-mode colors 
147
148 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
149
150   (defun org-src-color-blocks-light ()
151     "Colors the block headers and footers to make them stand out more for lighter themes"
152     (interactive)
153     (custom-set-faces
154      '(org-block-begin-line
155       ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
156      '(org-block-background
157        ((t (:background "#FFFFEA"))))
158      '(org-block
159        ((t (:background "#FFFFEA"))))
160      '(org-block-end-line
161        ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF"))))
162
163      '(mode-line-buffer-id ((t (:foreground "#005000" :bold t))))
164      '(which-func ((t (:foreground "#008000"))))))
165
166   (defun org-src-color-blocks-dark ()
167     "Colors the block headers and footers to make them stand out more for dark themes"
168     (interactive)
169     (custom-set-faces
170      '(org-block-begin-line
171        ((t (:foreground "#008ED1" :background "#002E41"))))
172      '(org-block-background
173        ((t (:background "#000000"))))
174      '(org-block
175        ((t (:background "#000000"))))
176      '(org-block-end-line
177        ((t (:foreground "#008ED1" :background "#002E41"))))
178
179      '(mode-line-buffer-id ((t (:foreground "black" :bold t))))
180      '(which-func ((t (:foreground "green"))))))
181
182   (org-src-color-blocks-dark)
183
184 #+END_SRC
185
186 improve color for org-mode
187 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
188   (deftheme ha/org-theme "Sub-theme to beautify org mode")
189
190   (if window-system
191       (defvar sd/variable-font-tuple
192         (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
193               ((x-list-fonts "Lucida Grande")   '(:font "Lucida Grande"))
194               ((x-list-fonts "Verdana")         '(:font "Verdana"))
195               ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
196               (nil (warn "Cannot find a Sans Serif Font.  Install Source Sans Pro.")))
197         "My variable width font available to org-mode files and whatnot."))
198
199   (defun sd/org-color ()
200     (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family))
201            (base-font-color     (face-foreground 'default nil 'default))
202            (background-color    (face-background 'default nil 'default))
203            (primary-color       (face-foreground 'mode-line nil))
204            (secondary-color     (face-background 'secondary-selection nil 'region))
205            (base-height         (face-attribute 'default :height))
206            (headline           `(:inherit default :weight bold :foreground ,base-font-color)))
207       (custom-theme-set-faces 'ha/org-theme
208                               `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil))))
209                               `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef"))))
210                               `(org-table ((t (:inherit 'fixed-pitched))))
211                               `(org-block ((t (:inherit 'fixed-pitched))))
212                               `(org-block-background ((t (:inherit 'fixed-pitched))))
213                               `(org-block-begin-line ((t (:inherit 'fixed-pitched))))
214                               `(org-block-end-line ((t (:inherit 'fixed-pitched))))
215                               `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple))))
216                               `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple))))
217                               `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple))))
218                               `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple))))
219                               `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple
220                                                             :height ,(round (* 1.1 base-height))))))
221                               `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple
222                                                             :height ,(round (* 1.25 base-height))))))
223                               `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple
224                                                             :height ,(round (* 1.5 base-height))))))
225                               `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple
226                                                             :height ,(round (* 1.75 base-height))))))
227                               `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil)))))))
228
229
230 #+END_SRC
231
232 * Org-mode Settings
233
234 ** Org-mode Basic setting
235
236 Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= 
237
238 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
239
240   (use-package org
241     :ensure t
242     :init
243     (setq org-startup-indented t)
244     (setq org-hide-leading-starts t)
245     (setq org-src-fontify-natively t)
246     (setq org-src-tab-acts-natively t)
247     (setq org-confirm-babel-evaluate nil)
248     (setq org-use-speed-commands t)
249     (setq org-completion-use-ido t))
250
251   (org-babel-do-load-languages
252    'org-babel-load-languages
253    '((python . t)
254      (C . t)
255      (perl . t)
256      (calc . t)
257      (latex . t)
258      (java . t)
259      (ruby . t)
260      (lisp . t)
261      (scheme . t)
262      (sh . t)
263      (sqlite . t)
264      (js . t)))
265
266 #+END_SRC
267
268 ** Org-bullets
269
270 use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
271
272 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
273
274   (use-package org-bullets
275     :ensure t
276     :init
277     (add-hook 'org-mode-hook
278               (lambda ()
279                 (org-bullets-mode t))))
280
281 #+END_SRC
282
283 ** Worf Mode
284
285 [[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode. 
286 In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich
287 cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to
288 =M-[= and =M-]=
289
290 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
291
292   (use-package worf
293     :ensure t
294     :commands worf-mode
295     :init (add-hook 'org-mode-hook 'worf-mode)
296     :config
297     (define-key worf-mode-map "[" nil)
298     (define-key worf-mode-map "]" nil)
299     (define-key worf-mode-map (kbd "M-[") 'worf-backward)
300     (define-key worf-mode-map (kbd "M-]") 'worf-forward))
301
302 #+END_SRC
303
304 ** Task Management
305
306 ** Capture
307
308 * Magit
309
310 [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs.
311
312 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
313
314   (use-package magit
315     :ensure t
316     :commands magit-status magit-blame)
317
318
319 #+END_SRC
320
321 * IDO & SMEX
322
323 ** IDO
324
325 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
326
327   (use-package ido
328     :ensure t
329     :init (setq ido-enable-flex-matching t
330                 ido-ignore-extensions t
331                 ido-use-virtual-buffers t
332                 ido-everywhere t)
333     :config
334     (ido-mode 1)
335     (ido-everywhere 1)
336     (add-to-list 'completion-ignored-extensions ".pyc"))
337
338 #+END_SRC
339
340 ** FLX
341
342 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
343
344   (use-package flx-ido
345     :ensure t
346     :init (setq ido-enable-flex-matching t
347                 ido-use-faces nil)
348     :config (flx-ido-mode 1))
349
350 #+END_SRC
351
352 ** IDO-vertically
353
354 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
355
356   (use-package ido-vertical-mode
357     :ensure t
358     :init
359     (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
360     :config
361     (ido-vertical-mode 1))
362
363 #+END_SRC
364
365 ** SMEX
366
367 #+BEGIN_SRC emacs-lisp :tangle yes :result silent
368
369   (use-package smex
370     :ensure t
371     :init (smex-initialize)
372     :bind
373     ("M-x" . smex)
374     ("M-X" . smex-major-mode-commands))
375
376 #+END_SRC
377
378 * Misc Settings
379
380 ** Line Number
381
382 Enable linum mode on programming modes
383
384 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
385
386   (add-hook 'prog-mode-hook 'linum-mode)
387
388 #+END_SRC
389
390 Fix the font size of line number
391
392 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
393
394   (defun fix-linum-size ()
395        (interactive)
396        (set-face-attribute 'linum nil :height 110))
397
398   (add-hook 'linum-mode-hook 'fix-linum-size)
399
400 #+END_SRC
401
402 I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like the =set relativenumber= on =vim=
403
404 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
405
406   (use-package linum-relative
407     :ensure t
408     :config
409     (defun linum-new-mode ()
410       "If line numbers aren't displayed, then display them.
411   Otherwise, toggle between absolute and relative numbers."
412       (interactive)
413       (if linum-mode
414           (linum-relative-toggle)
415         (linum-mode 1)))
416
417     :bind
418     ("A-k" . linum-new-mode))
419
420   ;; auto enable linum-new-mode in programming modes
421   (add-hook 'prog-mode-hook 'linum-relative-mode)
422
423 #+END_SRC
424
425 ** Save File Position
426
427 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
428
429   (require 'saveplace)
430   (setq-default save-place t)
431   (setq save-place-forget-unreadable-files t)
432   (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)")
433
434 #+END_SRC
435
436 ** Multi-term
437
438 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
439
440   (use-package multi-term
441     :ensure t)
442
443 #+END_SRC
444
445 ** ace-link
446
447 [[https://github.com/abo-abo/ace-link][ace-link]] is a package written by [[https://github.com/abo-abo][Oleh Krehel]]. It is convenient to jump to link in help mode, info-mode, etc
448 Type =o= to go to the link
449
450 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
451
452   (use-package ace-link
453     :ensure t
454     :init
455     (ace-link-setup-default))
456
457 #+END_SRC
458
459 * Programming Languages
460
461 ** Emacs Lisp
462
463 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
464
465   (use-package color-identifiers-mode
466     :ensure t
467     :init
468     (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
469
470     :diminish color-identifiers-mode)
471
472 #+END_SRC
473
474 ** Perl
475
476 [[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
477
478 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
479
480   (defalias 'perl-mode 'cperl-mode)
481
482 #+END_SRC
483
484 * Others
485
486 ** Shell pop mode
487
488 ** Smartparens mode
489
490 ***