Please bear with us as we work to restore functionality to dotfiles.org.

dotfiles.org

Log in

Username Password

dkukartsev /.emacs

(setq load-path (cons "~/emacs" load-path)) ; Emacs load path
(setq backup-directory-alist '(("" . "~/.emacs.d/emacs-backup")))
(setq make-backup-files         nil); Don't want any backup files
(setq auto-save-list-file-name  nil); Don't want any .saves files
(setq auto-save-default         nil); Don't want any auto saving
(setq search-highlight           t) ; Highlight search object
(setq query-replace-highlight    t) ; Highlight query object
(setq mouse-sel-retan-highlight t)  ; Keep mouse high-lightening
(setq kill-whole-line t)            ; Remove line with \n
(menu-bar-mode -1)                  ; Disable menu
(fset 'yes-or-no-p 'y-or-n-p)       ; Use "y or n" answers instead of full words "yes or no"
(require 'generic-x)                ; for javscript-geniric-mode
(setq transient-mark-mode t)
(setq inhibit-startup-message t) ; Silent boot
(setq initial-scratch-message nil) ; Clear scratch buffer
(setq message-log-max nil) ; Shut off message buffer
(setq column-number-mode t)
(setq line-number-mode t)
(cd "~/") ; Start in this directory
(recentf-mode 1) ; Recent files in menu
(require 'dired-single) ; Dired in one buffer
(require 'comment) ; Comment uncomment one button XXX shity
(require 'tramp) ; Remote file editing via ssh
(setq tramp-default-method "ssh")

;; HIGHLIGHT / INDENT
(require 'font-lock)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(show-paren-mode t)

;; BINDKEY
(cua-mode t)
(require 'redo)
(global-set-key "\C-r" 'redo)
(global-set-key "\C-g" 'goto-line)
(global-set-key "\C-d" 'kill-line)
(global-set-key "\C-s" 'save-buffer)
(global-set-key "\C-q" 'kill-buffer-quite)
(global-set-key "\C-w" 'bookmark-jump)
(global-set-key "\C-e" 'bookmark-set)
(global-set-key "\C-f" 'isearch-forward)
(global-set-key (read-kbd-macro "ESC .") 'forward-word)
(global-set-key (read-kbd-macro "ESC ,") 'backward-word)
(define-key isearch-mode-map "\C-f" 'isearch-repeat-forward)
(define-key isearch-mode-map "\C-p" 'isearch-repeat-backward)
(global-set-key (read-kbd-macro "ESC ") 'my-next-buffer)
(global-set-key (read-kbd-macro "ESC ") 'my-prev-buffer)
(global-set-key (read-kbd-macro "ESC ") 'windmove-up)
(global-set-key (read-kbd-macro "ESC ") 'windmove-down)
(global-set-key (read-kbd-macro "") 'switch-to-buffer)
(global-set-key (read-kbd-macro "") 'find-file)
(global-set-key (read-kbd-macro "") 'find-grep)
(global-set-key (read-kbd-macro "") 'tabbar-forward-group)
(global-set-key (read-kbd-macro "") 'comment-uncomment-line-or-region) ;; not my shity shit XXX
(global-set-key (read-kbd-macro "") 'toggle-truncate-lines)
(global-set-key (read-kbd-macro "") 'keyboard-escape-quit)
(global-set-key (read-kbd-macro "") 'save-buffers-kill-emacs)
(global-set-key [(control shift tab)] 'tabbar-backward)
(global-set-key [(control tab)]       'tabbar-forward)
;; Too dirty but works under putty
;;(global-set-key (read-kbd-macro "") 'beginning-of-line)
(define-key global-map "\M-[1~" 'beginning-of-line)
(global-set-key (read-kbd-macro "") 'end-of-line)

;; Dired
(setq dired-mode-map (make-keymap))
(suppress-keymap dired-mode-map)
(define-key dired-mode-map (kbd "RET") 'joc-dired-single-buffer)
(define-key dired-mode-map [127]
    '(lambda ()
        (interactive)
        (let ((current-dir (dired-current-directory)))
            (joc-dired-single-buffer "..")
            (dired-goto-file current-dir)
        )
    )
)
(define-key dired-mode-map (read-kbd-macro "") 'dired-do-delete)



(require 'tabbar)
(set-face-attribute
 'tabbar-default-face nil
 :background "white")
 (set-face-attribute
  'tabbar-unselected-face nil
  :background "white"
  :foreground "black")
 (set-face-underline-p 'tabbar-unselected-face nil)
 (set-face-attribute
  'tabbar-selected-face nil
  :background "black"
  :foreground "red")
 (set-face-underline-p 'tabbar-selected-face nil)
 (tabbar-mode 1)

;; MODES
(setq auto-mode-alist
    (append '(
        ("\\.pl$"           .       perl-mode)
        ("\\.cgi$"          .       perl-mode)
        ("\\.pm$"           .       perl-mode)
        ("\\.emacs$"        .       emacs-lisp-mode)
        ("\\.sh$"           .       ksh-mode)
        ("\\.html$"         .       html-mode)
        ("\\.tmpl$"         .       html-mode)
    )
auto-mode-alist))

;; FUNCTIONS
(defun kill-buffer-quite ()
    (interactive)
    (restore-buffer-modified-p nil)
    (kill-buffer-and-window)
)
(defun my-next-buffer ()
    (interactive)
    (tabbar-forward-tab)
;;;     (setq first-buffer-name (buffer-name))
;;;     (next-buffer)
;;;     (while
;;;         (and
;;;             (not (buffer-file-name))
;;;             (not (string-equal first-buffer-name (buffer-name)))
;;;         )
;;;         (next-buffer)
;;;     )
    )
(defun my-prev-buffer ()
    (interactive)
    (tabbar-backward-tab)
;;;     (setq first-buffer-name (buffer-name))
;;;     (previous-buffer)
;;;     (while
;;;         (and
;;;             (not (buffer-file-name))
;;;             (not (string-equal first-buffer-name (buffer-name)))
;;;         )
;;;         (previous-buffer)
;;;     )
    )
(defun replace-newline()
  (interactive)
  (replace-string "\\n" "
")
)

(defun my-build-tab-stop-list (width)
  (let ((num-tab-stops (/ 80 width))
  (counter 1)
  (ls nil))
    (while (<= counter num-tab-stops)
      (setq ls (cons (* width counter) ls))
      (setq counter (1+ counter)))
    (set (make-local-variable 'tab-stop-list) (nreverse ls))))

(defun my-c-mode-common-hook ()
  (setq tab-width 4)
  (my-build-tab-stop-list tab-width)
  (setq c-basic-offset tab-width)
  (setq c-delete-function 'kill-line)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;; todo
(global-set-key "%" 'match-paren)
(defun looking-next-char (syntax)
  (save-excursion
    (forward-char 1)
    (looking-at syntax)))
(defun looking-prev-char (syntax)
  (save-excursion
    (backward-char 1)
    (looking-at syntax)))
(defun match-paren (arg)
  "Go to the matching paren if on a paren; otherwise insert %."
  (interactive "p")
  (cond ((and (looking-at "\\s\(")
              (not (looking-next-char "\\s\)"))) (forward-list 1) (backward-char 1))
        ((and (looking-at "\\s\)")
              (not (looking-prev-char "\\s\("))) (forward-char 1) (backward-list 1))
        (t (self-insert-command (or arg 1)))))
        

          »
          
            See more dotfiles like
            .emacs
          
        
        

          »
          
            See more dotfiles from
            dkukartsev
          
        
      
      

        Site © 2006-2012
        <form> && f(x).
        Files © their owner.