Warning: the line must end in a line return char else the result is wrong."
(interactive)
(let (swd url)
(setq swd (thing-at-point 'line))
(setq swd (substring swd 0 -1))
(setq url (concat "http://www.google.com/search?q=" swd))
(setq url (replace-regexp-in-string " " "+" url ) )
(move-beginning-of-line 1)
(kill-line 1)
(insert "
\n")
))
(defun emacs-ref-linkify ()
"Make the current line into a elisp info node link.
If there's a text selection, use that.
For example, if the cursor is on the line:
\(emacs)Dired
Then it'll become:
(info \"(emacs)Dired\")
Warning: the line must end in a line return char else the result is wrong."
(interactive)
(let (bdr p1 p2 swd )
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(delete-region p1 p2)
(insert "(info \"" swd "\")")
))
(defun elisp-ref-linkify ()
"Make the current line into a elisp reference link.
If there's a text selection, use that.
For example, if the cursor is any one of the line:
\(elisp)The Mark
file:///Users/xah/web/elisp/The-Mark.html#The-Mark
file:///Users/xah/web/elisp/The-Mark.html
file:///Users/xah/web/elisp/The-Mark.html
~/xah/web/elisp/The-Mark.html
Then it'll become:
(info \"(elisp)The Mark\")"
(interactive)
(let (bdr p1 p2 swd linkText url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (region-end))
;; return the boundary of line without including the eol
(let ((bdr2 (bounds-of-thing-at-point 'line)))
(if
(string-match "\n" (buffer-substring-no-properties (car bdr2) (cdr bdr2)))
(cons (car bdr2) (1- (cdr bdr2)))
(cons (car bdr2) (cdr bdr2))
)
)
))
(setq p1 (car bdr))
(setq p2 (cdr bdr))
(setq swd (buffer-substring-no-properties p1 p2))
;; convert to info's node syntax first
(when (string-match "^file" swd)
(setq swd (replace-regexp-in-string "^file:///Users/xah/web/elisp/" "" swd))
(setq swd (replace-regexp-in-string "\\..+" "" swd))
(setq swd (replace-regexp-in-string "-" " " swd))
(setq swd (replace-regexp-in-string "_002d" "-" swd))
(setq swd (concat "(elisp)" swd))
)
;; convert info node string to relative file path
(setq linkText (concat "(info \"" swd "\")"))
(setq swd (replace-regexp-in-string "(elisp)" "" swd))
(setq swd (replace-regexp-in-string "-" "_002d" swd))
(setq swd (replace-regexp-in-string " " "-" swd))
(setq url (concat "../elisp/" swd ".html") )
(if (file-exists-p url)
(progn
(delete-region p1 p2)
(insert "" linkText "")
)
(error "Generated local url “%s” does not point to a file" url)
)
))
(defun elisp-ref-linkify-old ()
"Make the current line into a elisp reference link.
If there's a text selection, use that.
For example, if the cursor is on the line:
Control-Structures
Then it'll become:
Control-Structures"
(interactive)
(let (bdr p1 p2 swd url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(setq url (concat "../elisp/" swd ".html") )
(delete-region p1 p2)
(insert "" swd "")
))
(defun php-ref-linkify ()
"Make the current line into a PHP reference link.
If there's a text selection, use that.
For example, if the cursor is on the line:
echo
Then it'll become
echo↗"
(interactive)
(let (bdr p1 p2 swd url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(setq url (concat "http://us.php.net/" swd) )
(delete-region p1 p2)
(insert "" swd "↗")
))
(defun povray-ref-linkify ()
"Make the current line into a POV-Ray reference link.
If there's a text selection, use that.
For example, if the cursor is on the line:
http://www.povray.org/documentation/view/3.6.1/331/
Then it'll become:
↗
The cursor is moved to before “↗”."
(interactive)
(let (bdr p1 p2 url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (region-end))
(bounds-of-thing-at-point 'url)))
(setq p1 (car bdr))
(setq p2 (cdr bdr))
(setq url (buffer-substring-no-properties p1 p2))
(delete-region p1 p2)
(insert "↗")
(search-backward "↗")
))
(defun java-ref-linkify ()
"Make the current line into a Java reference link.
If there's a text selection, use that.
For example, if the cursor is on the line:
http://java.sun.com/j2se/1.5.0/docs/api/java/lang/String.html
Then it'll become
Java Doc: String↗
The input string can be the url to the official Java API, Java Language Spec, the Java Tutorial."
(interactive)
(let (bdr p1 p2 url kword)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (region-end))
(bounds-of-thing-at-point 'url)))
(setq p1 (car bdr))
(setq p2 (cdr bdr))
(setq url (buffer-substring-no-properties p1 p2))
(setq kword (file-name-sans-extension (file-name-nondirectory url)))
(delete-region p1 p2)
(cond
((string-match "j2se/1.5" url)
(insert "Java Doc: " kword "↗"))
((string-match "tutorial" url)
(insert "Java Tutorial: " kword "↗"))
((string-match "jls" url)
(insert "Java Lang Spec: " kword "↗"))
)
))
(defun perldoc-ref-linkify ()
"Make the current line into a link to Perl's doc site.
For example, if the cursor is on the line:
perlop
Then it'll become
perldoc perlop"
(interactive)
(let (bdr p1 p2 swd url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(setq url (concat "http://perldoc.perl.org/" swd ".html") )
(setq url (replace-regexp-in-string "::" "/" url ))
(setq url (replace-regexp-in-string "-f " "functions/" url ))
(delete-region p1 p2)
(insert "" "perldoc " swd "↗")
))
(defun python-ref-linkify ()
"Make the current line into a link to Python's doc site.
For example, if the cursor is on the line:
http://docs.python.org/lib/typesseq.html
Then it'll become
Python Doc↗.
"
(interactive)
(let (bdr p1 p2 swd url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(setq url swd)
(delete-region p1 p2)
(insert "" "Python Doc↗")
))
(defun mathematica-ref-linkify ()
"Make the current line into a link to Mathematica ref site.
If there's a text selection, use that.
For example, if the cursor is on the line:
Table
Then it'll become:
Mathematica Ref: Table↗"
(interactive)
(let (bdr p1 p2 swd url)
(setq bdr
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (1+ (region-end)))
(bounds-of-thing-at-point 'line)))
(setq p1 (car bdr))
(setq p2 (1- (cdr bdr)))
(setq swd (buffer-substring-no-properties p1 p2))
(setq url (concat "http://reference.wolfram.com/mathematica/ref/" swd ".html") )
(delete-region p1 p2)
(insert "" "Mathematica: " swd "↗")
))
;----
; some custom html markup and functions for working with html
(defun nks-linkify ()
"Make the current word into into a link to Wolfram Science site.
For Example, if you cursor is on the word “p123”, then
it becomes
“p123↗”"
(interactive)
(let (word1 pagenum str1)
(setq word1
(if (and transient-mark-mode mark-active)
(buffer-substring-no-properties (region-beginning) (region-end))
(thing-at-point 'word)
))
(setq pagenum (substring word1 1) )
(setq str1
(concat "p" pagenum "↗"))
(if (and transient-mark-mode mark-active)
(progn (delete-region (region-beginning) (region-end))
(insert str1))
(progn (backward-word) (kill-word 1)
(insert str1))
)
))
(defun listify-block ()
"Make the current block of lines into a HTML list.
Any URL in the line will be turned into links.
Example:
If your cursor is in the following block of text:
Castratos are castrated males made for singing: http://en.wikipedia.org/wiki/Castrato , record of the last castrato: http://www.archive.org/details/AlessandroMoreschi
human vocal range: http://en.wikipedia.org/wiki/Vocal_range
It will become:
")
)
)
;;;;-----------------
;more specific to Xah Lee
(defun youtube-linkify ()
"Make the current line into a embeded youtube HTML object.
The line can be a youtube ID such as “bFSS826ETlk” or url such as
“http://www.youtube.com/watch?v=bFSS826ETlk”.
Here's a example result:
The line must be bracketed by line return chars."
(interactive)
(let (p1 p2 id)
(save-excursion
(search-backward "\n") (forward-char)
(setq p1 (point))
(search-forward "\n") (backward-char)
(setq p2 (point))
)
(setq id (buffer-substring-no-properties p1 p2))
(setq id (replace-regexp-in-string "&.+" "" id))
(setq id (replace-regexp-in-string "^http://www\\.youtube\\.com/watch\\?v=" "" id))
(delete-region p1 p2)
(insert
(concat ""
)) ))
(defun amazon-linkify ()
"Make the current word into a Amazon link.
For example, if the cursor is on the word “12345”, then it'll become:
amazon.com↗
The current word should be a amazon item ID."
(interactive)
(let ((amazonid (thing-at-point 'word)))
(skip-chars-backward "^ \t\n,.;?:!<>\'‘’“”")
(delete-char (save-excursion (skip-chars-forward "^ \t\n.,;?:!<>\'‘’“”")))
(insert "amazon")))
;; (defun local-linkify ()
;; "Make the path under cursor into a local link.\n
;; For Example, if you cursor is on the text “../emacs/emacs.html”,
;; then it'll become:
;; “Xah's Emacs Tutorial”.
;; The link text is pulled from the file's
tag.
;; If a region is active, use the region as file path."
;; (interactive)
;; (let (myPath bounds tempBuff x1 x2 titleText resultStr)
;; (setq myPath
;; (if (and transient-mark-mode mark-active)
;; (buffer-substring-no-properties (region-beginning) (region-end))
;; (thing-at-point 'filename)
;; ))
;; (setq bounds (bounds-of-thing-at-point 'filename))
;; (setq tempBuff (generate-new-buffer-name " temp"))
;; (when (file-exists-p myPath)
;; (progn
;; (save-current-buffer
;; (message myPath)
;; (set-buffer (get-buffer-create tempBuff))
;; (goto-char (point-min))
;; (insert-file-contents myPath nil nil nil t)
;; (setq x1 (search-forward ""))
;; (search-forward "")
;; (setq x2 (search-backward "<"))
;; (setq titleText (buffer-substring-no-properties x1 x2))
;; (kill-buffer tempBuff))
;; (setq resultStr (concat "" titleText ""))
;; (save-excursion
;; (delete-region (car bounds) (cdr bounds))
;; (insert resultStr))))
;; ))
(defun xah-file-linkify ()
"Make the path under cursor into a HTML link.
For Example, if you cursor is on the text “../emacs/emacs.html”,
then it'll become:
“Xah's Emacs Tutorial”.
The link text is pulled from the file's
tag.
The file path can also be a full path, such as:
/Users/xah/web/UnixResource_dir/writ/lisp_be_popular.html
If there is text selection, use it as file path."
(interactive)
(let (myPath bounds x1 x2 titleText resultStr)
(setq myPath
(if (and transient-mark-mode mark-active)
(buffer-substring-no-properties (region-beginning) (region-end))
(thing-at-point 'filename)
))
(setq bounds (bounds-of-thing-at-point 'filename))
(setq myPath (replace-regexp-in-string "^file://" "" myPath)) ; fix url scheme path
(setq myPath (replace-regexp-in-string "^http://xahlee.org/" "/Users/xah/web/" myPath)) ; fix url scheme path
(setq myPath (file-relative-name myPath))
(when (file-exists-p myPath)
(setq titleText (get-html-file-title myPath) )
(setq resultStr (concat "" titleText ""))
(delete-region (car bounds) (cdr bounds))
(insert resultStr)
)))
(defun blog-url-linkify ()
"Make the current url into link.
For example, if the cursor is on the line:
http://xah-lee.blogspot.com/2007/12/graphics-programing-pains.html
Then it'll become
\n")
))
(defun xah-curve-linkify ()
"Make the current word or text selection into a html link.
This function works on Xah Lee's website only.
Example:
“parabola” becomes
“parabola”.
The directory to search includes:
“SpecialPlaneCurves_dir” and “surface”.
"
(interactive)
(let (bds cursorWord wordPath i testPaths foundq rpath linkWord)
;; grab the string of text selection or current word
(setq bds
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (region-end))
(bounds-of-thing-at-point 'symbol)
))
(setq cursorWord (buffer-substring-no-properties (car bds) (cdr bds)) )
;; word for constructing possible dir
(setq wordPath (replace-regexp-in-string " " "_" (downcase cursorWord)))
;; the paths to test
(setq testPaths
(list
(concat "/Users/xah/web/SpecialPlaneCurves_dir/" (upcase-initials wordPath) "_dir/" wordPath ".html")
(concat "/Users/xah/web/surface/" wordPath "/" wordPath ".html")
))
;; loop thru the paths until a file is found
(setq foundq nil)
(setq i 0)
(while (and (not foundq) (< i (length testPaths)))
(setq rpath (nth i testPaths))
(message rpath)
(setq foundq (file-exists-p rpath))
(setq i (1+ i))
)
(if foundq
(progn
(setq linkWord (replace-regexp-in-string "_" " " cursorWord))
(delete-region (car bds) (cdr bds))
(insert (concat "" linkWord "")))
(progn (beep) (message "No file found"))
)))
![\"emacs](\"emacs_logo.png\"){kind=logo}
”.
If there's a text selection, use it as file name."
(interactive)
(let
(imgPath bds imgDimen width height altText myResult)
(setq bds
(if (and transient-mark-mode mark-active)
(cons (region-beginning) (region-end))
(bounds-of-thing-at-point 'filename)
))
(setq imgPath
(buffer-substring-no-properties (car bds) (cdr bds))
)
(if (file-exists-p imgPath)
(progn
(setq altText (file-name-nondirectory imgPath))
(setq altText (replace-regexp-in-string "\\.[A-Za-z]\\{3,4\\}$" "" altText t t))
(setq altText (replace-regexp-in-string "_" " " altText t t))
(setq imgDimen (get-image-dimensions imgPath))
(setq width (number-to-string (car imgDimen)))
(setq height (number-to-string (car (last imgDimen))))
(setq myResult (concat "![❐](\"i/goddesses.jpg\"){kind=link}