;; My init.el file
;; Author: Nirmal
;; Revision: 0.1
;; Date: April 6, 2011
;; Descirption: init file for emacs on windows. This file is a comilation of intialization features from different sources
;; Windows specific installation
;; - HOME variable: C:\Emacs\
;; - PATH variable: C:\cygwin\bin ;; requires Cygwin installation
;;--------------------------------------------------------------------
;; set the load path
;;--------------------------------------------------------------------
;;--------------------------------------------------------------------
;; Color and Display related
;;--------------------------------------------------------------------
;; color-theme package
(add-to-list 'load-path "C:/Emacs/.emacs.d/plugins/color-theme-6.6.0")
;; load extra color-theme packages
(load-file "~/.emacs.d/plugins/zenburn.el")
(load-file "~/.emacs.d/plugins/color-theme-railscasts.el")
(load-file "~/.emacs.d/plugins/color-theme-tango.el")
(require 'color-theme)
(eval-after-load "color-theme"
'(progn
(color-theme-initialize)
;; (color-theme-railscasts)))
(color-theme-zenburn)))
;; hl-line: highlight the current line
(when (fboundp 'global-hl-line-mode)
(global-hl-line-mode t)) ;; turn it on for all modes by default
;; ;; To customize the background color
;; (set-face-background 'hl-line "#3f3f3f")
;; ;; see http://www.gnu.org/software/emacs/manual/html_node/emacs/Standard-Faces.html
;; (set-face-background 'modeline "#4466aa")
;; (set-face-background 'modeline-inactive "#555555")
;; (set-face-background 'fringe "#809088")
;; make the frame translucent
(defun djcb-opacity-modify (&optional dec)
"modify the transparency of the emacs frame; if DEC is t,
decrease the transparency, otherwise increase it in 10%-steps"
(let* ((alpha-or-nil (frame-parameter nil 'alpha)) ; nil before setting
(oldalpha (if alpha-or-nil alpha-or-nil 100))
(newalpha (if dec (- oldalpha 10) (+ oldalpha 10))))
(when (and (>= newalpha frame-alpha-lower-limit) (<= newalpha 100))
(modify-frame-parameters nil (list (cons 'alpha newalpha))))))
;; C-8 will increase opacity (== decrease transparency)
;; C-9 will decrease opacity (== increase transparency
;; C-0 will returns the state to normal
(global-set-key (kbd "C-8") '(lambda()(interactive)(djcb-opacity-modify)))
(global-set-key (kbd "C-9") '(lambda()(interactive)(djcb-opacity-modify t)))
(global-set-key (kbd "C-0") '(lambda()(interactive)
(modify-frame-parameters nil `((alpha . 100)))))
;;--------------------------------------------------------------------
;; General Settings
;;--------------------------------------------------------------------
;; Move point to a given line number
(global-set-key (kbd "M-g") 'goto-line)
;; ignore case when reading a buffer name
(setq read-buffer-completion-ignore-case t)
;; where to save the bookmarks
(setq bookmark-default-file "~/.emacs.d/bookmarks.txt")
;; each command that sets a bookmark will also save your bookmarks
(setq bookmark-save-flag 1)
;; visually indicate buffer boundaries and scrolling
(setq indicate-buffer-boundaries t)
;; highlight trailing whitespaces in all modes
;; (setq-default show-trailing-whitespace t)
;; show line numbers
(global-linum-mode 1)
;; show the line number in each mode line
(line-number-mode 1)
;; show the column number in each mode line
(column-number-mode 1)
;; use inactive face for mode-line in non-selected windows
(setq mode-line-in-non-selected-windows t)
;; see what I'm typing *immediately*
(setq echo-keystrokes 0.01)
;; searches and matches should ignore case
(setq-default case-fold-search t)
(setq default-case-fold-search t) ; FIXME obsolete since Emacs 23.2, but
; still needed!?
;; `M-x flush-lines' deletes each line that contains a match for REGEXP
;; visit a file
(global-set-key (kbd "") 'find-file)
;; open my Emacs init file
(defun my-open-dot-emacs ()
"Opening `~/.emacs.d/init.el'."
(interactive)
(find-file "~/.emacs.d/init.el"))
(global-set-key (kbd "") 'my-open-dot-emacs)
;; insert date - global key
(global-set-key (kbd "C-c .") 'insert-date)
(menu-bar-mode t) ;; show the menu...
(mouse-avoidance-mode 'jump) ;; mouse ptr when cursor is too close
(tool-bar-mode -1) ;; turn-off toolbar
(setq search-highlight t ;; highlight when searching...
query-replace-highlight t) ;; ...and replacing
(fset 'yes-or-no-p 'y-or-n-p) ;; enable y/n answers to yes/no
(setq completion-ignore-case t ;; ignore case when completing...
read-file-name-completion-ignore-case t) ;; ...filenames too
(setq initial-scratch-message
";; scratch buffer created -- happy hacking\n")
(setq-default
frame-title-format
'(:eval
(format "%s@%s:%s"
(or (file-remote-p default-directory 'user) user-login-name)
(or (file-remote-p default-directory 'host) system-name)
(file-name-nondirectory (or (buffer-file-name) default-directory)))))
(put 'narrow-to-region 'disabled nil) ;; enable...
(put 'erase-buffer 'disabled nil) ;; ... useful things
(file-name-shadow-mode t) ;; be smart about filenames in mbuf
(setq inhibit-startup-message t ;; don't show ...
inhibit-startup-echo-area-message t) ;; ... startup messages
(setq require-final-newline t) ;; end files with a newline
(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.
'(ispell-dictionary "british")
'(ispell-program-name "~/Aspell/bin/aspell.exe")
'(weblogger-config-alist (quote (("default" "http://www.blogger.com/api" "nirmal7878" "" "6046084315726461172")))))
;;(setq ispell-program-name "~/Aspell/bin/aspell.exe"
;; ispell-extra-args '("--sug-mode=ultra"))
(setq text-mode-hook '(lambda()
(flyspell-mode t) ; spellchek (sic) on the fly
))
;; compare text in current window with text in next window
(global-set-key (kbd "C-c =") 'compare-windows)
;;;;;;;;;;;;;;;; FIXME Conflict with reftex
; Highlighting
; highlight region between point and mark
(transient-mark-mode t)
; highlight during query
(setq query-replace-highlight t)
; highlight incremental search
(setq search-highlight t)
; Don't show matching parens
(show-paren-mode 1)
;Make emacs indent code with 4 spaces instead of tabs for C and C++ modes
(setq verilog-mode-hook
(function (lambda ()
(setq indent-tabs-mode nil)
(setq c-indent-level 4))))
(setq c-mode-hook
(function (lambda ()
(setq indent-tabs-mode nil)
(setq c-indent-level 4))))
(setq c++-mode-hook
(function (lambda ()
(setq indent-tabs-mode nil)
(setq c-indent-level 4))))
;;--------------------------------------------------------------------
;; Dired Mode
;;--------------------------------------------------------------------
;; Using the Emacs Dired utility, you can compress or uncompress a file by
;; pressing `Z'
;;--------------------------------------------------------------------
;; Scrolling Related
;;--------------------------------------------------------------------
(load-file "~/.emacs.d/plugins/smooth-scroll.el")
(require 'smooth-scroll)
(smooth-scroll-mode t)
(setq redisplay-dont-pause t
scroll-margin 1
scroll-step 1
scroll-conservatively 10
scroll-preserve-screen-position 1)
;;--------------------------------------------------------------------
;; Cygwin settings
;;--------------------------------------------------------------------
;; Load cygwin-mount.el package
(load-file "~/.emacs.d/plugins/cygwin-mount.el")
(setenv "PATH" (concat "c:/cygwin/bin;" (getenv "PATH")))
(setq exec-path (cons "c:/cygwin/bin/" exec-path))
(require 'cygwin-mount)
(cygwin-mount-activate)
;; replace DOS shell with Cygwin shell
;; Ref: http://henrykautz.org/Computers/using_the_gnu_development_enviro.htm
(defun my-shell-setup ()
"For bash (cygwin 18) under Emacs 20"
(setq comint-scroll-show-maximum-output 'this)
(setq comint-completion-addsuffix t)
(setq comint-eol-on-send t)
(setq comint-file-name-quote-list '(?\ ?\"))
(setq w32-quote-process-args ?\")
(make-variable-buffer-local 'comint-completion-addsuffix)
(setq shell-dirstack-query "cygpath -w `dirs`")
(add-hook 'comint-output-filter-functions 'perfect-track-directory nil t)
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m nil t)
)
(defun perfect-track-directory (text)
(if (string-match "\\w*Working directory is ||\\([^|]+\\)||" text)
(cd (substring text (match-beginning 1) (match-end 1)))))
(setq shell-mode-hook 'my-shell-setup)
(setq process-coding-system-alist (cons '("bash" . undecided-unix)
process-coding-system-alist))
(setq exec-path (cons "C:/cygwin/bin"
(cons "C:/cygwin/usr/bin" (cons "C:/cygwin/usr/local/bin" exec-path))))
(setenv "PATH" (concat "C:\\cygwin\\bin;C:\\cygwin\\usr\\bin;C:\\cygwin\\usr\\local\\bin"
(getenv "PATH")))
(setq shell-file-name "bash")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
(cd "~")
;; make shell and emacs in sysnc
(global-set-key "\M-\r" 'shell-resync-dirs)
;; Ref: http://www.khngai.com/emacs/cygwin.php
(add-hook 'shell-mode-hook 'n-shell-mode-hook)
(defun n-shell-mode-hook ()
"nirmal, shell mode customizations."
(local-set-key '[up] 'comint-previous-input)
(local-set-key '[down] 'comint-next-input)
(local-set-key '[(shift tab)] 'comint-next-matching-input-from-input)
(setq comint-input-sender 'n-shell-simple-send)
)
(defun n-shell-simple-send (proc command)
"Various commands pre-processing before sending to shell."
(cond
;; Checking for clear command and execute it.
((string-match "^[ \t]*clear[ \t]*$" command)
(comint-send-string proc "\n")
(erase-buffer)
)
;; Checking for man command and execute it.
((string-match "^[ \t]*man[ \t]*" command)
(comint-send-string proc "\n")
(setq command (replace-regexp-in-string "^[ \t]*man[ \t]*" "" command))
(setq command (replace-regexp-in-string "[ \t]+$" "" command))
;;(message (format "command %s command" command))
(funcall 'man command)
)
;; Send other commands to the default handler.
(t (comint-simple-send proc command))
)
)
;;--------------------------------------------------------------------
;; Verilog Mode
;; Ref: http://www.veripool.org/wiki/verilog-mode/Installing
;; Ref: http://www.verilog.com/emacs_install.html
;;--------------------------------------------------------------------
(defun prepend-path ( my-path )
(setq load-path (cons (expand-file-name my-path) load-path)))
(defun append-path ( my-path )
(setq load-path (append load-path (list (expand-file-name my-path)))))
;; Look first in the directory ~/elisp for elisp files (prepend-path "~/elisp")
;; Load verilog mode only when needed
;; (autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
;; Any files that end in .v, .dv or .sv should be in verilog mode
(add-to-list 'auto-mode-alist '("\\.[ds]?v\\'" . verilog-mode))
;; Any files in verilog mode should have their keywords colorized
(add-hook 'verilog-mode-hook '(lambda () (font-lock-mode 1)))
;;--------------------------------------------------------------------
;; Font Settings
;;--------------------------------------------------------------------
(set-default-font
; "-outline-Consolas-normal-r-normal-normal-13-97-96-96-c-*-iso8859-1")
"-outline-Consolas-normal-r-normal-normal-12-90-96-96-c-*-iso8859-1")
(put 'dired-find-alternate-file 'disabled nil)
; Use 10-pt Consolas as default font
;(set-face-attribute 'default nil
; :family "Consolas" :height 100)
;;--------------------------------------------------------------------
;; TRAMP Configuration for remote files
;;--------------------------------------------------------------------
;; (setq tramp-default-method "pscp")
(setq tramp-default-method "plink")
;;(setq tramp-default-method "ssh")
(prefer-coding-system 'utf-8)
(setq tramp-password-end-of-line "\r\n")
(setq tramp-verbose 10)
;; (require 'tramp)
;; (setq tramp-verbose 10)
;; (setq tramp-debug-buffer t)
;; (setq tramp-disable-ange-ftp)
;; (setq tramp-default-method "plink")
;; (setq tramp-ftp-method "scp")
;; (setq tramp-default-user "user-name")
;; (setq tramp-default-host "host-name-or-ip")
;;--------------------------------------------------------------------
;; open files in dired mode
;;--------------------------------------------------------------------
(defun open-externally (filename)
(shell-command (concat "rundll32 shell32,ShellExec_RunDLL " (shell-quote-argument filename))))
(defun is-file-type? (filename type)
(string= type (substring filename (- (length filename) (length type)))))
(defun should-open-externally? (filename)
(let ((file-types '(".pdf" ".doc" ".xls")))
(member t (mapcar #'(lambda (type) (is-file-type? filename type)) file-types))))
(defadvice find-file (around find-file-external-file-advice (filename &optional wildcards))
"Open non-emacs files with an appropriate external program"
(if (should-open-externally? filename)
(open-externally filename)
ad-do-it))
(ad-activate 'find-file)
;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
(load
(expand-file-name "~/.emacs.d/elpa/package.el"))
(package-initialize))
(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.
)
;;--------------------------------------------------------------------
;; post blogs to wordpress.com
;; Ref: http://watchingthewatchers.org/indepth/1388286/post-wordpress-blogs-emacs-org-mode
;; To start wrigint a new post, you can now use M-x org2blog/wp-new-entry
;; Or, post a subtree of an existing org file using: M-x org2blog/wp-post-subtree
;;--------------------------------------------------------------------
;; (add-to-list 'load-path "~/.emacs.d/elpa/xml-rpc-1.6.7")
;; (load-file "~/.emacs.d/elpa/xml-rpc-1.6.7/xml-rpc.el")
;;(setq load-path (cons "c:/emacs/.emacs.d/elpa/xml-rpc-1.6.7/" load-path))
(setq load-path (cons "C:/emacs/.emacs.d/plugins/org2blogs/" load-path))
(require 'org2blog-autoloads)
(setq org2blog/wp-blog-alist
'(("wordpress"
:url "http://shalinirmal.wordpress.com/xmlrpc.php"
:username "shalinirmal"
:default-title "Hello World"
:default-categories ("org2blog" "emacs")
:tags-as-categories nil)
("my-blog"
:url "http://shalinirmal.server.com/xmlrpc.php"
:username "admin")))
