Some settings for Gnus caching (same as default values).
;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-
;;
;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
;;
;; This file placed in public domain.
;;
;; For load order see README.
;; ======================================================================
;; Load path.
(defun my-find-subdirs (dir)
(if (file-directory-p dir)
(cons dir (apply 'append (mapcar 'my-find-subdirs (directory-files dir t "^[^.]")) ) )
))
(defun my-add-subdirs-to-load-path (dir)
(mapc
(lambda (d)
(add-to-list 'load-path d t)
(message "Load-path updated with: %s" d)
)
(my-find-subdirs dir)) )
(defvar my-usr-el-dir
(expand-file-name "~/usr/share/emacs/site-lisp")
"Here live additional lisp packages.")
(my-add-subdirs-to-load-path my-usr-el-dir)
(defvar my-lisp-dir
(expand-file-name "~/.emacs.d/my-lisp")
"Here live my lisp packages.")
(my-add-subdirs-to-load-path my-lisp-dir)
(defvar my-autoload (concat my-lisp-dir "/autoload-my.el")
"Path to autoload for mode files.")
(defvar my-auth (expand-file-name "~/.emacs-auth")
"Path to auth info for Emacs.")
(defvar dot-emacs-autogen (expand-file-name "~/.emacs-autogen")
"Path to automatically generated config file. It content depend on
installation environment and it was overridden on install.")
(defvar dot-emacs-pre (expand-file-name "~/.emacs-pre")
"Path to file with pre-loaded custom settings.")
(defvar dot-emacs-post (expand-file-name "~/.emacs-post")
"Path to file with post-loaded custom settings.")
(if (file-exists-p dot-emacs-autogen)
(load dot-emacs-autogen))
(if (file-exists-p my-auth)
(load my-auth))
;; pre-load custom settings
(if (file-exists-p dot-emacs-pre)
(load dot-emacs-pre))
(if (file-exists-p my-autoload)
(load my-autoload))
(setq custom-file "~/.emacs-custom.el")
(if (file-exists-p custom-file)
(load custom-file))
;; load main customization
(load "~/.emacs-my")
;; post-load custom settings
(if (file-exists-p dot-emacs-post)
(load dot-emacs-post))