1 ;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-

     2 

     3 (defvar my-usr-lisp-dir

     4   (expand-file-name "~/usr/share/emacs/site-lisp")

     5   "Here live additional lisp packages.")

     6 

     7 (unless (boundp 'user-emacs-directory)

     8   (setq user-emacs-directory "~/.emacs.d/"))

     9 

    10 (defvar my-lisp-dir

    11   (expand-file-name (concat user-emacs-directory "my/"))

    12   "Here live my lisp packages.")

    13 (add-to-list 'load-path my-lisp-dir)

    14 

    15 (defvar my-lisp-autoload (concat my-lisp-dir "loaddefs.el")

    16   "Path to autoload for mode files.")

    17 (defvar my-lisp-auth (concat user-emacs-directory ".emacs-auth")

    18   "Path to auth info for Emacs.")

    19 (defvar my-lisp-autogen (concat user-emacs-directory ".emacs-autogen")

    20   "Path to automatically generated config file. It content depend on

    21   installation environment and it was overridden on install.")

    22 (defvar my-lisp-pre (concat user-emacs-directory ".emacs-pre")

    23   "Path to file with pre-settings. Intended for local modifications.")

    24 (defvar my-lisp-dotemacs (concat user-emacs-directory ".emacs-my")

    25   "Path to file with settings. Overwritten on install.")

    26 (defvar my-lisp-post (concat user-emacs-directory ".emacs-post")

    27   "Path to file with post-settings. Intended for local modifications.")

    28 

    29 (setq custom-file (concat user-emacs-directory ".emacs-custom"))

    30 (setq save-place-file (concat user-emacs-directory ".emacs-places"))

    31 (setq bookmark-default-file (concat user-emacs-directory ".emacs.bmk"))

    32 (setq ido-save-directory-list-file (concat user-emacs-directory ".ido.last"))

    33 

    34 (defun my-load.add-my-loadpaths ()

    35   (when (file-directory-p my-usr-lisp-dir)

    36     (add-to-list 'load-path my-usr-lisp-dir)

    37     (let ((default-directory my-usr-lisp-dir))

    38       (normal-top-level-add-subdirs-to-load-path))))

    39