Emacs command for opening the currently visited file in the bitbucket source browser

open-bitbucket-link

(defun open-bitbucket-link ()
  ""
  (interactive)
  (let* ((rev (magit-rev-parse "HEAD"))
  	 (remote (magit-get "remote" (magit-get-current-remote) "url"))
		 (url (concat
			   "https://"
			   (replace-regexp-in-string "^ssh://git@\\|.git$" "" remote)
			   "/src/"
			   rev
			   "/"
			   (magit-filename buffer-file-name)
			   "#cl-"
			   (number-to-string (line-number-at-pos))
			   )))
	(browse-url url)))