** Setting loading Path
+Set system PATH and emacs exec path
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (setenv "PATH" (concat (getenv "PATH") ":/usr/local/bin"))
+ (setq exec-path (append exec-path '("/usr/local/bin")))
+
+#+END_SRC
+
Set the emacs load path
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
** Package Initialization
-#+BEGIN_SRC emacs-lisp :tangle yes
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(require 'package)
(setq package-archives '(("mepla" . "http://melpa.milkbox.net/packages/")
+ ("gnu" . "http://elpa.gnu.org/packages/")
("org" . "http://orgmode.org/elpa/")))
(package-initialize)
-#+END_SRC
+#+END_SRC
-** Windows Setting
+** General Setting
Disable scroll bar, tool-bar and menu-bar
(defalias 'yes-or-no-p 'y-or-n-p)
(show-paren-mode 1)
- (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
+
+
+#+END_SRC
+
+Switch the focus to help window when it appears
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (setq help-window-select t)
#+END_SRC
(sqlite . t)
(js . t)))
+ ;; use current window for org source buffer editting
+ (setq org-src-window-setup 'current-window )
+
#+END_SRC
** Org-bullets
: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))
+ ;; :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
(ido-everywhere 1)
(add-to-list 'completion-ignored-extensions ".pyc"))
+ (icomplete-mode t)
+
#+END_SRC
** FLX
** IDO-vertically
-#+BEGIN_SRC emacs-lisp :tangle yes :result silent
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package ido-vertical-mode
:ensure t
** SMEX
-#+BEGIN_SRC emacs-lisp :tangle yes :result silent
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package smex
:ensure t
#+END_SRC
+** Ido-ubiquitous
+
+Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for ido everywhere. It makes =describe-function= can also use ido
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (use-package ido-ubiquitous
+ :ensure t
+ :init
+ (setq magit-completing-read-function 'magit-ido-completing-read)
+ (setq gnus-completing-read-function 'gnus-ido-completing-read)
+ :config
+ (ido-ubiquitous-mode 1))
+
+#+END_SRC
+
+** Ido-exit-target
+
+[[https://github.com/waymondo/ido-exit-target][ido-exit-target]] let you open file/buffer on =other-windows= when call =ido-switch-buffer=
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (use-package ido-exit-target
+ :ensure t
+ :init
+ (define-key ido-common-completion-map (kbd "C-j") #'ido-exit-target-other-window))
+
+#+END_SRC
+
+* Key bindings
+
+** Remove prefix =ESC=, refer [[http://emacs.stackexchange.com/questions/14755/how-to-remove-bindings-to-the-esc-prefix-key][here]]
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ ;; (define-key key-translation-map (kbd "ESC") (kbd "C-g"))
+
+#+END_SRC
+
+** Esc on Minibuffer
+
+Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (define-key minibuffer-local-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-ns-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-isearch-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-completion-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-must-match-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-must-match-filename-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-filename-completion-map [escape] 'keyboard-escape-quit)
+ (define-key minibuffer-local-filename-must-match-map [escape] 'keyboard-escape-quit)
+
+ ;; Also map s-h same as C-g
+ (define-key minibuffer-local-map (kbd "s-h") 'keyboard-escape-quit)
+
+#+END_SRC
+
+
+** =Super= bindings for file, buffer and windows
+
+Some global bindings on =Super=, on Mac, it is =Command=
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (global-set-key (kbd "s-h") 'keyboard-quit)
+ (global-set-key (kbd "s-j") 'ido-switch-buffer)
+ ;; s-k --> kill-this-buffer
+ ;; s-l --> goto-line
+ ;; s-; -->
+ ;; s-' --> 'next-multiframe-window
+ (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
+
+ ;; (global-set-key (kbd "s-y") 'projectile-find-file)
+ (global-set-key (kbd "s-f") 'projectile-find-file)
+ (global-set-key (kbd "s-[") 'next-buffer)
+ (global-set-key (kbd "s-]") 'previous-buffer)
+
+ (global-set-key (kbd "s-`") 'mode-line-other-buffer)
+
+
+
+ ;; someothers default mapping on super (command) key
+ ;; s-s save-buffer
+ ;; s-k kill-this-buffer
+
+
+ ;; s-h --> ns-do-hide-emacs
+ ;; s-j --> ido-switch-buffer +
+ ;; s-k --> kill-this-buffer
+ ;; s-l --> goto-line
+ ;; s-; --> undefined
+ ;; s-' --> next-multiframe-window
+ ;; s-ret --> toggle-frame-fullscreen +
+
+ ;; s-y --> ns-paste-secondary
+ ;; s-u --> revert-buffer
+ ;; s-i --> undefined - but used for iterm globally
+ ;; s-o --> used for emacs globally
+ ;; s-p --> projectile-persp-switch-project +
+ ;; s-[ --> next-buffer +
+ ;; s-] --> previous-buffer +
+
+ ;; s-0 --> undefined
+ ;; s-9 --> undefined
+ ;; s-8 --> undefined
+ ;; s-7 --> undefined
+ ;; s-6 --> undefined
+ ;; s-- --> center-line
+ ;; s-= --> undefined
+
+ ;; s-n --> make-frame
+ ;; s-m --> iconify-frame
+ ;; s-b --> undefined
+ ;; s-, --> customize
+ ;; s-. --> undefined
+ ;; s-/ --> undefined
+
+ ;; s-g --> isearch-repeat-forward
+ ;; s-f --> projectile-find-file +
+ ;; s-d --> isearch-repeat-background
+ ;; s-s --> save-buffer
+ ;; s-a --> make-whole-buffer
+
+ ;; s-b --> undefined
+ ;; s-v --> yank
+ ;; s-c --> ns-copy-including-secondary
+
+ ;; s-t --> ns-popup-font-panel
+ ;; s-r --> undefined
+ ;; s-e --> isearch-yanqk-kill
+ ;; s-w --> delete-frame
+ ;; s-q --> same-buffers-kill-emacs
+
+ ;; s-` --> other-frame
+#+END_SRC
+
+** =M-s= bindings for searching
+
+I use the prefix =M-s= for searching in buffers
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (defun pl-make-keymap (key bindings)
+ (setq keymap (make-sparse-keymap))
+ (dolist (binding bindings)
+ (define-key keymap (car binding) (cdr binding)))
+ (global-set-key key keymap))
+
+ (global-set-key (kbd "M-s M-s") 'isearch-forward-regexp)
+ (global-set-key (kbd "M-s M-r") 'isearch-backward-regexp)
+
+ (define-key isearch-mode-map "\M-s" 'isearch-repeat-forward)
+ (define-key isearch-mode-map "\M-r" 'isearch-repeat-backward)
+
+ ;; (global-set-key (kbd "M-s M-r") 'isearch-backward-regexp)
+
+#+END_SRC
+
+
+
* Misc Settings
(split-window-below)
(windmove-down))
"horz")
- ("o" delete-other-windows "one" :exit t)
+ ;; ("o" delete-other-windows "one" :exit t)
+ ;; Todo define o to triggle delete others windows and restore windows layout
+ ("o" triggle-windows-max-size "maximize" :exit t)
("a" ace-window "ace")
("s" ace-swap-window "swap")
("d" ace-delete-window "ace-one" :exit t)
(global-unset-key (kbd "M-o"))
(global-set-key (kbd "M-o") 'sd/hydra-window/body)
+ (defun triggle-windows-max-size ()
+ (interactive)
+ (if (> (length (window-list)) 1)
+ (delete-other-windows)
+ (winner-undo)))
+
#+END_SRC
** Line Number
(:map projectile-mode-map
("s-p" . projectile-persp-switch-project)))
+ ;; projectile-find-file
+ ;; projectile-switch-buffer
+ ;; projectile-find-file-other-window
#+END_SRC
+
+** Which key
+
+[[https://github.com/justbur/emacs-which-key][which-key]] show the key bindings
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (use-package which-key
+ :ensure t
+ :config
+ (which-key-mode))
+
+#+END_SRC
+
+** Emms
+
+We can use [[https://www.gnu.org/software/emms/quickstart.html][Emms]] for multimedia in Emacs
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (use-package emms
+ :ensure t
+ :init
+ (setq emms-source-file-default-directory "~/Music/emms/")
+ :config
+ (emms-standard)
+ (emms-default-players)
+ (define-emms-simple-player mplayer '(file url)
+ (regexp-opt '(".ogg" ".mp3" ".mgp" ".wav" ".wmv" ".wma" ".ape"
+ ".mov" ".avi" ".ogm" ".asf" ".mkv" ".divx" ".mpeg"
+ "http://" "mms://" ".rm" ".rmvb" ".mp4" ".flac" ".vob"
+ ".m4a" ".flv" ".ogv" ".pls"))
+ "mplayer" "-slave" "-quiet" "-really-quiet" "-fullscreen")
+ (emms-history-load))
+
+#+END_SRC
+
+** GnoGo
+
+Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f95b774cb292d1169748bc0a62ba647bbd8c0652/etc/my-inits/my-inits-gnugo.el][to here]]. start at image display mode and grid mode
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+ (use-package gnugo
+ :ensure t
+ :defer t
+ :init
+ (require 'gnugo-imgen)
+ (setq gnugo-xpms 'gnugo-imgen-create-xpms)
+ (add-hook 'gnugo-start-game-hook '(lambda ()
+ (gnugo-image-display-mode)
+ (gnugo-grid-mode)))
+ :config
+ (add-to-list 'gnugo-option-history (format "--boardsize 19 --color black --level 1")))
+
+#+END_SRC
+
* Programming
** Languages
Enable auto-insert mode
-#+BEGIN_SRC emacs-lisp :tangle yes :results silenc
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(auto-insert-mode t)
(setq auto-insert-query nil)
(use-package company
:ensure t
:diminish company-mode
+ :init (setq company-idle-delay 0.1)
:config
(global-company-mode))
#+END_SRC
+* Todo
+
+- change M-o to trigger to delete other windows and restore previous config
+-