functions: move custom functions to libraries

1 files changed, 21 insertions, 0 deletions

diff --git a/emacs/elisp/my-web.el b/emacs/elisp/my-web.el
new file mode 100644
index 0000000..12e5c97
--- /dev/null
+++ b/emacs/elisp/my-web.el
@@ -0,0 +1,21 @@
+;;; my-web.el --- Functions related to web interactions
+;;; Commentary:
+;;; Code:
+
+(require 'my-strings)
+
+(defun fcuny/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 "&nbsp;" " "
+                         (decode-coding-string title 'utf-8))
+      (concat "[[" url "][" title "]]"))))
+
+(provide 'my-web)
+;;; my-web.el ends here