(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.
'(debian-bug-From-address "Deepak Tripathi <*****@gmail.com>")
'(debian-bug-download-directory "~/.emacs.d/debianBugDownload")
'(debian-bug-helper-program (quote reportbug))
'(debian-bug-use-From-address t)
'(debian-changelog-date-utc-flag t)
'(debian-changelog-mailing-address "*****@gmail.com")
'(debian-copyright-mode-hook (quote (turn-on-auto-fill flyspell-mode)))
'(debian-dict-common-debug t)
'(epg-gpg-home-directory nil)
'(erc-server "irc.debian.org")
'(inhibit-startup-screen t)
'(ispell-query-replace-choices t)
'(org-agenda-files (quote ("~/myOrganizer.org")))
'(shell-command-completion-mode t)
'(wl-address-file "/mnt/usb/root/.addresses")
'(wl-alias-file "/mnt/usb/root/.im/Aliases")
'(wl-biff-check-folder-list (quote (".OTHERS" ".Managers" ".Team")))
'(wl-folders-file "/mnt/usb/root/.folders")
'(wl-highlight-body-too t)
'(wl-highlight-folder-by-numbers t)
'(wl-init-file "/mnt/usb/root/.wl")
'(wl-score-files-directory "/mnt/usb/root/.elmo/")
'(wl-summary-highlight t))
;;wanderlust
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
;; Paren mode enabled
(show-paren-mode 1)
;;(require 'color-theme)
;;(setq color-theme-is-global t)
;;(color-theme-euphoria)
;; For setting font
;;(defun fontify-frame(frame)
;; (set-frame-parameter frame 'font "Monospace-9"))
;; Fontify current frame
;;(fontify-frame nil)
;; Fontify any future frames
;;(push 'fontify-frame after-make-frame-functions)
;; Load ERC - IRC
(add-to-list 'load-path "/home/dk/.emacs.d/erc-5.3")
;;(erc :server "irc.debian.org" :port "6667" :nick "deepak" :password "" )
(require 'erc)
;; Load auto install mode
;;(setq auto-install-directory "/home/dk/.emacs.d/auto-install/")
;; Put the emacswiki page defaults
;;(auto-install-update-emacswiki-package-name t)
(ido-mode 1)
;; popup messages to notify, need to install libnotify-bin and libnotify1.
(defun djcb-popup (title msg &optional icon)
"Show a popup if we're on X, or echo it otherwise; TITLE is the title
;;of the message, MSG is the context. Optionally, you can provide an ICON and
;;a sound to be played"
(interactive)
(if (eq window-system 'x)
(shell-command (concat "notify-send "
(if icon (concat "-i " icon) "")
" '" title "' '" msg "'"))
;; text only version
(message (concat title ": " msg))))
;; for testing.
;;(djcb-popup "Test" "The end is near"
;;"/usr/share/icons/gnome/32x32/status/mail-unread.png")
;; == Add for org mode.
;; The following lines are always needed. Choose your own keys.
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(global-font-lock-mode 1)
(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.
'(buffer-menu-buffer ((t (:underline t :weight bold)))))
(autoload 'wl-user-agent-compose "wl-draft" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'wl-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'wl-user-agent
'wl-user-agent-compose
'wl-draft-send
'wl-draft-kill
'mail-send-hook))
(add-hook 'mail-mode-hook 'epa-mail-mode)
|
|