From 0ad1cd14a2f131c521e8055222020ac753ae09da Mon Sep 17 00:00:00 2001
From: Andrea Ciceri <andrea.ciceri@autistici.org>
Date: Tue, 8 Aug 2023 11:00:21 +0200
Subject: [PATCH] Sideline fix

---
 init.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 7c8e7a4..c4499ca 100644
--- a/init.el
+++ b/init.el
@@ -345,7 +345,15 @@
   :hook (flymake-mode . sideline-mode)
   :custom
   (sideline-flymake-display-mode 'line)
-  (sideline-backends-right '(sideline-flymake)))
+  (sideline-backends-right '(sideline-flymake))
+  :config
+  ;; FIXME https://github.com/emacs-sideline/sideline/issues/13
+  (require 'sideline)
+  (defun ccr-sideline--align (&rest lengths)
+    "Align sideline string by LENGTHS from the right of the window."
+    (list (* (window-font-width)
+	    (+ (apply #'+ lengths) (if (display-graphic-p) 1 3)))))
+  (advice-add 'sideline--align :override #'ccr-sideline--align))
 
 (use-package nix-mode
   :hook	((nix-mode . eglot-ensure)