Before this morning, I had two barebones Emacs commands which I used to open my website in a browser. One opened the index page in the build folder, and one opened the index page on the deployed site.
(defun mj/browse-my-website ()
(interactive)
(browse-url "https://www.maxwelljoslyn.com"))
(defun mj/browse-my-website-locally ()
(interactive)
(browse-url site-build-folder))
Since I frequently used the "browse-locally" command to check how the site looks before deploying, but rarely used the command to browse the deployed site, I turned the latter into an option triggered by passing an argument.
More substantially, browsing the index page is still the default, but if I'm viewing a webpage's source in Emacs, the command instead browses that page on the (local or deployed) site. This is usually what I want when checking pages.
Here is the new and improved command.
(defun mj/browse-my-website (arg)
"If visiting a webpage source file,
open corresponding page on the site.
Otherwise, browse the homepage.
Local browsing is the the default.
With prefix ARG, browse deployed site instead."
(interactive "P")
(let ((site-name
(if arg
"https://www.maxwelljoslyn.com/"
site-build-folder))
(visited-file (buffer-file-name))
(path))
(cond
((not visited-file)
(setq path "index"))
((string-match blog-post-regex visited-file)
(setq path (concat "blog/"
(match-string 1 visited-file))))
((string-match article-regex visited-file)
(setq path (match-string 1 visited-file)))
(t
(setq path "index")))
(browse-url (concat site-name path))))