24 (defvar my-lisp-dir |
24 (defvar my-lisp-dir |
25 (expand-file-name (concat user-emacs-directory "my/")) |
25 (expand-file-name (concat user-emacs-directory "my/")) |
26 "Here live my lisp packages.") |
26 "Here live my lisp packages.") |
27 (add-to-list 'load-path my-lisp-dir) |
27 (add-to-list 'load-path my-lisp-dir) |
28 |
28 |
29 (setq custom-file (concat my-lisp-dir ".emacs-custom")) |
29 (setq custom-file (concat user-emacs-directory ".emacs-custom")) |
30 (if (file-exists-p custom-file) |
30 (if (file-exists-p custom-file) |
31 (load custom-file)) |
31 (load custom-file)) |
32 |
32 |
33 (defvar my-lisp-autoload (concat my-lisp-dir "loaddefs.el") |
33 (defvar my-lisp-autoload (concat user-emacs-directory "loaddefs.el") |
34 "Path to autoload for mode files.") |
34 "Path to autoload for mode files.") |
35 (defvar my-lisp-auth (concat my-lisp-dir ".emacs-auth") |
35 (defvar my-lisp-auth (concat user-emacs-directory ".emacs-auth") |
36 "Path to auth info for Emacs.") |
36 "Path to auth info for Emacs.") |
37 (defvar my-lisp-autogen (concat my-lisp-dir ".emacs-autogen") |
37 (defvar my-lisp-autogen (concat user-emacs-directory ".emacs-autogen") |
38 "Path to automatically generated config file. It content depend on |
38 "Path to automatically generated config file. It content depend on |
39 installation environment and it was overridden on install.") |
39 installation environment and it was overridden on install.") |
40 (defvar my-lisp-pre (concat my-lisp-dir ".emacs-pre") |
40 (defvar my-lisp-pre (concat user-emacs-directory ".emacs-pre") |
41 "Path to file with pre-settings. Intended for local modifications.") |
41 "Path to file with pre-settings. Intended for local modifications.") |
42 (defvar my-lisp-dotemacs (concat my-lisp-dir ".emacs-my") |
42 (defvar my-lisp-dotemacs (concat user-emacs-directory ".emacs-my") |
43 "Path to file with settings. Overwritten on install.") |
43 "Path to file with settings. Overwritten on install.") |
44 (defvar my-lisp-post (concat my-lisp-dir ".emacs-post") |
44 (defvar my-lisp-post (concat user-emacs-directory ".emacs-post") |
45 "Path to file with post-settings. Intended for local modifications.") |
45 "Path to file with post-settings. Intended for local modifications.") |
46 |
46 |
47 (setq save-place-file (concat my-lisp-dir ".emacs-places")) |
47 (setq save-place-file (concat user-emacs-directory ".emacs-places")) |
|
48 (setq bookmark-default-file (concat user-emacs-directory ".emacs.bmk")) |
48 |
49 |
49 (mapc |
50 (mapc |
50 (lambda (fname) |
51 (lambda (fname) |
51 (if (file-exists-p fname) |
52 (if (file-exists-p fname) |
52 (load fname))) |
53 (load fname))) |