emacs - add auto-insert for c/c++ and perl mode
[dotfiles.git] / emacs.d_2 / config.org
index 438add5..e7e8571 100644 (file)
@@ -8,15 +8,7 @@ Most config are just copied from [[https://github.com/howardabrams/dot-files][ho
 
 * Basic Settings
 
-** Setting Path
-
-Set the system PATH environment  
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (setenv "PATH" (concat (getenv "PATH") ":/usr/local/bin"))
-
-#+END_SRC
+** Setting loading Path
 
 Set the emacs load path
 
@@ -47,7 +39,7 @@ Disable scroll bar, tool-bar and menu-bar
 
   (scroll-bar-mode 0)
   (tool-bar-mode 0)
-  (menu-bar-mode 0)
+  (menu-bar-mode 1)
 
   (setq debug-on-error t)
   (setq inhibit-startup-message t)
@@ -57,7 +49,9 @@ Disable scroll bar, tool-bar and menu-bar
 
 #+END_SRC
 
-* Use-package
+* Package Management Tools
+
+** Use-package
 
 Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
 
@@ -71,6 +65,20 @@ Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs p
 
 #+END_SRC
 
+** El-get
+
+[[https://github.com/dimitri/el-get][El-get]] is package management tool, whicl allows to install external elisp package from any git repository not in mepla. 
+Check out [[http://tapoueh.org/emacs/el-get.html][el-get]].
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package el-get
+    :ensure t
+    :init
+    (add-to-list 'load-path "~/.emacs.d/el-get"))
+
+#+END_SRC
+
 * Color and Fonts Settings
 
 ** highlight current line
@@ -237,40 +245,30 @@ improve color for org-mode
 
 #+END_SRC
 
-
 * Org-mode Settings
 
-** Org-bullets
-
-use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (use-package org-bullets
-    :ensure t
-    :init
-    (add-hook 'org-mode-hook
-              (lambda ()
-                (org-bullets-mode t))))
-
-#+END_SRC
-
 ** Org-mode Basic setting
 
 Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= 
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
 
-  (setq org-startup-indented t)
-  (setq org-hide-leading-starts t)
-  ;(setq org-src-fontify-natively t)
-  (setq org-src-tab-acts-natively t)
-  (setq org-confirm-babel-evaluate nil)
+  (use-package org
+    :ensure t
+    :init
+    (setq org-startup-indented t)
+    (setq org-hide-leading-starts t)
+    (setq org-src-fontify-natively t)
+    (setq org-src-tab-acts-natively t)
+    (setq org-confirm-babel-evaluate nil)
+    (setq org-use-speed-commands t)
+    (setq org-completion-use-ido t))
 
   (org-babel-do-load-languages
    'org-babel-load-languages
    '((python . t)
      (C . t)
+     (perl . t)
      (calc . t)
      (latex . t)
      (java . t)
@@ -283,6 +281,42 @@ Always indents header, and hide header leading starts so that no need type =#+ST
 
 #+END_SRC
 
+** Org-bullets
+
+use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package org-bullets
+    :ensure t
+    :init
+    (add-hook 'org-mode-hook
+              (lambda ()
+                (org-bullets-mode t))))
+
+#+END_SRC
+
+** Worf Mode
+
+[[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode. 
+In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich
+cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to
+=M-[= and =M-]=. see this [[https://github.com/abo-abo/worf/issues/19#issuecomment-223756599][issue]]
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package worf
+    :ensure t
+    :commands worf-mode
+    :init (add-hook 'org-mode-hook 'worf-mode)
+    :config
+    (define-key worf-mode-map "[" nil)
+    (define-key worf-mode-map "]" nil)
+    (define-key worf-mode-map (kbd "M-[") 'worf-backward)
+    (define-key worf-mode-map (kbd "M-]") 'worf-forward))
+
+#+END_SRC
+
 ** Task Management
 
 ** Capture
@@ -415,9 +449,34 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like
 
 #+END_SRC
 
-* Programming Languages
+** Multi-term
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package multi-term
+    :ensure t)
+
+#+END_SRC
+
+** ace-link
 
-** Emacs Lisp
+[[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
+Type =o= to go to the link
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package ace-link
+    :ensure t
+    :init
+    (ace-link-setup-default))
+
+#+END_SRC
+
+* Programming
+
+** Languages
+
+*** Emacs Lisp
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
 
@@ -425,14 +484,166 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like
     :ensure t
     :init
     (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode)
+
     :diminish color-identifiers-mode)
 
 #+END_SRC
 
+*** Perl
+
+[[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode=
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (defalias 'perl-mode 'cperl-mode)
+
+  ;(setq cperl-hairy t) ;; Turns on most of the CPerlMode options
+  (setq cperl-auto-newline t)
+  (setq cperl-highlight-variables-indiscriminately t)
+  ;(setq cperl-indent-level 4)
+  ;(setq cperl-continued-statement-offset 4)
+  (setq cperl-close-paren-offset -4)
+  (setq cperl-indent-parents-as-block t)
+  (setq cperl-tab-always-indent t)
+  ;(setq cperl-brace-offset  0)
+
+  (add-hook 'cperl-mode-hook
+            '(lambda ()
+               (cperl-set-style "C++")))
+
+  ;(require 'template)
+  ;(template-initialize)
+  ;(require 'perlnow)
+
+#+END_SRC
+
+- auto insert
+- run script 
+
+Change the compile-command to set the default command run when call =compile=
+Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
+to call =compilation=  interactively.
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (defun my-perl-hook ()
+    (progn
+      (setq-local compilation-read-command nil)
+      (set (make-local-variable 'compile-command)
+           (concat "/usr/bin/perl "
+                   (if buffer-file-name
+                       (shell-quote-argument buffer-file-name))))
+      (local-set-key (kbd "s-r")
+                       (lambda ()
+                         (interactive)
+  ;                       (setq current-prefix-arg '(4)) ; C-u
+                         (call-interactively 'compile)))))
+
+  (add-hook 'cperl-mode-hook 'my-perl-hook)
+
+
+#+END_SRC
+
+*** C & C++
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (setq c-default-style "stroustrup"
+        c-basic-offset 4)
+
+#+END_SRC
+
+** Compile
+
+Set the environments vairables in compilation mode
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (use-package compile
+    :commands compile
+    :config
+    (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
+
+#+END_SRC
+
+** Auto-Insert
+
+Enable auto-insert mode
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silenc
+
+  (auto-insert-mode t)
+  (setq auto-insert-query nil)
+
+#+END_SRC
+
+*** C++ Auto Insert
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.cpp\\'" . "C++ skeleton")
+       '(
+         "Short description:"
+         "/*"
+         "\n * " (file-name-nondirectory (buffer-file-name))
+         "\n */" > \n \n
+         "#include <iostream>" \n
+         "#include \""
+         (file-name-sans-extension
+          (file-name-nondirectory (buffer-file-name)))
+         ".hpp\"" \n \n
+         "using namespace std;" \n \n
+         "int main ()"
+         "\n{" \n 
+         > _ \n
+         "return 1;"
+         "\n}" > \n
+         )))
+
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.c\\'" . "C skeleton")
+       '(
+         "Short description:"
+         "/*\n"
+         " * " (file-name-nondirectory (buffer-file-name)) "\n"
+         " */" > \n \n
+         "#include <stdio.h>" \n
+         "#include \""
+         (file-name-sans-extension
+          (file-name-nondirectory (buffer-file-name)))
+         ".h\"" \n \n
+         "int main ()\n"
+         "{" \n
+         > _ \n
+         "return 1;\n"
+         "}" > \n
+         )))
+       
+#+END_SRC
+
+*** Perl Auto Insert
+
+Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+  (eval-after-load 'autoinsert
+    '(define-auto-insert '("\\.pl\\'" . "Perl skeleton")
+       '(
+         "Description: "
+         "#!/usr/bin/perl -w" \n
+         \n
+         "use strict;" \n \n
+         )))
+
+#+END_SRC
+
+
 * Others
 
 ** Shell pop mode
 
 ** Smartparens mode
 
-** 
+***