X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=2993e1a6f86d51599fa2e53a1f38fea94bb26baa;hb=efdf06bf08e700de04a908c3a4629703ae69d02c;hp=de6dfdb61f235a43c0d26befda236d75fcbb7987;hpb=02c79e8c774c0bf691199eb8254d989c0fb1deb6;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index de6dfdb..2993e1a 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -147,6 +147,12 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. (add-hook 'prog-mode-hook 'hl-line-mode) (add-hook 'text-mode-hook 'hl-line-mode) (add-hook 'dired-mode-hook 'hl-line-mode) + + ;; only highlight selected window + (setq hl-line-sticky-flag nil) + + (setq-default fill-column 120) + (add-hook 'text-mode-hook 'turn-on-auto-fill) #+END_SRC ** Smart Comments @@ -237,24 +243,6 @@ Fix the font alignment issue when both Chinese and English hybird in org-mode ta (interactive) (emacs-step-font-size -1)) #+END_SRC -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; Setup font size based on emacs-font-size-pair - ;; (if window-system - ;; (set-font emacs-english-font emacs-cjk-font '(13 . 16))) - - - ;; (global-set-key (kbd "s-=") 'increase-emacs-font-size) - ;; (global-set-key (kbd "s--") 'decrease-emacs-font-size) - - ;; set different fonts (chinese) size for org-mode. - (defun sd/org-buffer-font () - "My font setting for org-mode" - (interactive) - (setq buffer-face-mode-face '(:family "Source Sans Code" :height 160)) - (buffer-face-mode)) - - ;; (add-hook 'org-mode-hook 'sd/org-buffer-font) -#+END_SRC ** Color Theme @@ -984,8 +972,7 @@ All captured file which need next actions are stored in =refile.org=, *** Agenda Setup Setting agenda files and the agenda view #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq org-agenda-files (quote ("~/org/gtd.org" - "~/org/work.org"))) + (setq org-agenda-files (quote ("~/org/gtd.org"))) ;; only show today's tasks in agenda view ;; (setq org-agenda-span 'day) @@ -1000,6 +987,18 @@ Setting agenda files and the agenda view (setq org-agenda-show-all-dates t) #+END_SRC +** Org mobile +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load "org" + (require 'org-mobile) + ;; Set to the location of your Org files on your local system + ;; (setq org-directory "~/org") + ;; Set to the name of the file where new notes will be stored + (setq org-mobile-inbox-for-pull "~/org/flagged.org") + ;; Set to /MobileOrg. + (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg")) +#+END_SRC + ** Export PDF Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]] and some tex packages #+BEGIN_SRC sh @@ -1141,7 +1140,6 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em *** variable-pitch-mode and fixed-pitch-mode [[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; check if the fonts are available (unless (find-font (font-spec :name "Ubuntu Mono")) (warn "Font not found Ubuntu Mono")) (unless (find-font (font-spec :name "Source Code Pro")) @@ -1158,8 +1156,9 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em (with-eval-after-load "org" (mapc (lambda (face) (set-face-attribute face nil :inherit 'fixed-pitch)) - (list 'org-code 'org-block 'org-block-background)) + (list 'org-code 'org-block 'org-block-background 'org-block-begin-line 'org-block-end-line)) (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 140) + (set-face-attribute 'org-formula nil :family "Ubuntu Mono" :height 140) ;; org-special-keyword inherited from font-lock-keywork originally; as org is changed to variable-pitch, it cause ;; the font in special-keywords are not monospace (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-keyword-face fixed-pitch)) @@ -1255,14 +1254,9 @@ set default eshell history folder ** Eshell erase buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/eshell-clear-buffer () - "Clear eshell buffer" - (interactive) - (let ((inhibit-read-only t)) - (erase-buffer) - (eshell-send-input))) + (require 'utilities) - (add-hook 'eshell-mode-hook (lambda () + (add-hook 'eshell-mode-hook (lambda () (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))) #+END_SRC @@ -2342,6 +2336,26 @@ irony-company (add-hook 'c++-mode-hook 'google-set-c-style)) #+END_SRC +*** Compile and Run the C file +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defun my-cpp-hook () + (let* ((current-file-name) + (a-dot-out-file)) + (when buffer-file-name + (setq current-file-name (shell-quote-argument buffer-file-name)) + (setq a-dot-out-file (concat (file-name-directory buffer-file-name) "a.out"))) + (setq-local compilation-read-command t) + (set (make-local-variable 'compile-command) + (concat "g++ -Wall " + current-file-name + " && " + a-dot-out-file)) + (local-set-key (kbd "s-r") 'compile))) + + (add-hook 'c-mode-hook 'my-cpp-hook) + (add-hook 'c++-mode-hook 'my-cpp-hook) +#+END_SRC + ** Lua #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package lua-mode @@ -2921,15 +2935,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g= (add-to-list 'projectile-globally-ignored-files "GTAGS") (projectile-global-mode t)) - ;; (use-package persp-projectile - ;; :ensure t - ;; :config - ;; (persp-mode) - ;; :bind - ;; ;; (:map projectile-mode-map - ;; ;; ("s-t" . projectile-persp-switch-project)) - ;; ) - ;; change default-directory of scratch buffer to projectile-project-root (defun sd/project-switch-action () "Change default-directory of scratch buffer to current projectile-project-root directory" @@ -2973,20 +2978,7 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del #+BEGIN_SRC emacs-lisp :tangle yes :results silent (winner-mode 1) - (defun sd/delete-current-window () - (interactive) - (if (> (length (window-list)) 1) - (delete-window) - (message "Only one Windows now!"))) - - (defun sd/toggle-max-windows () - "Set maximize current if there are multiple windows, if only - one window, window undo" - (interactive) - (if (equal (length (window-list)) 1) - (winner-undo) - (delete-other-windows))) - + (require 'utilities) (defhydra sd/hydra-window (:color red :columns nil) "C-o" ;; windows switch @@ -3496,12 +3488,7 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/kill-region-or-backward-kill-word () - (interactive) - (if (region-active-p) - (kill-region (point) (mark)) - (backward-kill-word 1))) - + (require 'utilities) (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word) #+END_SRC @@ -3534,16 +3521,6 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828 (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)) #+END_SRC -* TODO todolist -** Rucket -** player video on iphone for -** SICP -** music searcher -search music on some music web site - - - -** Need separate the Key-bindings and package-initialization * Note ** Check if emacs is in terminal of graphic mode Use =display-graphic-p= instead of =window-system=