Skip to content

Instantly share code, notes, and snippets.

@gennad

gennad/gist:3396504

Last active October 8, 2015 22:17
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save gennad/3396504 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save gennad/3396504 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. gennad revised this gist Apr 5, 2013. 1 changed file with 11 additions and 1 deletion.
    12 changes: 11 additions & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -732,4 +732,14 @@ message-mode text-mode))
    ;; How navigation keys
    (global-set-key (kbd "C-j") 'other-window)
    (global-set-key (kbd "C-;") 'smex)
    (global-set-key (kbd "C-k") 'ido-switch-buffer)
    (global-set-key (kbd "C-k") 'ido-switch-buffer)

    (require 'sr-speedbar)
    (global-set-key (kbd "C-c s") 'sr-speedbar-toggle)

    (require 'workgroups)
    (setq wg-prefix-key (kbd "C-c w"))
    (workgroups-mode 1)

    (setq display-time-day-and-date t display-time-24hr-format t)
    (display-time)
  2. gennad revised this gist Mar 26, 2013. No changes.
  3. gennad revised this gist Mar 13, 2013. 1 changed file with 24 additions and 56 deletions.
    80 changes: 24 additions & 56 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -14,9 +14,6 @@
    ;; Do not blink cursor
    (blink-cursor-mode (- (*) (*) (*)))

    (add-to-list 'load-path "~/.emacs.d/nav/")
    (require 'nav)

    ;; Delete trailing whitespaces on saving
    (add-hook 'before-save-hook 'delete-trailing-whitespace)

    @@ -69,13 +66,12 @@
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    '(custom-safe-themes (quote ("71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" default)))
    '(custom-safe-themes (quote ("085b401decc10018d8ed2572f65c5ba96864486062c0a2391372223294f89460" "d2622a2a2966905a5237b54f35996ca6fda2f79a9253d44793cfe31079e3c92b" "71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" default)))
    '(desktop-save-mode t nil (desktop))
    '(ediff-split-window-function (quote split-window-horizontally))
    '(org-agenda-files (quote ("~/org/1.org")))
    '(save-place t nil (saveplace)))


    ;; Save desktop (all opened files)
    (desktop-save-mode 1)

    @@ -166,9 +162,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    ;; for a list of colors: http://raebear.net/comp/emacscolors.html


    (require 'highlight-indentation)
    (add-hook 'python-mode-hook 'highlight-indentation)

    ;; Auto refresh buffers
    (global-auto-revert-mode t)
    (setq-default indent-tabs-mode nil)
    @@ -208,20 +201,15 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; Cmd as meta key. Also, need to set caps lock as C system-wide.
    (setq mac-command-modifier 'control)
    ;;(setq mac-command-modifier 'meta)
    ;;(setq mac-control-modifier 'meta)
    ;;(setq mac-command-modifier 'meta)
    ;; (setq mac-option-key-is-meta nil)
    ;; (setq mac-command-key-is-meta t)
    ;; (setq mac-option-modifier nil)
    ; Shell - Mx eshell
    ; M-y to yank in isearch


    ; Dot mode C-.
    (require 'dot-mode)
    (add-hook 'find-file-hooks 'dot-mode-on)


    ; C-M-f go to bracket closing or string end.

    ;; (defun my-horizontal-recenter ()
    @@ -313,19 +301,12 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (isearch-yank-symbol partialp)))


    (require 'goto-last-change)
    (global-set-key "\C-x\C-\\" 'goto-last-change)
    ; Repeat last command C-x z. z to repeat again.

    (require 'xml-rpc)
    (require 'weblogger)

    ; tags-search - search name in project

    ; Search a file in project
    (add-to-list 'load-path "~/.emacs.d/eproject")
    (require 'eproject)
    (require 'eproject-extras)

    (defun disabled-key ()
    "Disables keys"
    @@ -366,9 +347,8 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "M-?") 'mark-paragraph)
    (global-set-key (kbd "C-h") 'delete-backward-char)
    (global-set-key (kbd "C-w") 'backward-kill-word)
    (global-set-key (kbd "C-;") 'universal-argument)
    ;;(global-set-key (kbd "C-;") 'universal-argument)

    (require 'buffer-move)

    ;; Diff buffer with saved file:
    ;;diff-buffer-with-file
    @@ -423,8 +403,8 @@ message-mode text-mode))
    ;; )
    ;; (global-set-key (kbd "C-u") 'undo-line)

    (add-to-list 'load-path "/usr/local/Cellar/emacs/24.2/Emacs.app/Contents/share/emacs/site-lisp/w3m")
    (require 'w3m-load)
    ;;(add-to-list 'load-path "/usr/local/Cellar/emacs/24.2/Emacs.app/Contents/share/emacs/site-lisp/w3m")
    ;;(require 'w3m-load)
    (setq w3m-use-cookies t)


    @@ -489,9 +469,8 @@ message-mode text-mode))
    (set-mark pt)
    (kill-ring-save pt (point))
    ))
    (global-set-key (kbd "C-c SPC") 'select-current-word)
    ;;(global-set-key (kbd "C-c SPC") 'select-current-word)

    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)


    @@ -559,28 +538,19 @@ message-mode text-mode))
    (global-set-key (kbd "C-w") 'newcw)


    (require 'browse-kill-ring)
    (browse-kill-ring-default-keybindings)

    (global-set-key [f5] 'previous-buffer)
    (global-set-key [f9] 'rgrep)
    (global-set-key [f8] 'ido-switch-buffer)


    (global-set-key (kbd "C-M-w") 'kill-region)


    (require 'idomenu)
    (autoload 'idomenu "idomenu" nil t)
    (global-set-key (kbd "C-c <tab>") 'idomenu)

    (global-set-key (kbd "C-M-u") 'universal-argument)

    ;; (global-set-key (kbd "M-;") 'jump-char-forward)
    (global-set-key (kbd "M-j") 'jump-char-backward)
    ;; (global-set-key (kbd "C-M-;") 'comment-dwim)

    (require 'find-file-in-project)
    (global-set-key (kbd "C-x f") 'find-file-in-project)

    ; Debug on error
    @@ -681,7 +651,6 @@ message-mode text-mode))
    (global-set-key (kbd "M-g") 'recenter-top-bottom)


    (global-set-key (kbd "C-j") 'ido-switch-buffer)



    @@ -694,27 +663,9 @@ message-mode text-mode))

    (global-set-key (kbd "C-c v") 'halve-other-window-height)


    ; Switch buffer on C-x x
    (global-set-key (kbd "C-x x") 'ido-switch-buffer)
    (global-set-key (kbd "C-x b") 'disabled-key)


    ; Select word under the cursor
    (defun select-current-word ()
    "Select the word under cursor.
    “word” here is considered any alphanumeric sequence with “_” or “-”."
    (interactive)
    (let (pt)
    (skip-chars-backward "-_A-Za-z0-9")
    (setq pt (point))
    (skip-chars-forward "-_A-Za-z0-9")
    (set-mark pt)
    (kill-ring-save pt (point))
    ))
    (global-set-key (kbd "C-c SPC") 'select-current-word) ;


    ;; Evil mode
    ;; (add-to-list 'load-path "~/.emacs.d/evil")
    (setq evil-want-C-u-scroll t)
    @@ -764,4 +715,21 @@ message-mode text-mode))
    '("elpa" . "http://tromey.com/elpa/"))
    ;; Add the user-contributed repository
    (add-to-list 'package-archives
    '("marmalade" . "http://marmalade-repo.org/packages/"))
    '("marmalade" . "http://marmalade-repo.org/packages/"))

    ;; Toggle the perspective mode
    (persp-mode)

    ;;; esc quits
    (define-key evil-normal-state-map [escape] 'keyboard-quit)
    (define-key evil-visual-state-map [escape] 'keyboard-quit)
    (define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit)
    (define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit)
    (define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit)
    (define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit)
    (define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit)

    ;; How navigation keys
    (global-set-key (kbd "C-j") 'other-window)
    (global-set-key (kbd "C-;") 'smex)
    (global-set-key (kbd "C-k") 'ido-switch-buffer)
  4. gennad revised this gist Mar 11, 2013. 1 changed file with 15 additions and 24 deletions.
    39 changes: 15 additions & 24 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,3 +1,5 @@
    (package-initialize)

    (require 'whitespace)
    ;; (setq whitespace-style '(face empty tabs lines-tail trailing))
    (setq whitespace-style '(face empty tabs trailing))
    @@ -32,9 +34,6 @@
    (delete-char trailnewlines)))))))


    ;; Add magit
    (add-to-list 'load-path "~/.emacs.d/magit")
    (require 'magit)

    ;; ORG-mode
    (require 'org-install)
    @@ -70,11 +69,11 @@
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    '(custom-safe-themes (quote ("71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" default)))
    '(desktop-save-mode t nil (desktop))
    '(ediff-split-window-function (quote split-window-horizontally))
    '(org-agenda-files (quote ("~/org/1.org")))
    '(save-place t nil (saveplace))
    )
    '(save-place t nil (saveplace)))


    ;; Save desktop (all opened files)
    @@ -204,13 +203,9 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (winner-mode 1))

    ;; Git for emacs
    (require 'magit)
    (autoload 'mo-git-blame-file "mo-git-blame" nil t)
    (autoload 'mo-git-blame-current "mo-git-blame" nil t)

    ;; Python-pep8
    (require 'python-pep8)

    ; Cmd as meta key. Also, need to set caps lock as C system-wide.
    (setq mac-command-modifier 'control)
    ;;(setq mac-command-modifier 'meta)
    @@ -332,18 +327,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (require 'eproject)
    (require 'eproject-extras)

    ; C-c t -- google translate
    (require 'google-translate)
    (global-set-key "\C-ct" 'google-translate-query-translate)
    (setq google-translate-default-target-language "ru")
    (setq google-translate-default-source-language "en")

    ; Nosemacs
    (require 'nose)

    ; 3 buffers on screen


    (defun disabled-key ()
    "Disables keys"
    (interactive)
    @@ -733,9 +716,9 @@ message-mode text-mode))


    ;; Evil mode
    (add-to-list 'load-path "~/.emacs.d/evil")
    ;; (add-to-list 'load-path "~/.emacs.d/evil")
    (setq evil-want-C-u-scroll t)
    (require 'evil)
    ;; (require 'evil)
    (evil-mode 1)
    (setq evil-auto-indent t)
    (setq evil-shift-width 4)
    @@ -773,4 +756,12 @@ message-mode text-mode))
    ;; Try to fix fish emacs rgrep
    (grep-compute-defaults)
    (grep-apply-setting 'grep-find-command "find . ! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 -e grep -nH -e ")
    (setq grep-find-command "find . ! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 -e grep -nH -e ")
    (setq grep-find-command "find . ! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 -e grep -nH -e ")

    (require 'package)
    ;; Add the original Emacs Lisp Package Archive
    (add-to-list 'package-archives
    '("elpa" . "http://tromey.com/elpa/"))
    ;; Add the user-contributed repository
    (add-to-list 'package-archives
    '("marmalade" . "http://marmalade-repo.org/packages/"))
  5. gennad revised this gist Mar 11, 2013. No changes.
  6. gennad revised this gist Mar 5, 2013. 1 changed file with 65 additions and 63 deletions.
    128 changes: 65 additions & 63 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -9,11 +9,13 @@
    (load-file "~/.emacs.d/emacs-for-python/epy-init.el")
    (setq flymake-gui-warnings-enabled nil)

    ;; Do not blink cursor
    (blink-cursor-mode (- (*) (*) (*)))

    (add-to-list 'load-path "~/.emacs.d/nav/")
    (require 'nav)

    ;; Delete trailing whitespaces on saving
    (add-hook 'before-save-hook 'delete-trailing-whitespace)

    (defun my-other-delete-trailing-blank-lines ()
    @@ -29,16 +31,32 @@
    (progn
    (delete-char trailnewlines)))))))

    ;Add magit

    ;; Add magit
    (add-to-list 'load-path "~/.emacs.d/magit")
    (require 'magit)

    ;; ORG-mode
    (require 'org-install)
    (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
    (define-key global-map "\C-cl" 'org-store-link)
    (define-key global-map "\C-ca" 'org-agenda)
    (setq org-log-done t)

    ;; 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
    (require 'org)
    (setq org-mobile-inbox-for-pull "~/org/flagged.org")
    ;; Set to <your Dropbox root directory>/MobileOrg.
    (setq org-mobile-directory "~/Dropbox/MobileOrg")
    (custom-set-faces
    ;; custom-set-faces was added by Custom.
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    )

    ;; etags
    (defun create-tags (dir-name)
    "Create tags file."
    @@ -59,40 +77,29 @@
    )


    ;; Save desktop (all opened files)
    (desktop-save-mode 1)

    ;; Load all modules
    (add-to-list 'load-path "~/.emacs.d/")
    ;;(require 'iy-go-to-char)
    (require 'go-to-char)
    (global-set-key (kbd "C-c f") 'go-to-char-forward)
    (global-set-key (kbd "C-c F") 'go-to-char-backward)

    ;; Pyflakes
    (epy-setup-checker "/usr/local/bin/pyflakes %f")

    ;; Hide toolbar
    (tool-bar-mode -1)

    ;; 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
    (require 'org)
    (setq org-mobile-inbox-for-pull "~/org/flagged.org")
    ;; Set to <your Dropbox root directory>/MobileOrg.
    (setq org-mobile-directory "~/Dropbox/MobileOrg")
    (custom-set-faces
    ;; custom-set-faces was added by Custom.
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    )

    ;; Ruby development tools
    (setq rsense-home "~/.emacs.d/rsense")
    (add-to-list 'load-path (concat rsense-home "/etc"))
    ;(require 'rsense)

    ;; For sudo
    (require 'tramp)
    (setq tramp-default-method "scp")



    (column-number-mode 1)

    (eval-after-load "vc-hooks"
    @@ -117,8 +124,11 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (setq compilation-ask-about-save nil)


    ;; Set font
    (load-theme 'adwaita t)
    (set-face-attribute 'default nil :height 145 :weight 'normal)
    (set-default-font "Inconsolata-17")
    (set-default-font "Inconsolata-18")


    (defun toggle-window-split ()
    (interactive)
    @@ -147,6 +157,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    (define-key ctl-x-4-map "t" 'toggle-window-split)

    ;; Pydoc
    (add-to-list 'load-path "~/.emacs.d/pydoc-info/")
    (require 'pydoc-info)

    @@ -188,14 +199,16 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    (add-hook 'isearch-mode-hook 'my-isearch-yank-word-hook)

    ;; Winner mode for saving buffers layout
    (when (fboundp 'winner-mode)
    (winner-mode 1))

    ;; Git for emacs
    (require 'magit)

    (autoload 'mo-git-blame-file "mo-git-blame" nil t)
    (autoload 'mo-git-blame-current "mo-git-blame" nil t)

    ;; Python-pep8
    (require 'python-pep8)

    ; Cmd as meta key. Also, need to set caps lock as C system-wide.
    @@ -208,6 +221,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    ; Shell - Mx eshell
    ; M-y to yank in isearch


    ; Dot mode C-.
    (require 'dot-mode)
    (add-hook 'find-file-hooks 'dot-mode-on)
    @@ -304,8 +318,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (isearch-yank-symbol partialp)))




    (require 'goto-last-change)
    (global-set-key "\C-x\C-\\" 'goto-last-change)
    ; Repeat last command C-x z. z to repeat again.
    @@ -373,12 +385,8 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-w") 'backward-kill-word)
    (global-set-key (kbd "C-;") 'universal-argument)

    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)

    (require 'buffer-move)


    ;; Diff buffer with saved file:
    ;;diff-buffer-with-file
    ;;ediff-current-file
    @@ -502,8 +510,7 @@ message-mode text-mode))

    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)
    ;; (global-set-key (kbd "C-\\") 'ahs-forward)
    ;; (global-set-key (kbd "C-'") 'ahs-backward)


    (require 'highlight-symbol)
    (global-set-key (kbd "C-M-/") 'highlight-symbol-next)
    @@ -569,35 +576,21 @@ message-mode text-mode))
    (global-set-key (kbd "C-w") 'newcw)


    (require 'jump-char)
    (global-set-key [(meta m)] 'jump-char-forward)
    (global-set-key [(shift meta m)] 'jump-char-backward)


    (require 'browse-kill-ring)
    (browse-kill-ring-default-keybindings)


    (global-set-key [f5] 'previous-buffer)
    (global-set-key [f9] 'rgrep)
    (global-set-key [f8] 'ido-switch-buffer)
    ;; (global-set-key [f7] 'other-window)
    ;; (global-set-key [return] ')


    (global-set-key (kbd "M-g") 'goto-line)
    (global-set-key (kbd "C-M-w") 'kill-region)


    (require 'idomenu)
    (autoload 'idomenu "idomenu" nil t)
    (global-set-key (kbd "C-c <tab>") 'idomenu)

    ;; (global-set-key (kbd "C-;") 'forward-char)
    (global-set-key (kbd "C-j") 'backward-char)
    ;; (global-set-key (kbd "C-l") 'previous-line)
    ;; (global-set-key (kbd "C-k") 'next-line)
    ;; (global-set-key (kbd "C-M-k") 'kill-line)
    (global-set-key (kbd "C-M-u") 'universal-argument)

    ;; (global-set-key (kbd "M-;") 'jump-char-forward)
    @@ -633,7 +626,7 @@ message-mode text-mode))
    (if (and (not (region-active-p)) (not (looking-at "[ \t]*$")))
    (comment-or-uncomment-region (line-beginning-position) (line-end-position))
    (comment-dwim arg)))
    (global-set-key "\M-;" 'comment-dwim-line)
    (global-set-key (kbd "C-/") 'comment-dwim-line)



    @@ -702,26 +695,11 @@ message-mode text-mode))
    (buffer-list)))))

    (global-set-key (kbd "C-M-s") 'my-isearch-buffers)


    (global-set-key (kbd "C-s") 'isearch-forward)

    (global-set-key (kbd "M-p") 'other-window)
    (global-set-key (kbd "M-q") 'ido-switch-buffer)


    (global-set-key (kbd "M-g") 'recenter-top-bottom)
    (global-set-key (kbd "C-l") 'goto-line)


    (global-set-key (kbd "C-M-n") 'ido-switch-buffer)
    (global-set-key (kbd "C-M-j") 'ido-switch-buffer)
    ;; (global-set-key (kbd "M-RET") 'split-line)
    (global-set-key (kbd "M-RET") 'ido-switch-buffer)
    (global-set-key (kbd "C-j") 'ido-switch-buffer)

    (global-set-key (kbd "C-M-o") 'other-window)



    ;; (global-set-key (kbd "C-c v") (kbd "C-x 2 C-x 0 C-u - 1 C-x o"))
    @@ -734,12 +712,12 @@ message-mode text-mode))
    (global-set-key (kbd "C-c v") 'halve-other-window-height)


    ; Switch buffer on C-x x
    (global-set-key (kbd "C-x x") 'ido-switch-buffer)
    (global-set-key (kbd "C-x b") 'disabled-key)
    ;; (global-set-key (kbd "C-x o") 'disabled-key)
    ;; (global-set-key (kbd "C-x SPC") 'other-window)


    ; Select word under the cursor
    (defun select-current-word ()
    "Select the word under cursor.
    “word” here is considered any alphanumeric sequence with “_” or “-”."
    @@ -753,6 +731,8 @@ message-mode text-mode))
    ))
    (global-set-key (kbd "C-c SPC") 'select-current-word) ;


    ;; Evil mode
    (add-to-list 'load-path "~/.emacs.d/evil")
    (setq evil-want-C-u-scroll t)
    (require 'evil)
    @@ -763,12 +743,34 @@ message-mode text-mode))
    (setq evil-want-C-i-jump t)



    (defvar server-buffer-clients)
    (when (and (fboundp 'server-start) (string-equal (getenv "TERM") 'xterm))
    (server-start)
    (defun fp-kill-server-with-buffer-routine ()
    (and server-buffer-clients (server-done)))
    (add-hook 'kill-buffer-hook 'fp-kill-server-with-buffer-routine))

    (global-set-key (kbd "C-s") 'save-buffer)

    ; Save on MAC-s
    (global-set-key (kbd "C-s") 'save-buffer)
    (global-set-key (kbd "C-x s") 'save-buffer)


    ; Easy navigation
    (global-set-key (kbd "C-x k") 'windmove-up)
    (global-set-key (kbd "C-x j") 'windmove-down)
    (global-set-key (kbd "C-x l") 'windmove-right)
    (global-set-key (kbd "C-x h") 'windmove-left)

    ; Remap kill-buffer
    (global-set-key (kbd "C-c k") 'kill-buffer)


    ;; Reserved
    ;; (global-set-key (kbd "C-x SPC") 'other-window)


    ;; Try to fix fish emacs rgrep
    (grep-compute-defaults)
    (grep-apply-setting 'grep-find-command "find . ! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 -e grep -nH -e ")
    (setq grep-find-command "find . ! -name \"*~\" ! -name \"#*#\" -type f -print0 | xargs -0 -e grep -nH -e ")
  7. gennad revised this gist Feb 28, 2013. 1 changed file with 11 additions and 1 deletion.
    12 changes: 11 additions & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,4 +1,3 @@

    (require 'whitespace)
    ;; (setq whitespace-style '(face empty tabs lines-tail trailing))
    (setq whitespace-style '(face empty tabs trailing))
    @@ -762,3 +761,14 @@ message-mode text-mode))
    (setq evil-shift-width 4)
    (setq evil-regexp-search t)
    (setq evil-want-C-i-jump t)



    (defvar server-buffer-clients)
    (when (and (fboundp 'server-start) (string-equal (getenv "TERM") 'xterm))
    (server-start)
    (defun fp-kill-server-with-buffer-routine ()
    (and server-buffer-clients (server-done)))
    (add-hook 'kill-buffer-hook 'fp-kill-server-with-buffer-routine))

    (global-set-key (kbd "C-s") 'save-buffer)
  8. gennad revised this gist Oct 21, 2012. 1 changed file with 66 additions and 16 deletions.
    82 changes: 66 additions & 16 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,3 +1,4 @@

    (require 'whitespace)
    ;; (setq whitespace-style '(face empty tabs lines-tail trailing))
    (setq whitespace-style '(face empty tabs trailing))
    @@ -56,7 +57,7 @@
    '(ediff-split-window-function (quote split-window-horizontally))
    '(org-agenda-files (quote ("~/org/1.org")))
    '(save-place t nil (saveplace))
    '(virtualenv-root "~/py-avia/venv"))
    )


    (desktop-save-mode 1)
    @@ -199,11 +200,12 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (require 'python-pep8)

    ; Cmd as meta key. Also, need to set caps lock as C system-wide.
    (setq mac-option-key-is-meta nil)
    (setq mac-command-key-is-meta t)
    (setq mac-command-modifier 'meta)
    (setq mac-option-modifier nil)

    (setq mac-command-modifier 'control)
    ;;(setq mac-command-modifier 'meta)
    ;;(setq mac-control-modifier 'meta)
    ;; (setq mac-option-key-is-meta nil)
    ;; (setq mac-command-key-is-meta t)
    ;; (setq mac-option-modifier nil)
    ; Shell - Mx eshell
    ; M-y to yank in isearch

    @@ -214,7 +216,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; C-M-f go to bracket closing or string end.


    ;; (defun my-horizontal-recenter ()
    ;; "make the point horizontally centered in the window"
    ;; (interactive)
    @@ -423,14 +424,14 @@ message-mode text-mode))
    ;;(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/autocomplete/ac-dict")


    (defun undo-line ()
    "Like C-u in bash"
    (interactive)
    (move-beginning-of-line 1)
    (kill-line)
    (kill-line)
    )
    (global-set-key (kbd "C-u") 'undo-line)
    ;; (defun undo-line ()
    ;; "Like C-u in bash"
    ;; (interactive)
    ;; (move-beginning-of-line 1)
    ;; (kill-line)
    ;; (kill-line)
    ;; )
    ;; (global-set-key (kbd "C-u") 'undo-line)

    (add-to-list 'load-path "/usr/local/Cellar/emacs/24.2/Emacs.app/Contents/share/emacs/site-lisp/w3m")
    (require 'w3m-load)
    @@ -498,7 +499,7 @@ message-mode text-mode))
    (set-mark pt)
    (kill-ring-save pt (point))
    ))
    (global-set-key (kbd "C-M-SPC") 'select-current-word)
    (global-set-key (kbd "C-c SPC") 'select-current-word)

    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)
    @@ -712,3 +713,52 @@ message-mode text-mode))

    (global-set-key (kbd "M-g") 'recenter-top-bottom)
    (global-set-key (kbd "C-l") 'goto-line)


    (global-set-key (kbd "C-M-n") 'ido-switch-buffer)
    (global-set-key (kbd "C-M-j") 'ido-switch-buffer)
    ;; (global-set-key (kbd "M-RET") 'split-line)
    (global-set-key (kbd "M-RET") 'ido-switch-buffer)
    (global-set-key (kbd "C-j") 'ido-switch-buffer)

    (global-set-key (kbd "C-M-o") 'other-window)



    ;; (global-set-key (kbd "C-c v") (kbd "C-x 2 C-x 0 C-u - 1 C-x o"))
    (defun halve-other-window-height ()
    "Expand current window to use half of the other window's lines."
    (interactive)
    (split-window-below)
    (enlarge-window (/ (window-height (next-window)) 2)))

    (global-set-key (kbd "C-c v") 'halve-other-window-height)


    (global-set-key (kbd "C-x x") 'ido-switch-buffer)
    (global-set-key (kbd "C-x b") 'disabled-key)
    ;; (global-set-key (kbd "C-x o") 'disabled-key)
    ;; (global-set-key (kbd "C-x SPC") 'other-window)


    (defun select-current-word ()
    "Select the word under cursor.
    “word” here is considered any alphanumeric sequence with “_” or “-”."
    (interactive)
    (let (pt)
    (skip-chars-backward "-_A-Za-z0-9")
    (setq pt (point))
    (skip-chars-forward "-_A-Za-z0-9")
    (set-mark pt)
    (kill-ring-save pt (point))
    ))
    (global-set-key (kbd "C-c SPC") 'select-current-word) ;

    (add-to-list 'load-path "~/.emacs.d/evil")
    (setq evil-want-C-u-scroll t)
    (require 'evil)
    (evil-mode 1)
    (setq evil-auto-indent t)
    (setq evil-shift-width 4)
    (setq evil-regexp-search t)
    (setq evil-want-C-i-jump t)
  9. gennad revised this gist Oct 14, 2012. 1 changed file with 107 additions and 9 deletions.
    116 changes: 107 additions & 9 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -530,7 +530,7 @@ message-mode text-mode))
    (forward-word)
    (backward-word))
    )
    (global-set-key "\M-f" 'next-word)
    ;; (global-set-key "\M-f" 'next-word)


    (defun kill-whole-word ()
    @@ -581,7 +581,7 @@ message-mode text-mode))
    (global-set-key [f5] 'previous-buffer)
    (global-set-key [f9] 'rgrep)
    (global-set-key [f8] 'ido-switch-buffer)
    (global-set-key [f7] 'other-window)
    ;; (global-set-key [f7] 'other-window)
    ;; (global-set-key [return] ')


    @@ -593,16 +593,16 @@ message-mode text-mode))
    (autoload 'idomenu "idomenu" nil t)
    (global-set-key (kbd "C-c <tab>") 'idomenu)

    (global-set-key (kbd "C-;") 'forward-char)
    ;; (global-set-key (kbd "C-;") 'forward-char)
    (global-set-key (kbd "C-j") 'backward-char)
    (global-set-key (kbd "C-k") 'next-line)
    (global-set-key (kbd "C-l") 'previous-line)
    (global-set-key (kbd "C-M-k") 'kill-line)
    ;; (global-set-key (kbd "C-l") 'previous-line)
    ;; (global-set-key (kbd "C-k") 'next-line)
    ;; (global-set-key (kbd "C-M-k") 'kill-line)
    (global-set-key (kbd "C-M-u") 'universal-argument)
    (global-set-key (kbd "C-M-l") 'recenter-top-bottom)
    (global-set-key (kbd "M-;") 'jump-char-forward)

    ;; (global-set-key (kbd "M-;") 'jump-char-forward)
    (global-set-key (kbd "M-j") 'jump-char-backward)
    (global-set-key (kbd "C-M-;") 'comment-dwim)
    ;; (global-set-key (kbd "C-M-;") 'comment-dwim)

    (require 'find-file-in-project)
    (global-set-key (kbd "C-x f") 'find-file-in-project)
    @@ -614,3 +614,101 @@ message-mode text-mode))
    ;; (setq ac-auto-start 4)

    (require 'virtualenv)


    (ac-set-trigger-key "TAB")
    (setq ac-auto-start nil)



    ;; Original idea from
    ;; http://www.opensubscriber.com/message/emacs-devel@gnu.org/10971693.html
    (defun comment-dwim-line (&optional arg)
    "Replacement for the comment-dwim command.
    If no region is selected and current line is not blank and we are not at the end of the line,
    then comment current line.
    Replaces default behaviour of comment-dwim, when it inserts comment at the end of the line."
    (interactive "*P")
    (comment-normalize-vars)
    (if (and (not (region-active-p)) (not (looking-at "[ \t]*$")))
    (comment-or-uncomment-region (line-beginning-position) (line-end-position))
    (comment-dwim arg)))
    (global-set-key "\M-;" 'comment-dwim-line)







    ;; ; diff faces
    ;; (add-hook 'diff-mode-hook
    ;; (lambda ()
    ;; (set-face-foreground 'diff-header "#f8f8f8") ; italics
    ;; (set-face-background 'diff-header "#0e2231")
    ;; (set-face-background 'diff-file-header "#0e2231")
    ;; (set-face-foreground 'diff-added "#f8f8f8")
    ;; (set-face-background 'diff-added "#253b22")
    ;; (set-face-foreground 'diff-changed "#f8f8f8")
    ;; (set-face-background 'diff-changed "#4a410d")
    ;; (set-face-foreground 'diff-context "#f8f8f8")
    ;; (set-face-foreground 'diff-removed "#f8f8f8")
    ;; (set-face-background 'diff-removed "#420e09")))

    ; ediff faces
    (add-hook 'ediff-load-hook
    (lambda ()
    ;; (set-face-foreground ediff-current-diff-face-A nil)
    ;; (set-face-background ediff-current-diff-face-A "#420e09")
    ;; (set-face-foreground ediff-even-diff-face-A "#aeaeae")
    ;; (set-face-background ediff-even-diff-face-A nil)
    ;; (set-face-foreground ediff-fine-diff-face-A nil)
    ;; (set-face-background ediff-fine-diff-face-A "#613b3a")
    ;; (set-face-foreground ediff-odd-diff-face-A "#aeaeae")
    ;; (set-face-background ediff-odd-diff-face-A nil)
    ;; (set-face-foreground ediff-current-diff-face-B "#35586C")
    ;; (set-face-background ediff-current-diff-face-B "#253b22")
    ;; (set-face-foreground ediff-even-diff-face-B "#aeaeae")
    ;; (set-face-background ediff-even-diff-face-B nil)
    ;; (set-face-foreground ediff-fine-diff-face-B nil)
    ;; Highlighted color of buffer B
    (set-face-background ediff-fine-diff-face-B "#BCD2EE")
    (set-face-foreground ediff-odd-diff-face-B "#aeaeae")
    ;; (set-face-background ediff-odd-diff-face-B nil)
    ;; (set-face-foreground ediff-current-diff-face-C nil)
    ;; (set-face-background ediff-current-diff-face-C "#4a410d")
    ;; (set-face-foreground ediff-even-diff-face-C "#aeaeae")
    ;; (set-face-background ediff-even-diff-face-C nil)
    ;; (set-face-foreground ediff-fine-diff-face-C nil)
    ;; (set-face-background ediff-fine-diff-face-C "#67643d")
    ;; (set-face-foreground ediff-odd-diff-face-C "#aeaeae")
    ;; (set-face-background ediff-odd-diff-face-C nil)
    ))


    (setq explicit-shell-file-name "/usr/local/bin/fish")



    (defun my-isearch-buffers ()
    "isearch multiple buffers."
    (interactive)
    (multi-isearch-buffers
    (delq nil (mapcar (lambda (buf)
    (set-buffer buf)
    (and (not (equal major-mode 'dired-mode))
    (not (string-match "^[ *]" (buffer-name buf)))
    buf))
    (buffer-list)))))

    (global-set-key (kbd "C-M-s") 'my-isearch-buffers)


    (global-set-key (kbd "C-s") 'isearch-forward)

    (global-set-key (kbd "M-p") 'other-window)
    (global-set-key (kbd "M-q") 'ido-switch-buffer)


    (global-set-key (kbd "M-g") 'recenter-top-bottom)
    (global-set-key (kbd "C-l") 'goto-line)
  10. gennad revised this gist Oct 9, 2012. 1 changed file with 38 additions and 19 deletions.
    57 changes: 38 additions & 19 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -52,12 +52,11 @@
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    '(desktop-enable t nil (desktop))
    '(desktop-save-mode t nil (desktop))
    '(ediff-split-window-function (quote split-window-horizontally))
    '(org-agenda-files (quote ("~/org/1.org")))
    '(save-place t nil (saveplace))
    '(ediff-split-window-function (quote split-window-horizontally))
    )
    '(virtualenv-root "~/py-avia/venv"))


    (desktop-save-mode 1)
    @@ -429,6 +428,7 @@ message-mode text-mode))
    (interactive)
    (move-beginning-of-line 1)
    (kill-line)
    (kill-line)
    )
    (global-set-key (kbd "C-u") 'undo-line)

    @@ -518,25 +518,21 @@ message-mode text-mode))
    )))


    (defun next-word (p)
    (defun next-word ()
    "Move point to the beginning of the next word, past any spaces"
    (interactive "d")
    (interactive)
    (setq pt (point))
    (forward-word)
    ;; (forward-word)
    (backward-word))
    (backward-word)
    (message (number-to-string pt))
    (if (equal pt (point))
    (forward-word)
    (forward-word)
    (backward-word))
    )
    (global-set-key "\M-f" 'next-word)


    ;; (defun prev-word (p)
    ;; "Move point to the beginning of the next word, past any spaces"
    ;; (interactive "d")
    ;; (backward-word)
    ;; (backward-word)
    ;; (forward-word))
    ;; (global-set-key "\M-b" 'prev-word)



    (defun kill-whole-word ()
    "Removes a word under the cursor."
    (interactive)
    @@ -582,9 +578,10 @@ message-mode text-mode))
    (browse-kill-ring-default-keybindings)


    (global-set-key [f7] 'rgrep)
    (global-set-key [f5] 'previous-buffer)
    (global-set-key [f9] 'rgrep)
    (global-set-key [f8] 'ido-switch-buffer)
    (global-set-key [f9] 'other-window)
    (global-set-key [f7] 'other-window)
    ;; (global-set-key [return] ')


    @@ -595,3 +592,25 @@ message-mode text-mode))
    (require 'idomenu)
    (autoload 'idomenu "idomenu" nil t)
    (global-set-key (kbd "C-c <tab>") 'idomenu)

    (global-set-key (kbd "C-;") 'forward-char)
    (global-set-key (kbd "C-j") 'backward-char)
    (global-set-key (kbd "C-k") 'next-line)
    (global-set-key (kbd "C-l") 'previous-line)
    (global-set-key (kbd "C-M-k") 'kill-line)
    (global-set-key (kbd "C-M-u") 'universal-argument)
    (global-set-key (kbd "C-M-l") 'recenter-top-bottom)
    (global-set-key (kbd "M-;") 'jump-char-forward)
    (global-set-key (kbd "M-j") 'jump-char-backward)
    (global-set-key (kbd "C-M-;") 'comment-dwim)

    (require 'find-file-in-project)
    (global-set-key (kbd "C-x f") 'find-file-in-project)

    ; Debug on error
    ;; (setq debug-on-error t)

    ;; (setq auto-completion-min-chars 4)
    ;; (setq ac-auto-start 4)

    (require 'virtualenv)
  11. gennad revised this gist Oct 6, 2012. 1 changed file with 95 additions and 15 deletions.
    110 changes: 95 additions & 15 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,5 +1,6 @@
    (require 'whitespace)
    (setq whitespace-style '(face empty tabs lines-tail trailing))
    ;; (setq whitespace-style '(face empty tabs lines-tail trailing))
    (setq whitespace-style '(face empty tabs trailing))
    (global-whitespace-mode t)
    (setq whitespace-line-column 300)

    @@ -247,7 +248,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    (setq calendar-week-start-day 1)

    (global-set-key (kbd "C-c <tab>") 'imenu)
    ;; (global-set-key (kbd "C-c <tab>") 'imenu)
    (setq python-imenu-make-tree nil)
    (setq python-imenu-include-defun-type nil)

    @@ -372,11 +373,9 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-h") 'delete-backward-char)
    (global-set-key (kbd "C-w") 'backward-kill-word)
    (global-set-key (kbd "C-;") 'universal-argument)
    (global-set-key (kbd "M-h") 'kill-region)

    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)
    (global-set-key [return] 'disabled-key)

    (require 'buffer-move)

    @@ -395,6 +394,25 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (define-key ac-menu-map "\C-p" 'ac-previous)
    (define-key ac-menu-map "\C-o" 'ac-complete)

    (setq-default
    ac-sources '(
    ac-source-abbrev
    ;;ac-source-dictionary
    ;;ac-source-symbols
    ;; ac-source-words-in-all-buffer
    ac-source-words-in-buffer
    )
    )
    (setq
    ac-auto-show-menu 0.1
    ;; ac-auto-start 3
    ac-menu-height 20
    ac-modes (append ac-modes '(org-mode jde-mode latex-mode ledger-mode mail-mode
    message-mode text-mode))
    )





    ;;(add-to-list 'load-path "~/.emacs.d/plugins/yasnippet")
    @@ -478,11 +496,12 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (setq pt (point))
    (skip-chars-forward "-_A-Za-z0-9")
    (set-mark pt)
    (kill-ring-save pt (point))
    ))
    (global-set-key (kbd "C-M-h") 'select-current-word)
    (global-set-key (kbd "C-M-SPC") 'select-current-word)

    ;(require 'auto-highlight-symbol)
    ;(global-auto-highlight-symbol-mode t)
    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)
    ;; (global-set-key (kbd "C-\\") 'ahs-forward)
    ;; (global-set-key (kbd "C-'") 'ahs-backward)

    @@ -503,15 +522,76 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    "Move point to the beginning of the next word, past any spaces"
    (interactive "d")
    (forward-word)
    (forward-word)
    ;; (forward-word)
    (backward-word))
    (global-set-key "\M-f" 'next-word)


    (defun prev-word (p)
    "Move point to the beginning of the next word, past any spaces"
    (interactive "d")
    (backward-word)
    (backward-word)
    (forward-word))
    (global-set-key "\M-b" 'prev-word)
    ;; (defun prev-word (p)
    ;; "Move point to the beginning of the next word, past any spaces"
    ;; (interactive "d")
    ;; (backward-word)
    ;; (backward-word)
    ;; (forward-word))
    ;; (global-set-key "\M-b" 'prev-word)



    (defun kill-whole-word ()
    "Removes a word under the cursor."
    (interactive)
    (setq myBoundaries (bounds-of-thing-at-point 'symbol))
    ;; get the beginning and ending positions
    (setq p1 (car myBoundaries))
    (setq p2 (cdr myBoundaries))
    ;; grab it
    (setq myStr (buffer-substring-no-properties p1 p2))
    ;; delete region
    (delete-region p1 p2)
    )
    (global-set-key (kbd "C-M-d") 'kill-whole-word)


    (defun newca ()
    (interactive)
    (setq p1 (point))
    (back-to-indentation)
    (if (= p1 (point))
    (beginning-of-line nil)
    )
    )
    (global-set-key (kbd "C-a") 'newca)


    (defun newcw ()
    (interactive)
    (if (not (equal mark-active nil))
    (kill-region (region-beginning) (region-end))
    (backward-kill-word 1)
    )
    )
    (global-set-key (kbd "C-w") 'newcw)


    (require 'jump-char)
    (global-set-key [(meta m)] 'jump-char-forward)
    (global-set-key [(shift meta m)] 'jump-char-backward)


    (require 'browse-kill-ring)
    (browse-kill-ring-default-keybindings)


    (global-set-key [f7] 'rgrep)
    (global-set-key [f8] 'ido-switch-buffer)
    (global-set-key [f9] 'other-window)
    ;; (global-set-key [return] ')


    (global-set-key (kbd "M-g") 'goto-line)
    (global-set-key (kbd "C-M-w") 'kill-region)


    (require 'idomenu)
    (autoload 'idomenu "idomenu" nil t)
    (global-set-key (kbd "C-c <tab>") 'idomenu)
  12. gennad revised this gist Oct 2, 2012. 1 changed file with 11 additions and 9 deletions.
    20 changes: 11 additions & 9 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,3 +1,8 @@
    (require 'whitespace)
    (setq whitespace-style '(face empty tabs lines-tail trailing))
    (global-whitespace-mode t)
    (setq whitespace-line-column 300)

    (setq org-directory "~/Dropbox/org/")
    (setq next-line-add-newlines nil)
    (load-file "~/.emacs.d/emacs-for-python/epy-init.el")
    @@ -86,9 +91,7 @@
    (require 'tramp)
    (setq tramp-default-method "scp")

    (require 'whitespace)
    (setq whitespace-style '(face empty tabs lines-tail trailing))
    (global-whitespace-mode t)


    (column-number-mode 1)

    @@ -489,12 +492,11 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key [(control f3)] 'highlight-symbol-at-point)
    (global-set-key [(control meta f3)] 'highlight-symbol-query-replace)


    (define-key isearch-mode-map "\C-h" 'delete-backward-char)
    ;; (add-hook 'isearch-mode-hook
    ;; (lambda ()
    ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char
    ;; )))
    ;; C-h to backspace in isearch
    (add-hook 'isearch-mode-hook
    (lambda ()
    (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char
    )))


    (defun next-word (p)
  13. gennad revised this gist Sep 29, 2012. 1 changed file with 25 additions and 0 deletions.
    25 changes: 25 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -488,3 +488,28 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-M-,") 'highlight-symbol-prev)
    (global-set-key [(control f3)] 'highlight-symbol-at-point)
    (global-set-key [(control meta f3)] 'highlight-symbol-query-replace)


    (define-key isearch-mode-map "\C-h" 'delete-backward-char)
    ;; (add-hook 'isearch-mode-hook
    ;; (lambda ()
    ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char
    ;; )))


    (defun next-word (p)
    "Move point to the beginning of the next word, past any spaces"
    (interactive "d")
    (forward-word)
    (forward-word)
    (backward-word))
    (global-set-key "\M-f" 'next-word)


    (defun prev-word (p)
    "Move point to the beginning of the next word, past any spaces"
    (interactive "d")
    (backward-word)
    (backward-word)
    (forward-word))
    (global-set-key "\M-b" 'prev-word)
  14. gennad revised this gist Sep 20, 2012. 1 changed file with 33 additions and 84 deletions.
    117 changes: 33 additions & 84 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,25 +1,13 @@
    (setq org-directory "~/org/")
    (setq org-directory "~/Dropbox/org/")
    (setq next-line-add-newlines nil)
    (load-file "~/.emacs.d/emacs-for-python/epy-init.el")
    (setq flymake-gui-warnings-enabled nil)

    ;; To require
    ;;(add-to-list 'load-path "~/.emacs.d/http")
    ;;(require 'http-post-curl)
    ;;(require 'http-twiddle)

    ;;(load-file "/home/gennad/.emacs.d/http-post-curl.el")
    ;;(load-file "/home/gennad/.emacs.d/http-post-curl.el")
    ;;(load-file "/home/gennad/.emacs.d/http-get.el")
    ;;(require 'http-post-curl)

    (blink-cursor-mode (- (*) (*) (*)))

    (add-to-list 'load-path "~/.emacs.d/nav/")
    (require 'nav)

    ;;(require 'git-emacs)

    (add-hook 'before-save-hook 'delete-trailing-whitespace)

    (defun my-other-delete-trailing-blank-lines ()
    @@ -39,7 +27,6 @@
    (add-to-list 'load-path "~/.emacs.d/magit")
    (require 'magit)


    (require 'org-install)
    (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
    (define-key global-map "\C-cl" 'org-store-link)
    @@ -53,13 +40,6 @@
    (eshell-command
    (format "find %s -type f -name \"*.py\" | etags -" dir-name)))

    ;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-color-theme-solarixed")
    ;;(load-theme 'solarized-light t)

    ;(require 'color-theme)
    ;(color-theme-initialize)
    ;;(color-theme-snowish)
    ;(color-theme-scintilla)

    (custom-set-variables
    ;; custom-set-variables was added by Custom.
    @@ -79,14 +59,8 @@
    (add-to-list 'load-path "~/.emacs.d/")
    ;;(require 'iy-go-to-char)
    (require 'go-to-char)


    (global-set-key (kbd "C-c f") 'go-to-char-forward)
    (global-set-key (kbd "C-c F") 'go-to-char-backward)
    ;; (global-set-key (kbd "C-c f") 'iy-go-to-char)
    ;; (global-set-key (kbd "C-c F") 'iy-go-to-char-backward)
    ;; (global-set-key (kbd "C-c ;") 'iy-go-to-char-continue)
    ;; (global-set-key (kbd "C-c ,") 'iy-go-to-char-continue-backward)

    (epy-setup-checker "/usr/local/bin/pyflakes %f")
    (tool-bar-mode -1)
    @@ -139,9 +113,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key [f6] 'compile)
    (setq compilation-ask-about-save nil)

    ;;(set-face-attribute 'default nil :height 125x)

    ;(set-face-attribute 'default nil :height 145 :weight 'normal)
    (set-face-attribute 'default nil :height 145 :weight 'normal)
    (set-default-font "Inconsolata-17")

    @@ -229,15 +201,14 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (setq mac-command-modifier 'meta)
    (setq mac-option-modifier nil)

    ; Shell - M-x eshell
    ; Shell - Mx eshell
    ; M-y to yank in isearch

    ; Dot mode C-.
    (require 'dot-mode)
    (add-hook 'find-file-hooks 'dot-mode-on)



    ; C-M-f go to bracket closing or string end.


    @@ -277,8 +248,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (setq python-imenu-make-tree nil)
    (setq python-imenu-include-defun-type nil)

    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)



    (require 'etags) ;; provides `find-tag-default' in Emacs 21.
    @@ -327,44 +297,16 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    matches."
    (interactive "P")
    (let ((start (point)))
    (isearch-backward-regexp nil 1)
    (isearch-backward-regexpnil 1)
    (isearch-yank-symbol partialp)))

    ; (global-set-key [f3] 'isearch-current-symbol)
    ; (global-set-key [(control f3)] 'isearch-backward-current-symbol)
    (global-set-key (kbd "C-x *") 'isearch-current-symbol)
    (global-set-key (kbd "C-*") 'isearch-backward-current-symbol)

    ;; Subsequent hitting of the keys will increment to the next
    ;; match--duplicating `C-s' and `C-r', respectively.
    (define-key isearch-mode-map [(control f3)] 'isearch-repeat-backward)

    ; Do we need it?
    ;; I-search with initial contents
    (defvar isearch-initial-string nil)
    (defun isearch-set-initial-string ()
    (remove-hook 'isearch-mode-hook 'isearch-set-initial-string)
    (setq isearch-string isearch-initial-string)
    (isearch-search-and-update))
    (defun isearch-forward-at-point (&optional regexp-p no-recursive-edit)
    "Interactive search forward for the symbol at point."
    (interactive "P\np")
    (if regexp-p (isearch-forward regexp-p no-recursive-edit)
    (let* ((end (progn (skip-syntax-forward "w_") (point)))
    (begin (progn (skip-syntax-backward "w_") (point))))
    (if (eq begin end)
    (isearch-forward regexp-p no-recursive-edit)
    (setq isearch-initial-string (buffer-substring begin end))
    (add-hook 'isearch-mode-hook 'isearch-set-initial-string)
    (isearch-forward regexp-p no-recursive-edit)))))
    (define-key isearch-mode-map [f3] 'isearch-forward-at-point)



    (require 'goto-last-change)
    (global-set-key "\C-x\C-\\" 'goto-last-change)
    ; Repeat last command C-x z. z to repeat again.


    (require 'xml-rpc)
    (require 'weblogger)

    @@ -400,16 +342,12 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "<right>") 'disabled-key)




    ; Copy word under the cursor
    (defun get-point (symbol &optional arg)
    "get the point"
    (funcall symbol arg)
    (point)
    )

    ; Copy word under the cursor
    (defun copy-thing (begin-of-thing end-of-thing &optional arg)
    "copy thing between beg & end into kill ring"
    (save-excursion
    @@ -433,21 +371,10 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-;") 'universal-argument)
    (global-set-key (kbd "M-h") 'kill-region)


    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)
    (global-set-key [return] 'disabled-key)



    ;;(global-set-key [return] 'disabled-key)


    ;;(local-set-key (kbd "RET") (key-binding (kbd "M-j")

    ;; (setq ipython-command "/usr/local/bin/ipython")
    ;; (require 'ipython)

    (require 'buffer-move)


    @@ -470,7 +397,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    ;;(add-to-list 'load-path "~/.emacs.d/plugins/yasnippet")
    ;;(require 'yasnippet)

    ;;(global-set-key (kbd "C-i") 'yas/expand)
    ;;(global-set-ke (kbd "C-i") 'yas/expand)
    ;;(setq yas/also-auto-indent-first-line t)
    ;;(add-to-list 'load-path "~/.emacs.d/plugins/autocomplete/")
    ;;(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/autocomplete/ac-dict")
    @@ -491,9 +418,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; M-w to copy line, C-w to delete (without C-a)
    (require 'whole-line-or-region)
    (whole-line-or-region-mode 1)
    ; Rebind C-o to enter. M-o opens next line.
    (global-set-key (kbd "C-o") 'newline-and-indent) ;was newline
    (whole-line-or-region-mode)


    (setq auto-save-interval 100)
    @@ -519,8 +444,8 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (defun switch-to-previous-buffer ()
    (interactive)
    (switch-to-buffer (other-buffer (current-buffer) 1)))
    (global-set-key (kbd "M-p") 'switch-to-previous-buffer)
    (global-set-key (kbd "M-n") 'other-window)
    (global-set-key (kbd "M-[") 'switch-to-previous-buffer)
    (global-set-key (kbd "M-]") 'other-window)


    ;; (add-to-list 'load-path "~/.emacs.d/org-caldav")
    @@ -539,3 +464,27 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    ;;
    ;; Call `org-caldav-sync' to start the sync. The URL package will ask
    ;; you for username/password for accessing the calendar.


    (defun select-current-word ()
    "Select the word under cursor.
    “word” here is considered any alphanumeric sequence with “_” or “-”."
    (interactive)
    (let (pt)
    (skip-chars-backward "-_A-Za-z0-9")
    (setq pt (point))
    (skip-chars-forward "-_A-Za-z0-9")
    (set-mark pt)
    ))
    (global-set-key (kbd "C-M-h") 'select-current-word)

    ;(require 'auto-highlight-symbol)
    ;(global-auto-highlight-symbol-mode t)
    ;; (global-set-key (kbd "C-\\") 'ahs-forward)
    ;; (global-set-key (kbd "C-'") 'ahs-backward)

    (require 'highlight-symbol)
    (global-set-key (kbd "C-M-/") 'highlight-symbol-next)
    (global-set-key (kbd "C-M-,") 'highlight-symbol-prev)
    (global-set-key [(control f3)] 'highlight-symbol-at-point)
    (global-set-key [(control meta f3)] 'highlight-symbol-query-replace)
  15. gennad revised this gist Sep 17, 2012. 1 changed file with 24 additions and 120 deletions.
    144 changes: 24 additions & 120 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -436,6 +436,10 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)
    (global-set-key [return] 'disabled-key)



    ;;(global-set-key [return] 'disabled-key)


    @@ -492,14 +496,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-o") 'newline-and-indent) ;was newline


    ; C-o for minibuffer exit
    (defun donesearch ()
    (interactive)
    (isearch-done)
    )
    (define-key minibuffer-local-map (kbd "C-o") 'exit-minibuffer)
    (define-key isearch-mode-map (kbd "C-o") 'donesearch)

    (setq auto-save-interval 100)

    ; Auto save directory
    @@ -517,121 +513,29 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "M-X") 'smex-major-mode-commands)
    ;; This is your old M-x.
    (global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)
    ;; (define-key ido-file-completion-map "\C-o" 'ido-clean-text)

    ;; (add-hook 'ido-define-mode-map-hook 'ido-my-keys)
    ;; (defun ido-my-keys ()
    ;; (define-key ido-mode-map "\t" 'ido-complete)
    ;; ;tab is better for completion lists
    ;; ;(define-key ido-mode-map (kbd "tab")
    ;; ; 'ido-complete)
    ;; (define-key ido-mode-map "\C-t" 'ido-toggle-regexp) ; same as in isearch
    ;; (define-key ido-mode-map "\C-d" 'ido-enter-dired)) ;

    (add-hook 'ido-define-mode-map-hook 'ido-my-keys)


    (defun qwe ()
    print "Hello"
    )



    ;; (defun ido-my-keys ()
    ;; "Add my keybindings for ido."
    ;; ;; (define-key ido-mode-map " " 'ido-next-match)
    ;; ; (define-key ido-mode-map "C-o" 'ido-next-match)
    ;; ; (define-key ido-mode-map (kbd "C-p") 'ido-next-match)
    ;; (define-key ido-mode-map "\C-m" 'qwe)
    ;; (define-key ido-mode-map "\C-p" 'ido-next-match)) ; cool

    ;; ; Switch between 2 buffers
    ;; (defun switch-to-previous-buffer ()
    ;; (interactive)
    ;; (switch-to-buffer (other-buffer (current-buffer) 1)))
    ;; (global-set-key (kbd "M-p") 'switch-to-previous-buffer)







    ;;{{{ ido: fast switch buffers

    (add-hook 'ido-define-mode-map-hook 'ido-my-keys)

    (defun ido-my-keys ()
    "Set up the keymap for `ido'."

    ;; common keys
    (define-key ido-mode-map "\C-e" 'ido-edit-input)
    (define-key ido-mode-map "\t" 'ido-complete) ;; complete partial
    (define-key ido-mode-map "\C-j" 'ido-select-text)
    (define-key ido-mode-map "\C-m" 'qwe)
    (define-key ido-mode-map "?" 'ido-completion-help) ;; list completions
    (define-key ido-mode-map [(control ? )] 'ido-restrict-to-matches)
    (define-key ido-mode-map [(control ?@)] 'ido-restrict-to-matches)

    ;; cycle through matches
    (define-key ido-mode-map "\C-r" 'ido-prev-match)
    (define-key ido-mode-map "\C-s" 'ido-next-match)
    (define-key ido-mode-map [right] 'ido-next-match)
    (define-key ido-mode-map [left] 'ido-prev-match)

    ;; toggles
    (define-key ido-mode-map "\C-t" 'ido-toggle-regexp) ;; same as in isearch
    (define-key ido-mode-map "\C-p" 'ido-toggle-prefix)
    (define-key ido-mode-map "\C-c" 'ido-toggle-case)
    (define-key ido-mode-map "\C-a" 'ido-toggle-ignore)

    ;; keys used in file and dir environment
    (when (memq ido-cur-item '(file dir))
    (define-key ido-mode-map "\C-b" 'ido-enter-switch-buffer)
    (define-key ido-mode-map "\C-d" 'ido-enter-dired)
    (define-key ido-mode-map "\C-f" 'ido-fallback-command)

    ;; cycle among directories
    ;; use [left] and [right] for matching files
    (define-key ido-mode-map [down] 'ido-next-match-dir)
    (define-key ido-mode-map [up] 'ido-prev-match-dir)

    ;; backspace functions
    (define-key ido-mode-map [backspace] 'ido-delete-backward-updir)
    (define-key ido-mode-map "\d" 'ido-delete-backward-updir)
    (define-key ido-mode-map [(meta backspace)] 'ido-delete-backward-word-updir)
    (define-key ido-mode-map [(control backspace)] 'ido-up-directory)

    ;; I can't understand this
    (define-key ido-mode-map [(meta ?d)] 'ido-wide-find-dir)
    (define-key ido-mode-map [(meta ?f)] 'ido-wide-find-file)
    (define-key ido-mode-map [(meta ?k)] 'ido-forget-work-directory)
    (define-key ido-mode-map [(meta ?m)] 'ido-make-directory)

    (define-key ido-mode-map [(meta down)] 'ido-next-work-directory)
    (define-key ido-mode-map [(meta up)] 'ido-prev-work-directory)
    (define-key ido-mode-map [(meta left)] 'ido-prev-work-file)
    (define-key ido-mode-map [(meta right)] 'ido-next-work-file)
    ; Switch between 2 buffers
    (defun switch-to-previous-buffer ()
    (interactive)
    (switch-to-buffer (other-buffer (current-buffer) 1)))
    (global-set-key (kbd "M-p") 'switch-to-previous-buffer)
    (global-set-key (kbd "M-n") 'other-window)

    ;; search in the directories
    ;; use C-_ to undo this
    (define-key ido-mode-map [(meta ?s)] 'ido-merge-work-directories)
    (define-key ido-mode-map [(control ?\_)] 'ido-undo-merge-work-directory)
    )

    (when (eq ido-cur-item 'file)
    (define-key ido-mode-map "\C-k" 'ido-delete-file-at-head)
    (define-key ido-mode-map "\C-l" 'ido-toggle-literal)
    (define-key ido-mode-map "\C-o" 'ido-copy-current-word)
    (define-key ido-mode-map "\C-v" 'ido-toggle-vc)
    (define-key ido-mode-map "\C-w" 'ido-copy-current-file-name)
    )
    ;; (add-to-list 'load-path "~/.emacs.d/org-caldav")
    ;; (require org-caldav)
    ;; (setq org-caldav-url "https://www.google.com/calendar/dav")
    ;; (setq org-caldav-calendar-id "")

    (when (eq ido-cur-item 'buffer)
    (define-key ido-mode-map "\C-b" 'ido-fallback-command)
    (define-key ido-mode-map "\C-f" 'ido-enter-find-file)
    (define-key ido-mode-map "\C-k" 'ido-kill-buffer-at-head)
    ))

    (ido-mode t)
    ;;}}}
    ;; - Set `org-caldav-files' to the list of org files you would like to
    ;; sync. For everything else, you can use the org-icalendar-*
    ;; variables, since org-caldav uses that package to generate the
    ;; events.
    ;;
    ;; - Set `org-caldav-inbox' to an org filename where new entries from
    ;; the calendar should be stored.
    ;;
    ;; Call `org-caldav-sync' to start the sync. The URL package will ask
    ;; you for username/password for accessing the calendar.
  16. gennad revised this gist Sep 16, 2012. 1 changed file with 201 additions and 31 deletions.
    232 changes: 201 additions & 31 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -53,7 +53,7 @@
    (eshell-command
    (format "find %s -type f -name \"*.py\" | etags -" dir-name)))

    ;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-color-theme-solarized")
    ;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-color-theme-solarixed")
    ;;(load-theme 'solarized-light t)

    ;(require 'color-theme)
    @@ -184,6 +184,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (require 'highlight-indentation)
    (add-hook 'python-mode-hook 'highlight-indentation)

    ;; Auto refresh buffers
    (global-auto-revert-mode t)
    (setq-default indent-tabs-mode nil)

    @@ -235,8 +236,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (require 'dot-mode)
    (add-hook 'find-file-hooks 'dot-mode-on)

    ; M-w to copy line, C-w to delete (without C-a)
    (require 'whole-line-or-region)


    ; C-M-f go to bracket closing or string end.

    @@ -364,14 +364,6 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key "\C-x\C-\\" 'goto-last-change)
    ; Repeat last command C-x z. z to repeat again.

    ; Smex
    (require 'smex) ; Not needed if you use package.el
    (smex-initialize) ; Can be omitted. This might cause a (minimal) delay
    ; when Smex is auto-initialized on its first run.
    (global-set-key (kbd "M-x") 'smex)
    (global-set-key (kbd "M-X") 'smex-major-mode-commands)
    ;; This is your old M-x.
    (global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)

    (require 'xml-rpc)
    (require 'weblogger)
    @@ -398,7 +390,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (defun disabled-key ()
    "Disables keys"
    (interactive)
    (print "All your arrow keys are disabled. Have a nice day!")
    (print "Key is disabled !")
    )

    ;; All arrow keys are disabled
    @@ -433,35 +425,213 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    )
    (global-set-key (kbd "C-c w") 'copy-word)

    ; C-h for backspace, M-h for backspace word, C-? for help
    ; C-h for backspace, C-w for backspace word, C-? for help
    (global-set-key (kbd "C-?") 'help-command)
    (global-set-key (kbd "M-?") 'mark-paragraph)
    (global-set-key (kbd "C-h") 'delete-backward-char)
    (global-set-key (kbd "M-h") 'backward-kill-word)
    (global-set-key (kbd "C-w") 'backward-kill-word)
    (global-set-key (kbd "C-;") 'universal-argument)
    (global-set-key (kbd "M-h") 'kill-region)


    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)

    (define-key ido-completion-map (kbd "\d") 'disabled-key)
    (define-key ido-completion-map (kbd "M-\d") 'disabled-key)
    (define-key ido-completion-map (kbd "C-h") 'delete-backward-char)
    (define-key ido-completion-map (kbd "M-h") 'backward-kill-word)
    ;;(global-set-key [return] 'disabled-key)


    ;; (setq
    ;; python-shell-interpreter "ipython"
    ;; python-shell-interpreter-args ""
    ;; python-shell-prompt-regexp "In \\[[0-9]+\\]: "
    ;; python-shell-prompt-output-regexp "Out\\[[0-9]+\\]: "
    ;; python-shell-completion-setup-code
    ;; "from IPython.core.completerlib import module_completion"
    ;; python-shell-completion-module-string-code
    ;; "';'.join(module_completion('''%s'''))\n"
    ;; python-shell-completion-string-code
    ;; "';'.join(get_ipython().Completer.all_completions('''%s'''))\n")

    ;;(local-set-key (kbd "RET") (key-binding (kbd "M-j")

    ;; (setq ipython-command "/usr/local/bin/ipython")
    ;; (require 'ipython)

    (require 'buffer-move)


    ;; Diff buffer with saved file:
    ;;diff-buffer-with-file
    ;;ediff-current-file


    ; C-n, C-p for autocomplete
    (yas/global-mode 1)
    (require 'auto-complete-config)
    (ac-config-default)
    (setq ac-use-menu-map t)
    (define-key ac-menu-map "\C-n" 'ac-next)
    (define-key ac-menu-map "\C-p" 'ac-previous)
    (define-key ac-menu-map "\C-o" 'ac-complete)



    ;;(add-to-list 'load-path "~/.emacs.d/plugins/yasnippet")
    ;;(require 'yasnippet)

    ;;(global-set-key (kbd "C-i") 'yas/expand)
    ;;(setq yas/also-auto-indent-first-line t)
    ;;(add-to-list 'load-path "~/.emacs.d/plugins/autocomplete/")
    ;;(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/autocomplete/ac-dict")


    (defun undo-line ()
    "Like C-u in bash"
    (interactive)
    (move-beginning-of-line 1)
    (kill-line)
    )
    (global-set-key (kbd "C-u") 'undo-line)

    (add-to-list 'load-path "/usr/local/Cellar/emacs/24.2/Emacs.app/Contents/share/emacs/site-lisp/w3m")
    (require 'w3m-load)
    (setq w3m-use-cookies t)


    ; M-w to copy line, C-w to delete (without C-a)
    (require 'whole-line-or-region)
    (whole-line-or-region-mode 1)
    ; Rebind C-o to enter. M-o opens next line.
    (global-set-key (kbd "C-o") 'newline-and-indent) ;was newline


    ; C-o for minibuffer exit
    (defun donesearch ()
    (interactive)
    (isearch-done)
    )
    (define-key minibuffer-local-map (kbd "C-o") 'exit-minibuffer)
    (define-key isearch-mode-map (kbd "C-o") 'donesearch)

    (setq auto-save-interval 100)

    ; Auto save directory
    (setq backup-directory-alist
    `((".*" . ,temporary-file-directory)))
    (setq auto-save-file-name-transforms
    `((".*" ,temporary-file-directory t)))


    ; Smex
    (require 'smex) ; Not needed if you use package.el
    (smex-initialize) ; Can be omitted. This might cause a (minimal) delay
    ; when Smex is auto-initialized on its first run.
    (global-set-key (kbd "M-x") 'smex)
    (global-set-key (kbd "M-X") 'smex-major-mode-commands)
    ;; This is your old M-x.
    (global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)
    ;; (define-key ido-file-completion-map "\C-o" 'ido-clean-text)

    ;; (add-hook 'ido-define-mode-map-hook 'ido-my-keys)
    ;; (defun ido-my-keys ()
    ;; (define-key ido-mode-map "\t" 'ido-complete)
    ;; ;tab is better for completion lists
    ;; ;(define-key ido-mode-map (kbd "tab")
    ;; ; 'ido-complete)
    ;; (define-key ido-mode-map "\C-t" 'ido-toggle-regexp) ; same as in isearch
    ;; (define-key ido-mode-map "\C-d" 'ido-enter-dired)) ;

    (add-hook 'ido-define-mode-map-hook 'ido-my-keys)


    (defun qwe ()
    print "Hello"
    )



    ;; (defun ido-my-keys ()
    ;; "Add my keybindings for ido."
    ;; ;; (define-key ido-mode-map " " 'ido-next-match)
    ;; ; (define-key ido-mode-map "C-o" 'ido-next-match)
    ;; ; (define-key ido-mode-map (kbd "C-p") 'ido-next-match)
    ;; (define-key ido-mode-map "\C-m" 'qwe)
    ;; (define-key ido-mode-map "\C-p" 'ido-next-match)) ; cool

    ;; ; Switch between 2 buffers
    ;; (defun switch-to-previous-buffer ()
    ;; (interactive)
    ;; (switch-to-buffer (other-buffer (current-buffer) 1)))
    ;; (global-set-key (kbd "M-p") 'switch-to-previous-buffer)







    ;;{{{ ido: fast switch buffers

    (add-hook 'ido-define-mode-map-hook 'ido-my-keys)

    (defun ido-my-keys ()
    "Set up the keymap for `ido'."

    ;; common keys
    (define-key ido-mode-map "\C-e" 'ido-edit-input)
    (define-key ido-mode-map "\t" 'ido-complete) ;; complete partial
    (define-key ido-mode-map "\C-j" 'ido-select-text)
    (define-key ido-mode-map "\C-m" 'qwe)
    (define-key ido-mode-map "?" 'ido-completion-help) ;; list completions
    (define-key ido-mode-map [(control ? )] 'ido-restrict-to-matches)
    (define-key ido-mode-map [(control ?@)] 'ido-restrict-to-matches)

    ;; cycle through matches
    (define-key ido-mode-map "\C-r" 'ido-prev-match)
    (define-key ido-mode-map "\C-s" 'ido-next-match)
    (define-key ido-mode-map [right] 'ido-next-match)
    (define-key ido-mode-map [left] 'ido-prev-match)

    ;; toggles
    (define-key ido-mode-map "\C-t" 'ido-toggle-regexp) ;; same as in isearch
    (define-key ido-mode-map "\C-p" 'ido-toggle-prefix)
    (define-key ido-mode-map "\C-c" 'ido-toggle-case)
    (define-key ido-mode-map "\C-a" 'ido-toggle-ignore)

    ;; keys used in file and dir environment
    (when (memq ido-cur-item '(file dir))
    (define-key ido-mode-map "\C-b" 'ido-enter-switch-buffer)
    (define-key ido-mode-map "\C-d" 'ido-enter-dired)
    (define-key ido-mode-map "\C-f" 'ido-fallback-command)

    ;; cycle among directories
    ;; use [left] and [right] for matching files
    (define-key ido-mode-map [down] 'ido-next-match-dir)
    (define-key ido-mode-map [up] 'ido-prev-match-dir)

    ;; backspace functions
    (define-key ido-mode-map [backspace] 'ido-delete-backward-updir)
    (define-key ido-mode-map "\d" 'ido-delete-backward-updir)
    (define-key ido-mode-map [(meta backspace)] 'ido-delete-backward-word-updir)
    (define-key ido-mode-map [(control backspace)] 'ido-up-directory)

    ;; I can't understand this
    (define-key ido-mode-map [(meta ?d)] 'ido-wide-find-dir)
    (define-key ido-mode-map [(meta ?f)] 'ido-wide-find-file)
    (define-key ido-mode-map [(meta ?k)] 'ido-forget-work-directory)
    (define-key ido-mode-map [(meta ?m)] 'ido-make-directory)

    (define-key ido-mode-map [(meta down)] 'ido-next-work-directory)
    (define-key ido-mode-map [(meta up)] 'ido-prev-work-directory)
    (define-key ido-mode-map [(meta left)] 'ido-prev-work-file)
    (define-key ido-mode-map [(meta right)] 'ido-next-work-file)

    ;; search in the directories
    ;; use C-_ to undo this
    (define-key ido-mode-map [(meta ?s)] 'ido-merge-work-directories)
    (define-key ido-mode-map [(control ?\_)] 'ido-undo-merge-work-directory)
    )

    (when (eq ido-cur-item 'file)
    (define-key ido-mode-map "\C-k" 'ido-delete-file-at-head)
    (define-key ido-mode-map "\C-l" 'ido-toggle-literal)
    (define-key ido-mode-map "\C-o" 'ido-copy-current-word)
    (define-key ido-mode-map "\C-v" 'ido-toggle-vc)
    (define-key ido-mode-map "\C-w" 'ido-copy-current-file-name)
    )

    (when (eq ido-cur-item 'buffer)
    (define-key ido-mode-map "\C-b" 'ido-fallback-command)
    (define-key ido-mode-map "\C-f" 'ido-enter-find-file)
    (define-key ido-mode-map "\C-k" 'ido-kill-buffer-at-head)
    ))

    (ido-mode t)
    ;;}}}
  17. gennad revised this gist Sep 14, 2012. 1 changed file with 19 additions and 0 deletions.
    19 changes: 19 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -446,3 +446,22 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (define-key ido-completion-map (kbd "M-\d") 'disabled-key)
    (define-key ido-completion-map (kbd "C-h") 'delete-backward-char)
    (define-key ido-completion-map (kbd "M-h") 'backward-kill-word)


    ;; (setq
    ;; python-shell-interpreter "ipython"
    ;; python-shell-interpreter-args ""
    ;; python-shell-prompt-regexp "In \\[[0-9]+\\]: "
    ;; python-shell-prompt-output-regexp "Out\\[[0-9]+\\]: "
    ;; python-shell-completion-setup-code
    ;; "from IPython.core.completerlib import module_completion"
    ;; python-shell-completion-module-string-code
    ;; "';'.join(module_completion('''%s'''))\n"
    ;; python-shell-completion-string-code
    ;; "';'.join(get_ipython().Completer.all_completions('''%s'''))\n")


    ;; (setq ipython-command "/usr/local/bin/ipython")
    ;; (require 'ipython)

    (require 'buffer-move)
  18. gennad revised this gist Sep 14, 2012. 1 changed file with 6 additions and 2 deletions.
    8 changes: 6 additions & 2 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -438,7 +438,11 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "M-?") 'mark-paragraph)
    (global-set-key (kbd "C-h") 'delete-backward-char)
    (global-set-key (kbd "M-h") 'backward-kill-word)
    (global-set-key "\d" 'disabled-key)

    ;;(define-key function-key-map [backspace] 'disabled-key)
    (global-set-key [backspace] 'disabled-key)
    (global-set-key [M-backspace] 'disabled-key)

    (define-key ido-completion-map (kbd "\d") 'disabled-key)
    (define-key ido-completion-map (kbd "M-\d") 'disabled-key)
    (define-key ido-completion-map (kbd "C-h") 'delete-backward-char)
    (define-key ido-completion-map (kbd "M-h") 'backward-kill-word)
  19. gennad revised this gist Sep 14, 2012. 1 changed file with 11 additions and 1 deletion.
    12 changes: 11 additions & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -417,18 +417,28 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (point)
    )

    ; Copy word under the cursor
    (defun copy-thing (begin-of-thing end-of-thing &optional arg)
    "copy thing between beg & end into kill ring"
    (save-excursion
    (let ((beg (get-point begin-of-thing 1))
    (end (get-point end-of-thing arg)))
    (copy-region-as-kill beg end)))
    )

    (defun copy-word (&optional arg)
    "Copy words at point into kill-ring"
    (interactive "P")
    (copy-thing 'backward-sexp 'forward-sexp arg)
    ;;(paste-to-mark arg)
    )
    (global-set-key (kbd "C-c w") 'copy-word)

    ; C-h for backspace, M-h for backspace word, C-? for help
    (global-set-key (kbd "C-?") 'help-command)
    (global-set-key (kbd "M-?") 'mark-paragraph)
    (global-set-key (kbd "C-h") 'delete-backward-char)
    (global-set-key (kbd "M-h") 'backward-kill-word)
    (global-set-key "\d" 'disabled-key)

    ;;(define-key function-key-map [backspace] 'disabled-key)
    (global-set-key [backspace] 'disabled-key)
  20. gennad revised this gist Sep 14, 2012. 1 changed file with 34 additions and 18 deletions.
    52 changes: 34 additions & 18 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -112,11 +112,6 @@
    (require 'tramp)
    (setq tramp-default-method "scp")

    ;; adjust this path:
    ;;(add-to-list 'load-path "~/.emacs.d/emacs-jabber")
    ;; For 0.7.90 and above:
    ;;(require 'jabber-autoloads)

    (require 'whitespace)
    (setq whitespace-style '(face empty tabs lines-tail trailing))
    (global-whitespace-mode t)
    @@ -337,20 +332,14 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; (global-set-key [f3] 'isearch-current-symbol)
    ; (global-set-key [(control f3)] 'isearch-backward-current-symbol)
    (global-set-key (kbd "C-x *") 'isearch-current-symbol)
    (global-set-key (kbd "C-*") 'isearch-backward-current-symbol)


    ;; Subsequent hitting of the keys will increment to the next
    ;; match--duplicating `C-s' and `C-r', respectively.
    (define-key isearch-mode-map [(control f3)] 'isearch-repeat-backward)





    (global-set-key (kbd "C-x *") 'isearch-current-symbol)
    (global-set-key (kbd "C-*") 'isearch-backward-current-symbol)

    ;; Subsequent hitting of the keys will increment to the next
    ;; match--duplicating `C-s' and `C-r', respectively.
    (define-key isearch-mode-map [(control f3)] 'isearch-repeat-backward)

    ; Do we need it?
    ;; I-search with initial contents
    (defvar isearch-initial-string nil)
    (defun isearch-set-initial-string ()
    @@ -389,11 +378,12 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; tags-search - search name in project

    ; Search a file in project
    (add-to-list 'load-path "~/.emacs.d/eproject")
    (require 'eproject)
    (require 'eproject-extras)


    ; C-c t -- google translate
    (require 'google-translate)
    (global-set-key "\C-ct" 'google-translate-query-translate)
    (setq google-translate-default-target-language "ru")
    @@ -416,3 +406,29 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "<down>") 'disabled-key)
    (global-set-key (kbd "<left>") 'disabled-key)
    (global-set-key (kbd "<right>") 'disabled-key)




    ; Copy word under the cursor
    (defun get-point (symbol &optional arg)
    "get the point"
    (funcall symbol arg)
    (point)
    )

    (defun copy-thing (begin-of-thing end-of-thing &optional arg)
    "copy thing between beg & end into kill ring"
    (save-excursion
    (let ((beg (get-point begin-of-thing 1))
    (end (get-point end-of-thing arg)))
    (copy-region-as-kill beg end)))
    )

    (defun copy-word (&optional arg)
    "Copy words at point into kill-ring"
    (interactive "P")
    (copy-thing 'backward-sexp 'forward-sexp arg)
    ;;(paste-to-mark arg)
    )
    (global-set-key (kbd "C-c w") 'copy-word)
  21. gennad revised this gist Sep 9, 2012. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -406,7 +406,7 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."


    (defun disabled-key ()
    "Disabes keys"
    "Disables keys"
    (interactive)
    (print "All your arrow keys are disabled. Have a nice day!")
    )
  22. gennad revised this gist Sep 9, 2012. 1 changed file with 13 additions and 0 deletions.
    13 changes: 13 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -403,3 +403,16 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (require 'nose)

    ; 3 buffers on screen


    (defun disabled-key ()
    "Disabes keys"
    (interactive)
    (print "All your arrow keys are disabled. Have a nice day!")
    )

    ;; All arrow keys are disabled
    (global-set-key (kbd "<up>") 'disabled-key)
    (global-set-key (kbd "<down>") 'disabled-key)
    (global-set-key (kbd "<left>") 'disabled-key)
    (global-set-key (kbd "<right>") 'disabled-key)
  23. gennad revised this gist Sep 2, 2012. 1 changed file with 11 additions and 1 deletion.
    12 changes: 11 additions & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -389,7 +389,17 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    ; tags-search - search name in project


    (add-to-list 'load-path "~/.emacs.d/eproject")
    (require 'eproject)
    (require 'eproject-extras)


    (require 'google-translate)
    (global-set-key "\C-ct" 'google-translate-query-translate)
    (setq google-translate-default-target-language "ru")
    (setq google-translate-default-source-language "en")

    ; Nosemacs
    (require 'nose)

    ; 3 buffers on screen
  24. gennad revised this gist Aug 25, 2012. 1 changed file with 10 additions and 0 deletions.
    10 changes: 10 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -383,3 +383,13 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "M-X") 'smex-major-mode-commands)
    ;; This is your old M-x.
    (global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)

    (require 'xml-rpc)
    (require 'weblogger)

    ; tags-search - search name in project


    (add-to-list 'load-path "~/.emacs.d/eproject")
    (require 'eproject)
    (require 'eproject-extras)
  25. gennad revised this gist Aug 25, 2012. 1 changed file with 9 additions and 1 deletion.
    10 changes: 9 additions & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -373,5 +373,13 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."

    (require 'goto-last-change)
    (global-set-key "\C-x\C-\\" 'goto-last-change)

    ; Repeat last command C-x z. z to repeat again.

    ; Smex
    (require 'smex) ; Not needed if you use package.el
    (smex-initialize) ; Can be omitted. This might cause a (minimal) delay
    ; when Smex is auto-initialized on its first run.
    (global-set-key (kbd "M-x") 'smex)
    (global-set-key (kbd "M-X") 'smex-major-mode-commands)
    ;; This is your old M-x.
    (global-set-key (kbd "C-c C-c M-x") 'execute-extended-command)
  26. gennad revised this gist Aug 25, 2012. 1 changed file with 6 additions and 0 deletions.
    6 changes: 6 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -369,3 +369,9 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (add-hook 'isearch-mode-hook 'isearch-set-initial-string)
    (isearch-forward regexp-p no-recursive-edit)))))
    (define-key isearch-mode-map [f3] 'isearch-forward-at-point)


    (require 'goto-last-change)
    (global-set-key "\C-x\C-\\" 'goto-last-change)

    ; Repeat last command C-x z. z to repeat again.
  27. gennad revised this gist Aug 20, 2012. 1 changed file with 95 additions and 5 deletions.
    100 changes: 95 additions & 5 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -77,14 +77,16 @@
    (desktop-save-mode 1)

    (add-to-list 'load-path "~/.emacs.d/")
    (require 'iy-go-to-char)
    ;;(require 'iy-go-to-char)
    (require 'go-to-char)


    (global-set-key (kbd "C-c f") 'iy-go-to-char)
    (global-set-key (kbd "C-c F") 'iy-go-to-char-backward)
    (global-set-key (kbd "C-c ;") 'iy-go-to-char-continue)
    (global-set-key (kbd "C-c ,") 'iy-go-to-char-continue-backward)
    (global-set-key (kbd "C-c f") 'go-to-char-forward)
    (global-set-key (kbd "C-c F") 'go-to-char-backward)
    ;; (global-set-key (kbd "C-c f") 'iy-go-to-char)
    ;; (global-set-key (kbd "C-c F") 'iy-go-to-char-backward)
    ;; (global-set-key (kbd "C-c ;") 'iy-go-to-char-continue)
    ;; (global-set-key (kbd "C-c ,") 'iy-go-to-char-continue-backward)

    (epy-setup-checker "/usr/local/bin/pyflakes %f")
    (tool-bar-mode -1)
    @@ -279,3 +281,91 @@ Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (global-set-key (kbd "C-c <tab>") 'imenu)
    (setq python-imenu-make-tree nil)
    (setq python-imenu-include-defun-type nil)

    (require 'auto-highlight-symbol)
    (global-auto-highlight-symbol-mode t)


    (require 'etags) ;; provides `find-tag-default' in Emacs 21.

    (defun isearch-yank-regexp (regexp)
    "Pull REGEXP into search regexp."
    (let ((isearch-regexp nil)) ;; Dynamic binding of global.
    (isearch-yank-string regexp))
    (isearch-search-and-update))

    (defun isearch-yank-symbol (&optional partialp)
    "Put symbol at current point into search string.
    If PARTIALP is non-nil, find all partial matches."
    (interactive "P")
    (let* ((sym (find-tag-default))
    ;; Use call of `re-search-forward' by `find-tag-default' to
    ;; retrieve the end point of the symbol.
    (sym-end (match-end 0))
    (sym-start (- sym-end (length sym))))
    (if (null sym)
    (message "No symbol at point")
    (goto-char sym-start)
    ;; For consistent behavior, restart Isearch from starting point
    ;; (or end point if using `isearch-backward') of symbol.
    (isearch-search)
    (if partialp
    (isearch-yank-string sym)
    (isearch-yank-regexp
    (concat "\\_<" (regexp-quote sym) "\\_>"))))))

    (defun isearch-current-symbol (&optional partialp)
    "Incremental search forward with symbol under point.
    Prefixed with \\[universal-argument] will find all partial
    matches."
    (interactive "P")
    (let ((start (point)))
    (isearch-forward-regexp nil 1)
    (isearch-yank-symbol partialp)))

    (defun isearch-backward-current-symbol (&optional partialp)
    "Incremental search backward with symbol under point.
    Prefixed with \\[universal-argument] will find all partial
    matches."
    (interactive "P")
    (let ((start (point)))
    (isearch-backward-regexp nil 1)
    (isearch-yank-symbol partialp)))

    ; (global-set-key [f3] 'isearch-current-symbol)
    ; (global-set-key [(control f3)] 'isearch-backward-current-symbol)
    (global-set-key (kbd "C-x *") 'isearch-current-symbol)
    (global-set-key (kbd "C-*") 'isearch-backward-current-symbol)


    ;; Subsequent hitting of the keys will increment to the next
    ;; match--duplicating `C-s' and `C-r', respectively.
    (define-key isearch-mode-map [(control f3)] 'isearch-repeat-backward)







    ;; I-search with initial contents
    (defvar isearch-initial-string nil)
    (defun isearch-set-initial-string ()
    (remove-hook 'isearch-mode-hook 'isearch-set-initial-string)
    (setq isearch-string isearch-initial-string)
    (isearch-search-and-update))
    (defun isearch-forward-at-point (&optional regexp-p no-recursive-edit)
    "Interactive search forward for the symbol at point."
    (interactive "P\np")
    (if regexp-p (isearch-forward regexp-p no-recursive-edit)
    (let* ((end (progn (skip-syntax-forward "w_") (point)))
    (begin (progn (skip-syntax-backward "w_") (point))))
    (if (eq begin end)
    (isearch-forward regexp-p no-recursive-edit)
    (setq isearch-initial-string (buffer-substring begin end))
    (add-hook 'isearch-mode-hook 'isearch-set-initial-string)
    (isearch-forward regexp-p no-recursive-edit)))))
    (define-key isearch-mode-map [f3] 'isearch-forward-at-point)
  28. gennad renamed this gist Aug 19, 2012. 1 changed file with 0 additions and 0 deletions.
    0 .emacs → gistfile1.el
    View file
    File renamed without changes.
  29. gennad created this gist Aug 19, 2012.
    281 changes: 281 additions & 0 deletions .emacs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,281 @@
    (setq org-directory "~/org/")
    (setq next-line-add-newlines nil)
    (load-file "~/.emacs.d/emacs-for-python/epy-init.el")
    (setq flymake-gui-warnings-enabled nil)

    ;; To require
    ;;(add-to-list 'load-path "~/.emacs.d/http")
    ;;(require 'http-post-curl)
    ;;(require 'http-twiddle)

    ;;(load-file "/home/gennad/.emacs.d/http-post-curl.el")
    ;;(load-file "/home/gennad/.emacs.d/http-post-curl.el")
    ;;(load-file "/home/gennad/.emacs.d/http-get.el")
    ;;(require 'http-post-curl)

    (blink-cursor-mode (- (*) (*) (*)))

    (add-to-list 'load-path "~/.emacs.d/nav/")
    (require 'nav)

    ;;(require 'git-emacs)

    (add-hook 'before-save-hook 'delete-trailing-whitespace)

    (defun my-other-delete-trailing-blank-lines ()
    "Deletes all blank lines at the end of the file, even the last one"
    (interactive)
    (save-excursion
    (save-restriction
    (widen)
    (goto-char (point-max))
    (delete-blank-lines)
    (let ((trailnewlines (abs (skip-chars-backward "\n\t"))))
    (if (> trailnewlines 0)
    (progn
    (delete-char trailnewlines)))))))

    ;Add magit
    (add-to-list 'load-path "~/.emacs.d/magit")
    (require 'magit)


    (require 'org-install)
    (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
    (define-key global-map "\C-cl" 'org-store-link)
    (define-key global-map "\C-ca" 'org-agenda)
    (setq org-log-done t)

    ;; etags
    (defun create-tags (dir-name)
    "Create tags file."
    (interactive "DDirectory: ")
    (eshell-command
    (format "find %s -type f -name \"*.py\" | etags -" dir-name)))

    ;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-color-theme-solarized")
    ;;(load-theme 'solarized-light t)

    ;(require 'color-theme)
    ;(color-theme-initialize)
    ;;(color-theme-snowish)
    ;(color-theme-scintilla)

    (custom-set-variables
    ;; custom-set-variables was added by Custom.
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    '(desktop-enable t nil (desktop))
    '(desktop-save-mode t nil (desktop))
    '(org-agenda-files (quote ("~/org/1.org")))
    '(save-place t nil (saveplace))
    '(ediff-split-window-function (quote split-window-horizontally))
    )


    (desktop-save-mode 1)

    (add-to-list 'load-path "~/.emacs.d/")
    (require 'iy-go-to-char)
    (require 'go-to-char)


    (global-set-key (kbd "C-c f") 'iy-go-to-char)
    (global-set-key (kbd "C-c F") 'iy-go-to-char-backward)
    (global-set-key (kbd "C-c ;") 'iy-go-to-char-continue)
    (global-set-key (kbd "C-c ,") 'iy-go-to-char-continue-backward)

    (epy-setup-checker "/usr/local/bin/pyflakes %f")
    (tool-bar-mode -1)

    ;; 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
    (require 'org)
    (setq org-mobile-inbox-for-pull "~/org/flagged.org")
    ;; Set to <your Dropbox root directory>/MobileOrg.
    (setq org-mobile-directory "~/Dropbox/MobileOrg")
    (custom-set-faces
    ;; custom-set-faces was added by Custom.
    ;; If you edit it by hand, you could mess it up, so be careful.
    ;; Your init file should contain only one such instance.
    ;; If there is more than one, they won't work right.
    )

    (setq rsense-home "~/.emacs.d/rsense")
    (add-to-list 'load-path (concat rsense-home "/etc"))
    ;(require 'rsense)

    (require 'tramp)
    (setq tramp-default-method "scp")

    ;; adjust this path:
    ;;(add-to-list 'load-path "~/.emacs.d/emacs-jabber")
    ;; For 0.7.90 and above:
    ;;(require 'jabber-autoloads)

    (require 'whitespace)
    (setq whitespace-style '(face empty tabs lines-tail trailing))
    (global-whitespace-mode t)

    (column-number-mode 1)

    (eval-after-load "vc-hooks"
    '(define-key vc-prefix-map "=" 'ediff-revision))

    (defun ediff-current-buffer-revision ()
    "Run Ediff to diff current buffer's file against VC depot.
    Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'."
    (interactive)
    (let ((file (or (buffer-file-name)
    (error "Current buffer is not visiting a file"))))
    (if (and (buffer-modified-p)
    (y-or-n-p (message "Buffer %s is modified. Save buffer? "
    (buffer-name))))
    (save-buffer (current-buffer)))
    (ediff-load-version-control)
    (funcall
    (intern (format "ediff-%S-internal" ediff-version-control-package))
    "" "" nil)))

    (global-set-key [f6] 'compile)
    (setq compilation-ask-about-save nil)

    ;;(set-face-attribute 'default nil :height 125x)

    ;(set-face-attribute 'default nil :height 145 :weight 'normal)
    (set-face-attribute 'default nil :height 145 :weight 'normal)
    (set-default-font "Inconsolata-17")

    (defun toggle-window-split ()
    (interactive)
    (if (= (count-windows) 2)
    (let* ((this-win-buffer (window-buffer))
    (next-win-buffer (window-buffer (next-window)))
    (this-win-edges (window-edges (selected-window)))
    (next-win-edges (window-edges (next-window)))
    (this-win-2nd (not (and (<= (car this-win-edges)
    (car next-win-edges))
    (<= (cadr this-win-edges)
    (cadr next-win-edges)))))
    (splitter
    (if (= (car this-win-edges)
    (car (window-edges (next-window))))
    'split-window-horizontally
    'split-window-vertically)))
    (delete-other-windows)
    (let ((first-win (selected-window)))
    (funcall splitter)
    (if this-win-2nd (other-window 1))
    (set-window-buffer (selected-window) this-win-buffer)
    (set-window-buffer (next-window) next-win-buffer)
    (select-window first-win)
    (if this-win-2nd (other-window 1))))))

    (define-key ctl-x-4-map "t" 'toggle-window-split)

    (add-to-list 'load-path "~/.emacs.d/pydoc-info/")
    (require 'pydoc-info)

    (epy-setup-ipython)
    ;;(global-hl-line-mode t) ;; To enable
    ;;(set-face-background 'hl-line "black") ;; change with the color that you like
    ;; for a list of colors: http://raebear.net/comp/emacscolors.html


    (require 'highlight-indentation)
    (add-hook 'python-mode-hook 'highlight-indentation)

    (global-auto-revert-mode t)
    (setq-default indent-tabs-mode nil)


    (defun my-isearch-word-at-point ()
    (interactive)
    (call-interactively 'isearch-forward-regexp))

    (defun my-isearch-yank-word-hook ()
    (when (equal this-command 'my-isearch-word-at-point)
    (let ((string (concat "\\<"
    (buffer-substring-no-properties
    (progn (skip-syntax-backward "w_") (point))
    (progn (skip-syntax-forward "w_") (point)))
    "\\>")))
    (if (and isearch-case-fold-search
    (eq 'not-yanks search-upper-case))
    (setq string (downcase string)))
    (setq isearch-string string
    isearch-message
    (concat isearch-message
    (mapconcat 'isearch-text-char-description
    string ""))
    isearch-yank-flag t)
    (isearch-search-and-update))))

    (add-hook 'isearch-mode-hook 'my-isearch-yank-word-hook)

    (when (fboundp 'winner-mode)
    (winner-mode 1))

    (require 'magit)

    (autoload 'mo-git-blame-file "mo-git-blame" nil t)
    (autoload 'mo-git-blame-current "mo-git-blame" nil t)

    (require 'python-pep8)

    ; Cmd as meta key. Also, need to set caps lock as C system-wide.
    (setq mac-option-key-is-meta nil)
    (setq mac-command-key-is-meta t)
    (setq mac-command-modifier 'meta)
    (setq mac-option-modifier nil)

    ; Shell - M-x eshell
    ; M-y to yank in isearch

    ; Dot mode C-.
    (require 'dot-mode)
    (add-hook 'find-file-hooks 'dot-mode-on)

    ; M-w to copy line, C-w to delete (without C-a)
    (require 'whole-line-or-region)

    ; C-M-f go to bracket closing or string end.


    ;; (defun my-horizontal-recenter ()
    ;; "make the point horizontally centered in the window"
    ;; (interactive)
    ;; (let ((mid (/ (window-width) 2))
    ;; (line-len (save-excursion (end-of-line) (current-column)))
    ;; (cur (current-column)))
    ;; (if (< mid cur)
    ;; (set-window-hscroll (selected-window)
    ;; (- cur mid)))))
    ;; (global-set-key (kbd "C-M-l") 'my-horizontal-recenter)


    ; Registers: C-x r s <reg> - save and C-x r i <reg> to insert
    (require 'list-register)
    (global-set-key (kbd "C-x r v") 'list-register)
    ;; C-x r <SPC> R -- C-x r j R -- save buffer/position in register R, and jump back to it
    ;; C-x r w R -- C-x r j R -- save window configuration in register R, and jump back to it

    ; M-r reposition cursor

    ; C-M-a -- go to beginning of the fuction
    ; C-m-e -- go to end of the function


    ; Back C-x o
    (defun back-window ()
    (interactive)
    (other-window -1))
    (global-set-key (kbd "C-x O") 'back-window)

    (setq calendar-week-start-day 1)

    (global-set-key (kbd "C-c <tab>") 'imenu)
    (setq python-imenu-make-tree nil)
    (setq python-imenu-include-defun-type nil)