From 24fe77bab1dce56a7e35b99831cfa5b46b5fb67c Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Thu, 5 Mar 2020 12:50:11 +0900
Subject: [PATCH] Add sky-color-clock config

---
 emacs.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/emacs.el b/emacs.el
index 2568a2c..b7d6b99 100644
--- a/emacs.el
+++ b/emacs.el
@@ -707,6 +707,23 @@ THEM are function and its args."
 (set-face-background 'header-line
                      my-mode-line-background-default)
 
+;;  sky-color-clock
+;; https://tsuu32.hatenablog.com/entry/2019/11/07/020005
+(declare-function sky-color-clock "sky-color-clock")
+(declare-function sky-color-clock-initialize "sky-color-clock")
+
+(defun sky-color-clock--form ()
+  "Gen string for right aligned form."
+  (let* ((sky-color-clock-str
+          (propertize (sky-color-clock) 'help-echo (format-time-string "Sky color clock\n%F (%a)")))
+         (mode-line-right-margin
+          (propertize " " 'display `(space :align-to (- right-fringe ,(length sky-color-clock-str))))))
+    (concat mode-line-right-margin sky-color-clock-str)))
+(when (require 'sky-color-clock nil t)
+  (sky-color-clock-initialize 35) ; Tokyo, Japan
+  (set-variable 'sky-color-clock-format " %H:%M ")
+  (setq mode-line-end-spaces '(:eval (sky-color-clock--form))))
+
 ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title