new functions url-humanify and url-decode-region
authorJoerg Jaspert <joerg@ganneff.de>
Mon, 9 Sep 2013 15:33:25 +0000 (17:33 +0200)
committerJoerg Jaspert <joerg@ganneff.de>
Mon, 9 Sep 2013 15:33:25 +0000 (17:33 +0200)
.emacs.d/elisp/local/ganneff.el
.emacs.d/elisp/local/loaddefs.el

index 702446a..57e94bc 100644 (file)
@@ -227,6 +227,39 @@ This functions should be added to the hooks of major modes for programming."
     (setenv "ZSTARTDIR" (concat (file-truename dired-directory) "/dired")))
   (start-process "open-shell" nil "/usr/bin/x-terminal-emulator"))
 
     (setenv "ZSTARTDIR" (concat (file-truename dired-directory) "/dired")))
   (start-process "open-shell" nil "/usr/bin/x-terminal-emulator"))
 
+; From: http://www.blogbyben.com/2013/09/emacs-function-humanifying-urls.html,
+; licensed CC BY 3.0. Author: Ben Simon
+;;;###autoload
+(defun url-humanify ()
+  "Take the URL at point and make it human readable."
+  (interactive)
+  (let* ((area (bounds-of-thing-at-point 'url))
+         (num-params  (count-matches "&" (car area) (cdr area)))
+         (i 0))
+    (beginning-of-thing 'url)
+    (when (search-forward "?" (cdr area) t nil)
+      (insert "\n  ")
+      (while (< i num-params)
+        (search-forward "&" nil t nil)
+        (insert "\n  ")
+        (save-excursion
+          (previous-line)
+          (beginning-of-line)
+          (let ((start (search-forward "="))
+                (end (search-forward "&")))
+            (url-decode-region start end)))
+        (setq i (+ i 1))))))
+
+; From: http://www.blogbyben.com/2013/09/emacs-function-humanifying-urls.html,
+; licensed CC BY 3.0. Author: Ben Simon
+;;;###autoload
+(defun url-decode-region (start end)
+  "Replace a region with the same contents, only URL decoded."
+  (interactive "r")
+  (let ((text (url-unhex-string (buffer-substring start end))))
+    (delete-region start end)
+    (insert text)))
+
 (provide 'ganneff)
 
 ;;; ganneff.el ends here
 (provide 'ganneff)
 
 ;;; ganneff.el ends here
index 2f0feb4..c296f76 100644 (file)
@@ -1975,8 +1975,7 @@ Configure flymake mode to check the current buffer's css syntax.
 
 ;;;***
 \f
 
 ;;;***
 \f
-;;;### (autoloads nil "ganneff" "ganneff.el" (20976 13184 639366
-;;;;;;  531000))
+;;;### (autoloads nil "ganneff" "ganneff.el" (21037 59737 0 0))
 ;;; Generated autoloads from ganneff.el
 
 (autoload 'my-dired-init "ganneff" "\
 ;;; Generated autoloads from ganneff.el
 
 (autoload 'my-dired-init "ganneff" "\
@@ -2101,6 +2100,21 @@ This functions should be added to the hooks of major modes for programming.
 
 \(fn)" nil nil)
 
 
 \(fn)" nil nil)
 
+(autoload 'jj-open-shell "ganneff" "\
+Open a shell in the directory of the current buffer file
+
+\(fn)" t nil)
+
+(autoload 'url-humanify "ganneff" "\
+Take the URL at point and make it human readable.
+
+\(fn)" t nil)
+
+(autoload 'url-decode-region "ganneff" "\
+Replace a region with the same contents, only URL decoded.
+
+\(fn START END)" t nil)
+
 ;;;***
 \f
 ;;;### (autoloads nil "ganneff-gnus" "ganneff-gnus.el" (20899 48839
 ;;;***
 \f
 ;;;### (autoloads nil "ganneff-gnus" "ganneff-gnus.el" (20899 48839