Welcome To My Emacs Page
Some Nice Things I Have in My .emacs
Are you using Toolbars, Menus, Scrollbars?
Save some space!
;; disable startup message
(setq inhibit-startup-message t)
;; Turn off that toolbar :
(tool-bar-mode 0)
;; Turn off that menu :
(menu-bar-mode nil)
; Turn off scrollbars and toolbars
(scroll-bar-mode nil)
Got weird characters in shell?
;;; Fix junk characters in shell mode
(add-hook 'shell-mode-hook
'ansi-color-for-comint-mode-on)
Ever got copy-paste problems between Emacs and other editors/web
browser etc.?
(global-set-key [(shift delete)] 'clipboard-kill-region)
(global-set-key [(shift insert)] 'clipboard-yank)
(global-set-key [(control insert)] 'clipboard-kill-ring-save)
Edit your dissertation every day and make website for school? Instead
C-x C-f blah blah, just do M-x go-diss
(defun go-diss ()
(interactive)
(find-file "~/desk/papers/disst/dissertation/diss_pr.tex"))
(defun go-bib ()
(interactive)
(find-file "~/desk/papers/disst/dissertation/diss_pr.bib"))
(defun go-web ()
(interactive)
(ssh "-X adam@apache.utdallas.edu"))
(defun go-www ()
(interactive)
(find-file "/scpx:adam@apache.utdallas.edu:/var/www/"))
Customize colors
;;to set the cursor color
(set-cursor-color "red")
;;to set foreground color to white
(set-foreground-color "green1")
;;to set background color to black
(set-background-color "Black")
Open with specific X size
(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.
'(auto-save-default nil)
'(backup-directory-alist (quote (("." . "/home/adam/backup"))))
'(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 1) (width . 180) (height . 59))))
'(display-time-mode t)
'(safe-local-variable-values (quote ((outline-minor-mode))))
'(transient-mark-mode t))
Get some custom fonts/colors
(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.
'(ado-comment-face ((t (:inherit font-lock-comment-face :foreground "yellow" :underline t))))
'(ado-string-face ((t (:inherit font-lock-string-face :foreground "yellow"))))
'(font-lock-comment-face ((((class color) (background dark))
(:foreground "blue" :slant italic :family "-*-lucida-medium-r-*-*-14-*-*-*-*-*-*-*"))))
'(fringe ((((class color) (background dark)) (:background "grey10" :width ultra-condensed))))
'(scroll-bar ((t (:background "Dark slate gray")))))
Why not use Emacs to do web-browsing -use w3m. If you want to check-
your Gmail in Emacs need to accept cookies
(setq w3m-use-cookies t)
(setq w3m-cookie-accept-bad-cookies t)
Lest Interesting Stuff...
(defun vst-needs-auctex-acroread ()
(interactive)
(setq TeX-output-view-style
(cons '("^pdf$" "." "acroread -openInNewWindow %o")
TeX-output-view-style)))
;;Turn on syntax highlighting / font-lock
(cond ((fboundp 'global-font-lock-mode)
(global-font-lock-mode t) ;; Font-lock mode
(setq font-lock-maximum-decoration t))) ;; Maximum colors
(defun adam ()
"Run Stata command"
(interactive)
(shell-command "/usr/bin/stata")
)
;; disable startup message
(setq inhibit-startup-message t)
;; show a menu only when running within X (save real estate when
;; in console)
;(menu-bar-mode (if window-system 1 -1))
(menu-bar-mode nil)
; Turn off scrollbars and toolbars
(scroll-bar-mode nil)
;(tool-bar-mode nil)
(defun insert-time ()
(interactive)
(insert (format-time-string "%Y-%m-%d-%R")))
Did You Think That Emacs Is The Most Powerful Editor?
Did you ever try to replace a string in 170 different files? Hmmm. For that you need
the Stream Editor SED