; Basic .emacs: set load path then load true user profile
; Last edited on 2019-09-25 20:36:55 by jstolfi


;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(message "\n=== begin dot-emacs.el ======================================\n")

;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)

;;; Debugging

; (message (prin1-to-string command-line-args))

(setq debug-on-error-from-init-file t) 

; (setq debug-on-error t) ; DEBUG

; (message (concat "\ncommand line = " (prin1-to-string command-line-args) "\n"))
; (message (concat "\nload-path = " (prin1-to-string load-path) "\n"))

;; Add my private Elisp directory to the load path:
(setq load-path 
  (cons
    (expand-file-name "~/elisp")
    load-path
  )
)
(message (concat "\nload-path = " (prin1-to-string load-path) "\n"))

;; Add my private Info directory to the Info search path:
(setq Info-directory-list
  (cons 
    (expand-file-name "~/info")
    (if (and (boundp `Info-directory-list) Info-directory-list)
       Info-directory-list
       Info-default-directory-list
    )
  )
)
(progn (message (concat "\nInfo-directory-list = " (prin1-to-string Info-directory-list) "\n\n")) nil)

(message "\n--- reading profile -----------------------------------------\n")

;; Set a variable to tell whether we are running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

(load "my-emacs-profile")

;; File where we wish to keep the customizable options.
(setq custom-file (expand-file-name "~/elisp/stolfi-custom.el"))

;; Load my custom definitions:
(load custom-file)

;; Older versions of emacs will insert customizations here,
;; instead of in the {custom-file}.  When that happens,
;; move them manually from here to the {custom-file}. 
(custom-set-variables
)

(custom-set-faces
  ;; This call to custom-set-faces may be changed by {emacs}, who knows.
)

(message "=== end of dot-emacs.el ======================================")