From 3f15e127d2807d6dd49d085eb766987b3cdca767 Mon Sep 17 00:00:00 2001
From: We're Yet <58348703+butwerenotthereyet@users.noreply.github.com>
Date: Fri, 3 Jan 2020 23:34:45 -0800
Subject: Add command to go home.

When w3m is launched, if no other options are specified, it attempts to
read HTTP_HOME and WWW_HOME from the environment and upon finding a
value for one of these load the url specified.  Once launched, though,
w3m provides no convenience for navigating to the home page.

Here, that ability is added.  A new command GOTO_HOME is defined with a
default key binding of C-_.
---
 main.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'main.c')

diff --git a/main.c b/main.c
index 7bb058e..1cf8131 100644
--- a/main.c
+++ b/main.c
@@ -4256,6 +4256,23 @@ DEFUN(goURL, GOTO, "Open specified document in a new buffer")
     goURL0("Goto URL: ", FALSE);
 }
 
+DEFUN(goHome, GOTO_HOME, "Open home page in a new buffer")
+{
+    char *url;
+    if ((url = getenv("HTTP_HOME")) != NULL ||
+        (url = getenv("WWW_HOME")) != NULL) {
+        ParsedURL p_url;
+        Buffer *cur_buf = Currentbuf;
+        SKIP_BLANKS(url);
+        url = url_encode(url, NULL, 0);
+        parseURL2(url, &p_url, NULL);
+        pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
+        cmd_loadURL(url, NULL, NULL, NULL);
+        if (Currentbuf != cur_buf)	/* success */
+        pushHashHist(URLHist, parsedURL2Str(&Currentbuf->currentURL)->ptr);
+    }
+}
+
 DEFUN(gorURL, GOTO_RELATIVE, "Go to relative address")
 {
     goURL0("Goto relative URL: ", TRUE);
-- 
cgit v1.2.3