(defun my-column-ruler (width)
  "Display temp ruler at point."
  (interactive `(,(- (+ (window-hscroll)(window-width)) 1)))
  (momentary-string-display
   (if (< width 10)
       "1   5   10\n|...|....|\n"
     (let* ((iterations (/ width 10))
            (short (- width (* 10 iterations)))
            (result1 "|...|....|")
            (result2 "1   5   10")
            (inc1 "....|....|")
            (inc2 "        %d0")
            (i 1))
       (while  (< i iterations)
         (setq i (1+ i))
         (setq result1 (concat result1 inc1))
         (setq result2 (concat result2 (substring (format inc2 i) -10))))
       (concat result2 "\n" result1 (substring inc1 0 short) "\n")))
   (line-beginning-position)
   nil "[space] Clears ruler"))