Re: Browsing Github using eww

[James Thomas <jimjoe@gmx.net>]

Björn Bidar wrote:

> James Thomas <jimjoe@gmx.net> writes:
>
>> tpeplt wrote:
>>
>>> James Thomas <jimjoe@gmx.net> writes:
>>>
>>>> I had, by now, accumulated the following hacks:
>>>>
>>>> ...for this, but I've realized that the latter, for e.g. may not be
>>>> necessary: refreshing the page 3-4 times gets a version with the files
>>>> list shown.
>>>>
>>>> So I was wondering if someone out there has something better (simpler,
>>>> cheaper, more reliable) to share. Or know of anyone maybe compiling any
>>>> such workarounds - for others like Gitlab as well?
>>>>
>>>
>>> 1. This is not a direct answer to your question, but you might try looking
>>>    through the Emacs Lisp packages that you can install via the
>>>    ‘list-packages’ command.
>>
>> I see that all of them use either the gh cli or an API token. Thank you
>> for the suggestion, but my current setup seems simpler for now.
>
> Did you try Epkg? It uses Emacsmirror tracks packages from multiple
> sources for packages including those on Github.
>
> It does only require SQLite support either using the builtin support or
> the one provided by EmacsSQL.

I see that, but I think you misunderstand me: I was talking about
github.com itself not being easily accessible for browsing, even for
repos not related to Emacs.

Anyway I'm using my 'cleaned-up' hacks for the time being, which works
well enough (for now):

--8<---------------cut here---------------start------------->8---

;; Add this to the end of eww-url-transformers.
(defun eww-redirect-github (url)
  "Redirect github.com automatically."
  (replace-regexp-in-string "^https://\\(github.com/\\(.*?\\)/blob\\)/.*" "raw.githubusercontent.com/\\2" url t nil 1))

(defun shr-tag-script (dom)
  (condition-case nil
      (when-let
          ((url (eww-current-url))
           (_ (string-prefix-p "https://github.com/" url))
           (_ (string= "application/json" (dom-attr dom 'type)))
           (_ (string= "react-app.embeddedData" (dom-attr dom 'data-target)))
           (start (point)))
        (seq-map (lambda (i)
             (shr-ensure-newline)
             (shr-tag-a
              (dom-node
               'a
               (list
                (cons
                 'href
                 (replace-regexp-in-string
                  "https://github.com/[a-zA-Z0-9-_.]+/[a-zA-Z0-9-_.]+/tree/[a-zA-Z0-9-_.]+/\\(.+\\)"
                  (gethash "path" i) url t t 1)))
               (gethash "name" i))))
           (gethash
            "items"
            (gethash
             "tree"
             (gethash
              "payload"
              (json-parse-string (car (dom-children dom)))))))
        )
    (wrong-type-argument nil)))

--8<---------------cut here---------------end--------------->8---

Adapting the code 'search results' page is one thing left to do...

Regards,
James