diff options
| author | Franck Cuny <franck@fcuny.net> | 2023-06-01 19:35:59 -0700 |
|---|---|---|
| committer | Franck Cuny <franck@fcuny.net> | 2023-06-01 19:35:59 -0700 |
| commit | a187752c824b47052d33d3bc12749b5a7d2e8191 (patch) | |
| tree | d939397496dcae8a7634a93b159fab57ee1752ec /emacs/elisp/my-web.el | |
| parent | elfeed: add more feeds (diff) | |
| download | emacs.d-a187752c824b47052d33d3bc12749b5a7d2e8191.tar.gz | |
🤡
Change-Id: I06b104d79deac199f9cd9cdae705e333d23cc852
Diffstat (limited to '')
| -rw-r--r-- | emacs/elisp/my-web.el | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/emacs/elisp/my-web.el b/emacs/elisp/my-web.el deleted file mode 100644 index 4e86790..0000000 --- a/emacs/elisp/my-web.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; my-web.el --- Functions related to web interactions -;;; Commentary: -;;; Code: - -(require 'my-strings) - -(defun my/get-page-title (url) - "Make URL into an 'org-mode' link." - (let ((title)) - (with-current-buffer (url-retrieve-synchronously url) - (goto-char (point-min)) - (re-search-forward "<title>\\([^<]*\\)</title>" nil t 1) - (setq title (match-string 1)) - (goto-char (point-min)) - (re-search-forward "charset=\\([-0-9a-zA-Z]*\\)" nil t 1) - (my/string-replace " " " " - (decode-coding-string title 'utf-8)) - (concat "[[" url "][" title "]]")))) - -(defun my/github-code-search () - "Search code on github for a given language." - (interactive) - (let ((language (completing-read - "Language: " - '("Emacs Lisp" "Python" "Go" "Nix"))) - (code (read-string "Code: "))) - (browse-url - (concat "https://github.com/search?l=" language - "&type=code&q=" code)))) - -(provide 'my-web) -;;; my-web.el ends here |