         (concat
          (propertize (user-login-name) 'face '(:foreground "CadetBlue1"))
          (propertize "@" 'face '(:foreground "white"))
-         (propertize (my/system-name) 'face '(:foreground "MediumPurple1"))
+         (propertize (system-name) 'face '(:foreground "MediumPurple1"))
          " "
          (propertize (my/pwd) 'face '(:foreground "SpringGreen1"))
          " λ "))

      (delete-frame)
    (eshell/exit)))

(defun my/system-name ()
  "Return system-name without a '.*' suffix."
    (if (cl-search "." system-name)
	(car (split-string system-name "\\."))
      (system-name)))

(defun my/pwd ()
  "Return the last two or less directories of the current working directory."
  (let ((epwd (split-string (eshell/pwd) "/")))
    (if (<= (length epwd) 2)
	(mapconcat 'identity epwd "/")
      (mapconcat 'identity (last epwd 2) "/"))))

(setq eshell-prompt-function


;;; Commentary:

;; A personal Emacs config.

;;; Code:

