         sml/show-remote nil
         sml/name-width '(20 . 40)
         sml/shorten-modes t
-        sml/mode-width 30)
+        sml/mode-width 'right)
+  (add-hook 'after-init-hook #'ar/enable-graphical-time)
   (sml/setup))
+
+(defun ar/enable-graphical-time ()
+  "Enable graphical time in modeline."
+  (interactive)
+  (setq display-time-24hr-format t)
+  (setq display-time-day-and-date t)
+  (display-time) ; Align the time to right
+  (setq global-mode-string (remove 'display-time-string global-mode-string))
+  (setq mode-line-end-spaces
+        (list (propertize " " 'display '(space :align-to (- right 17)))
+              'display-time-string)))
 
 ;; Set font face height. Value is 1/10pt.
 (set-face-attribute 'default nil :height 180)

                            `(org-level-2 ((t (,@headline ,@sans-font :height 1.5   :box ,padding))))
                            `(org-level-1 ((t (,@headline ,@sans-font :height 1.75  :box ,padding))))
                            `(org-document-title ((t (,@headline ,@sans-font :height 1.5 :underline nil)))))))

;; https://github.com/howardabrams/dot-files/blob/HEAD/emacs-client.org
(defun ar/change-theme (theme org-block-style)

  "Setup up the fringe (graphical display only)."
  (custom-set-faces '(fringe ((t (:background "#1B1D1E"))))))

;; https://github.com/howardabrams/dot-files/blob/HEAD/emacs-client.org
(deftheme ar/org-theme "Sub-theme to beautify org mode")

