>^))<'s Diary

_ ソフト作り

; emacs lisp for image file tag
; insert-tag-t3.el
;
(provide 'insert-tag-t3)
(defun insert-tag-t3 ()
(interactive)
  (let (tfile-name))
  (goto-char 0)
  (loop for i from 1 to (count-lines (point-min) (point-max)) do
    (setq tfile-name (buffer-substring (point-at-bol) (point-at-eol) ))
    (if (/= (length tfile-name) 0)
        (progn
          (beginning-of-line)
          (insert "<a href=\"../imgs/2018/")
          (end-of-line)
          (forward-char -4)
          (insert "L")
          (end-of-line)
          (insert "\" rel=\"lightbox\"><img src=\"../imgs/2018/")
          (end-of-line)
          (insert tfile-name)
          (insert "\" border=\"0\"></a>\n<br>")
          (end-of-line)))
    (forward-line 1)))
  

find ~/tmp/ -name '180926-??????.jpg' | sort | sed 's!^.*/!!'

_ まりちゃんから

_ 年貢米届いたー