;;set up persistent.el 
;;to remember histories across emacs sessions
 (setq persistent-session-list `(read-expression-history
				   extended-command-history
				   find-tag-history
				   query-replace-history
				   grep-history
				   file-name-history
				   compile-history
				   kill-ring
				   replace-string-history
				   replace-regex-history
				   query-replace-regex-history
				   minibuffer-history
				   shell-command-history
				   buffer-name-history
				   find-file-history
				 ))
 (require `persistent)
 (persistent-session-load-from-alist)
 (setq persistent-session-size 500)

;/****************************************************************
;* Set Size of the Kill-Ring and other histories that we use constantly
;****************************************************************/
(setq kill-ring-max 500)
(setq extended-command-history-max 50)
(setq query-replace-history-max 50)
(setq replace-string-history-max 50)
(setq file-name-history-max 50)
(setq replace-regex-history-max 50)
(setq minibuffer-history-max 1000)
(setq shell-command-history-max 1000)
(setq find-file-history-max 1000)

;;;Turn on time-stamp updating.  Timestamp must be in first 8 lines of file and look like:
;;;                Time-stamp: <>
(add-hook 'write-file-hooks 'time-stamp)

;;;;;;;;;;;;;;;;;;;;;;;;;
(setq time-stamp-format                 ; format of the stamp
      ;;use describe-variable for info
     "[%f] modified by Noah Sussman on %:a, %:y.%02m.%02d at %02H : %02M : %02S on %s"
     time-stamp-active t               ; update timestamps
     time-stamp-warn-inactive t)       ; warn if unable

;;;KILL-BLANK-LINE function
(defun undouble-newline ()
  "Delete doubled newlines from the current buffer."
  (interactive)
  (save-excursion
    (replace-regexp "\n\n" "\n")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Insert a BASE HREF tag just after the head tag of an HTML document
;; Positions point just after the second forwardslash in "HTTP://"

(fset 'insert-base-href
   [?\M-< ?\C-s ?< ?h ?e ?a ?d ?\C-e return return return up ?< ?b ?a ?s ?e ?  ?h ?r ?e ?f ?= ?" ?h ?t ?t ?p ?: ?/ ?/ ?" ?> left left])

;;Search For Table Tags: find the next <table or </table tag
(fset 'find-table-tags
   "\C-s<[/]?table\C-x\C-s")

;**********************************************************
;*
;* Reload the .emacs file with a minimum of effort,
;* first saving histories with Persistent
;*
;**********************************************************
  (defun reload () (interactive)
    "Reload c:/.emacs"
    (persistent-session-save-alist-to-file)
    (if (file-exists-p "~/.emacs")
    (load-file "~/.emacs")))

;**********************************************************
;*
;* Bind frequently opened files and directories to
;* commands.
;*
;**********************************************************

    (defun dot-emacs ()
      (interactive)
      (find-file "~/.emacs"))

    (defun abbrev-defs ()
      (interactive)
      (find-file "~/.abbrev_defs"))

← or ←	leftwards arrow	← or ←
↑ or ↑	upwards arrow	↑ or ↑
→ or →	rightwards arrow	→ or →
↓ or ↓	downwards arrow	↓ or ↓
↔ or ↔	left right arrow	↔ or ↔
↵ or ↵	downwards arrow with corner leftwards = carriage return	↵ or ↵
⇐ or ⇐	leftwards double arrow	⇐ or ⇐
⇑ or ⇑	upwards double arrow	⇑ or ⇑
⇒ or ⇒	rightwards double arrow	⇒ or ⇒
⇓ or ⇓	downwards double arrow	⇓ or ⇓
⇔ or ⇔	left right double arrow	⇔ or ⇔
∀ or ∀	for all

#/usr/local/bin/perl    -w
use strict;
=item THIS NEEDS TO BE ADJUSTED SO IT WORKS WITH JSP
(02:35:50) VERSUSearth: I'll have to adjust my insert_alt script to take JSP into account next time
(02:36:35) mitiege: yep- I'm guessing you are looking for the first closing sign and inserting before that..
(02:36:47) mitiege: a simple fix would be to put the alt first in the img tag...
(02:37:06) VERSUSearth: yeah that's probably a good idea
=cut


$^I=".bk";

#undef $/;           # read in whole file, not just one line

my $text = "" ;    #Insert blank alt attribute

while (<>) {

	#m{<title>(.*?)</title>}ix;
	#my $text = $1;    #Use the document title as the ALT text

	unless (m{<img.*?alt=.*?>}ix){
		s{(<img)(.*?)>}{$1$2 alt="$text">}gsix;
	}
	print "$_";

}