(message "&tip-top:998:")

(message "&tip-top:999:")

(progn
  ;;(add-hook 'after-init-hook 'after-init-hook--dmp-set-face-font 70)
  (defun dmp-set-face-font ()
    (set-face-font 'default "Monospace Serif 20")
    )
  (dmp-set-face-font)
  )

(message "&tip-top:1000:")

(if (not (fboundp 'string=))
    (defun string= (str0 str1)
      (dmp-assert (stringp str0))
      (dmp-assert (stringp str1))
      (equal str0 str1)))

(message "&tip-top:1001")

(progn      
  (message "&tip-top:1002:")
  (defalias 'ANDY 'identity)
  (defalias 'dtp 'describe-text-properties)
  (defalias 'rtf 'rich-text-format)
  (defalias 'tde 'toggle-read-only)
  (setq transient-mark-mode nil)
  (setq kill-whole-line t)
  (progn
    (global-set-key "\C-x\C-s" 'save-some-buffers)
    (global-set-key "\C-xs"    'save-some-buffers))
  (progn
    (defun dmp-find-file (file)
      (interactive "Fdmp-find-file> ")
      ;; Code omitted for brevity
      (find-file file))
    (progn
      (global-set-key "\C-x\C-d" 'dmp-find-file)
      (global-set-key "\C-x\C-f" 'dmp-find-file)
      (global-set-key "\C-xd"    'dmp-find-file)
      (global-set-key "\C-xf"    'dmp-find-file)
      (global-set-key "\C-f"     'dmp-find-file)
      (global-set-key "\C-d"     'dmp-find-file)
      (global-set-key "\C-b"     'bury-buffer)
      )
    (progn
      (global-set-key "\C-b"     'bury-buffer)
      (global-set-key [f12]      'eval-last-sexp)
      (global-set-key "\C-e"     'call-last-kbd-macro)
      (global-set-key "\C-x\C-e" 'eval-last-sexp)
      )

    (progn
      (global-set-key [(control left)] 'backward-sexp)
      (global-set-key [(shift   left)] 'backward-sexp)
      (global-set-key [(meta    left)] 'backward-sexp)
      (global-set-key [(control right)] 'forward-sexp)
      (global-set-key [(shift   right)] 'forward-sexp)
      (global-set-key [(meta    right)] 'forward-sexp)
      )
    (message "&tip-top:1003:")
    )
  (progn
    (global-set-key [f7]       'read-only-mode)
    (global-set-key [f8]       'undo)
    (global-set-key [(f12)]    'eval-last-sexp)
    (message "&tip-top:1004:")
    )
  (progn
    (global-set-key "\C-x\C-g" 'goto-line)
    (global-set-key "\C-xg"    'goto-line)
    (global-set-key "\C-o"     'split-line)
    (global-set-key "\M-/"     'dabbrev-expand)
    (global-set-key [(control tab)] 'other-window)
    (message "hello dmp-emacs--yes-init-file.el!")
    )
  )

(message "&tip-top:1005:")

(progn
  (setq *dmp-prefs--davins-keybindings-online-p* t)
  (setq *dmp-emacs-dialect--gnu-emacs-p* t)
  )

(defmacro dmp-quote (&rest ignored)
  t)

(message "&tip-top:1006:")

(condition-case err
    (progn
      (progn
        (make-face 'default)
        (make-face-unbold 'default)
        (set-face-background 'default "#f0f0f0"))
      (progn
        (make-face 'font-lock-comment-face)
        (set-face-background 'font-lock-comment-face "#f0f0f0")
        (set-face-foreground 'font-lock-comment-face "#080")
        (make-face-italic    'font-lock-comment-face)
        )
      (progn
        (make-face 'font-lock-function-name-face)
        (set-face-background 'font-lock-function-name-face "#ffff00")
        (set-face-foreground 'font-lock-function-name-face "#000")
        (make-face-bold 'font-lock-function-name-face))
      (progn
        (make-face 'font-lock-string-face)
        (set-face-background 'font-lock-string-face "#ddddff")
        (set-face-foreground 'font-lock-string-face "#000")
        )
      (progn
        (make-face 'font-lock-keyword-face)
        (set-face-background 'font-lock-keyword-face "#f0f0f0")
        (set-face-foreground 'font-lock-keyword-face "#000")
        (make-face-bold 'font-lock-keyword-face)
        )
      (progn
        (make-face 'dired-directory)
        (set-face-background 'dired-directory "#f0f0f0")
        (set-face-foreground 'dired-directory "#0000ff")
        )
      )
  (error
   (message "dmp-error:font-is-missing err=%s" (prin1-to-string err))
   ))

(message "&tip-top:1007:")

(progn
  (setq *dmp-root-user-p* (if (string-match "root" (getenv "HOME")) t))
  ;;(setq *dmp-os-type--mswindows-p* (if (memq 'mswindows os-type)
  (defvar bg-colour-lighter "#ffffff")
  (defvar auto-save-timeout 5)
  (defvar backup-inhibited t)
  (defvar undo-limit (* 1000 1000))
  (setq-default tab-width 8)
  (setq delete-old-versions t)
  (setq-default cursor-type 'box)
  (setq yes-or-no-p-history '("yes" "no"))
  (defvar ***dmp-sound-on-p*** t)
  (setq ***dmp-quit-quick*** nil)
  (setq auto-save-default  *dmp-emacs-dialect--gnu-emacs-p*)
  (setq load-prefer-newer  t) ;; prefer newer of *.elc *.el
  ;;(setq ls-lisp-dirs-first t) ;; NOTE: like MS Windows Explorer
  (setq dired-use-ls-dired t)
  (setq kill-whole-line    t)
  (setq case-fold-search   t)
  (setq save-abbrevs       'silently) ;; supressing annoying messages
  (setq track-eol t)
  (setq-default kill-whole-line t)
  (setq-default file-name-history (cons "~/" file-name-history))
  ;;(setq eol-mnemonic-unix "(unix)")
  (setq eol-mnemonic-dos "(dos)")
  (setq compile-command "make ")
  (setq message-log-max 10000)
  (setq delete-by-moving-to-trash t)
  (setq enable-local-eval t)
  (setq-default c-basic-offset 3)
  (setq-default
   visible-bell                     nil
   save-abbrevs                     'silently
   message-log-max                   (* 10 1000)
   transient-mark-mode               nil
   indent-tabs-mode                  nil ;; never put tabs in dmp- code
   parse-sexp-ignore-comments        t
   comment-column                    40
   completion-ignore-case            t ;; good for win95 mode.
   case-fold-search                  nil
   c-basic-offset                    3
   truncate-lines                    nil
   fill-column                       70)
  (setq
   gc-cons-threshold                 2000000
   same-window-buffer-names          nil
   compilation-window-height         15
   line-number-mode                  t
   search-highlight                  t
   compilation-window-height         10
   compilation-ask-about-save        nil
  next-line-add-newlines            nil ;; doesn't add newlines at end
   kill-whole-line                   t   ;; makes c-k more convenient.
   next-screen-context-lines         1   ;; overlap with pgup/pgdn
   compile-command                   "make "
   default-major-mode                'fundamental-mode
   three-step-help                   t
   apropos-do-all                    t ;; more extensive online help
   enable-recursive-minibuffers      nil ;; advanced customisation feature...
   column-number-mode                t
   eval-expression-debug-on-error    nil
   debug-on-error                    nil
   dmp-splash-screen--activated      t
   c2java-version                    "1.21"))

(message "&tip-top:1008:")

(defun dmp-f1 ()
  (interactive)
  (info)
  (delete-other-windows))

(message "&tip-top:1009:")

(when *dmp-prefs--davins-keybindings-online-p*
  (global-set-key [f1] 'dmp-f1)
  )

(message "&tip-top:1010:")

(defun dmp-meta-f1 ()
  (interactive)
  (kill-ring-save (point-min) (point-max))
  (transient-mark-mode 1)
  (dmp-message "copied buffer to clipboard"))

(message "&tip-top:1011:")

(when *dmp-prefs--davins-keybindings-online-p*
  (global-set-key [(meta f1)]    'dmp-meta-f1)
  (global-set-key [(shift f1)]   'dmp-meta-f1)
  (global-set-key [(control f1)] 'dmp-meta-f1)
  )
  
(message "&tip-top:1012:")

(defun e ()
  (interactive)
  (condition-case err
      (progn
	;;(message "Executing M-x e")
	(eval-buffer)
	(emacs-lisp-mode)
	(if (fboundp 'dmp-safe--play-sound--doit)
	    (dmp-safe--play-sound--doit "music-sample--Miles-Davis--Doo-Bop--Mystery.wav")))
    (error
     (if (fboundp 'dmp-safe--play-sound--doit)
	 (dmp-safe--play-sound--doit "emacs-sample--John-Coltrane--Countdown2.wav")))))

(setq *dmp-message-indent* 0)
;;(dmp-message "abc")
;;(dmp-message "begun: foo")

(defvar ***dmp-messages-welcome-goodbye-on-p*** t)

(defvar ***dmp-messages-on-p*** t)

(message "&tip-top:1013:")

(defun dmp-message (format-string &rest args)
  (progn
    (progn
      (if (< *dmp-message-indent* 0)
          (setq *dmp-indent* 0))
      (setq *dmp-message-str* (make-string *dmp-message-indent* ? ))
      (if (or ***dmp-messages-welcome-goodbye-on-p***
              ***dmp-messages-on-p***)
          (setq return-value (apply 'message (concat *dmp-message-str*
                                                     ;;"DEBUG: "
                                                     format-string)
                                    args))
        (setq return-value nil))
      )
    return-value
        )
  ) ;; NOTE: Eval the line above for an immediate effect!

(message "&tip-top:1014:")

(defun dmp-message-purge ()
  (setq *dmp-message-indent* 0)
  (setq *dmp-message-str* ""))

(dmp-message-purge)

(message "&tip-top:1015:")

(defun dmp-message-begun ()
  (progn
    (cl-incf *dmp-message-indent*)
    (setq *dmp-message-str* (make-string *dmp-message-indent* ? )))
  )

(dmp-message "&safe-require:1016:")
;;(dmp-message-ended)

(defun dmp-message-ended ()
  (progn
    (cl-decf *dmp-message-indent*)
    (if (< *dmp-message-indent* 0)
        (setq *dmp-message-indent* 0))
    (setq *dmp-message-str* (make-string *dmp-message-indent* ?\ )))
  )

(message "&tip-top:1017:")

(defmacro dmp-assert (test)
  ;;(dmp-assert nil)
  `(condition-case porkpie
       (progn
	 (cl-assert , test)
	 t)
     (error
      (error "*** Boloney Assertion failed test=%s porkpie=%s" , test porkpie))
     ))

(message "&tip-top:1018:")

(defalias 'assert 'dmp-assert)

(defalias 'nilp 'not)

(message "&tip-top:1019:")

(defun dmp-safe--require (feature-505 &optional ANDY)
  (let ((***dmp-messages-welcome-goodbye-on-p*** nil)
        (***dmp-messages-on-p*** t))
    (dmp-message "&tip-top:1020:")
    (dmp-message-begun)
    ;;(dmp-assert (or (eq t ANDY) (nilp ANDY) (stringp ANDY) (numberp ANDY) (symbolp ANDY)))
    (unwind-protect
        (condition-case err
            (progn
              ;;(dmp-message "&tip-top:14020:")
              (if (not (symbolp feature-505))
                  (dmp-message "dmp-error:symbol-must-eval-to-be-a-symbol feature-505=(%s)" feature-505))
              (if feature-505
                  (require feature-505))
              t)
          (error
           ;;(setq debug-on-error t)
           (dmp-message (concat "*** dmp-error:dmp-safe--require failed "
                                "feature-505=%s err=%s ANDY=%s\n")
                        feature-505
                        err
                        ANDY)
           ;;(debug "Amber Dempsey")
           ))
      (dmp-message (format "dmp-safe--require feature-505=%s ANDY=%s" feature-505 ANDY))
      (dmp-message-ended)
      ))
  )
;; NOTE: Eval the line above for to define a defun dmp-safe--require

(progn
  (setq default-directory "~/")
  (setq debug-on-error t)
  (message "&tip-top:1018:")
  )

(defun dmp-print-head-of-list (list)
  ;;(debug)
  (message "*** First 6 elements-of-list: (%s %s %s %s %s %s)"
	   (nth 0 list)
	   (nth 1 list)
	   (nth 2 list)
	   (nth 3 list)
	   (nth 4 list)
	   (nth 5 list)
           ))

(cl-block nil
  (let ((default-directory "~/"))
    (message "&tip-top:1021:")
    ;;(cl-return)
    (setq load-path nil)
    (setq load-path (directory-files-recursively            "~/Downloads/emacs-29.1/lisp/" "" t))
    (setq load-path (cl-delete-if-not 'file-directory-p     load-path))
    ;;(setq load-path (cons "~/Documents/emacs-29.1/lisp"     load-path))
    ;;(setq load-path (mapcar 'expand-file-name             load-path))
    (setq load-path (mapcar 'directory-file-name            load-path))
    (setq load-path (cl-delete-duplicates load-path :test 'string=))
    (message "&tip-top:1022:")
    )
  )

(message "&tip-top:1023:")

(dmp-quote
 (require 'cl-seq)
 ;;(require 'help-fns)
 ;;(require 'cus-load)
 (require 'faces)
 (require 'window)
 (require 'format)
 (require 'tooltip)
 (require 'mouse)
 (require 'isearch)
 )

(progn
  (setq load-path (cons "~/" load-path))
  (require 'includer))

(message "&tip-top:1024:")
(message "Ambilical-Cord: load-path=%s" load-path)
(message "&tip-top:1025:")