auto_insert_github_link.el

;;; package --- Something here
;;; Commentary:

;;; Code:
(defun get-line-no ()
  "Returns line no of first argument"
  (interactive)
  (let* (lineno)
    (save-excursion
      (start-of-paragraph-text)
      (setq lineno (line-number-at-pos (point)))
      )
    lineno))

(defun remove-base-folder (path)
  "PATH path of hs file."
  (interactive)
  (let ((base-path "/home/user/fsf/scotty/"))
    (string-remove-prefix base-path path)
    )
  )

(defun scotty-href (buf)
  "BUF to append to href."
  (interactive
   (list (read-buffer
          "Append to buffer:" (other-buffer (current-buffer) t))
         ))
  (let* ((lineno (get-line-no))
         (url "https://github.com/user/scotty/blob/master/%s\#%s")
         (rel-file-path (remove-base-folder (buffer-file-name))))
    (with-current-buffer buf
      (save-excursion
        (message "linenon=%s" lineno)
        (insert (format url rel-file-path lineno))))
    )
  )

(provide 't.el)