My config‎ > ‎

.emacs

(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)
Comments