DZone Snippets: indent code

scala extensions for emacs

aemon (Aemon Cannon) — Sun, 20 Jan 2008 02:26:36 GMT

// description of your code here



(require 'scala-mode)

(require 'compile)

(require 'flymake)

(require 'font-lock)



(defvar scala-build-commad nil)

(make-variable-buffer-local 'scala-build-command)



(add-hook 'scala-mode-hook

          (lambda ()

	    (flymake-mode-on)

	    ))



(defun flymake-scala-init ()

  (let* ((text-of-first-line (buffer-substring-no-properties (point-min) (min 20 (point-max)))))

    (progn

      (remove-hook 'after-save-hook 'flymake-after-save-hook t)

      (save-buffer)

      (add-hook 'after-save-hook 'flymake-after-save-hook nil t)

      (if (string-match "^//script" text-of-first-line)

	  (list "fsc" (list "-Xscript" "MainScript" "-d" "c:/tmp" buffer-file-name))

	(or scala-build-command (list "fsc" (list "-d" "c:/tmp" buffer-file-name))))

      )))



(push '(".+\\.scala$" flymake-scala-init) flymake-allowed-file-name-masks)

(push '("^\\(.*\\):\\([0-9]+\\): error: \\(.*\\)$" 1 2 nil 3) flymake-err-line-patterns)



(set (make-local-variable 'indent-line-function) 'scala-indent-line)



(defun scala-indent-line ()

  "Indent current line of Scala code."

  (interactive)

  (indent-line-to (max 0 (scala-calculate-indentation))))



(defun scala-calculate-indentation ()

  "Return the column to which the current line should be indented."

  (save-excursion

    (scala-maybe-skip-leading-close-delim)

    (let ((pos (point)))

      (beginning-of-line)

      (if (not (search-backward-regexp "[^\n\t\r ]" 1 0))

	  0

	(progn

	  (scala-maybe-skip-leading-close-delim)

	  (+ (current-indentation) (* 2 (scala-count-scope-depth (point) pos))))))))



(defun scala-maybe-skip-leading-close-delim ()

  (beginning-of-line)

  (forward-to-indentation 0)

  (if (looking-at "\\s)")

      (forward-char)

    (beginning-of-line)))



(defun scala-face-at-point (pos)

  "Return face descriptor for char at point."

  (plist-get (text-properties-at pos) 'face))



(defun scala-count-scope-depth (rstart rend)

  "Return difference between open and close scope delimeters."

  (save-excursion

    (goto-char rstart)

    (let ((open-count 0)

	  (close-count 0)

	  opoint)

      (while (and (< (point) rend)

		  (progn (setq opoint (point))

			 (re-search-forward "\\s)\\|\\s(" rend t)))

	(if (= opoint (point))

	    (forward-char 1)

	  (cond



            ;; Use font-lock-mode to ignore strings and comments

	   ((scala-face-at-point (- (point) 1))) 



	   ((looking-back "\\s)")

	    (incf close-count))

	   ((looking-back "\\s(")

	    (incf open-count))

	   )))

      (- open-count close-count))))





(provide 'scala-extensions)

PHP function for cleaning up HTML and JavaSctipt code

Jonhoo () — Thu, 27 Apr 2006 13:53:51 GMT

// This is a function for PHP scripts to clean up HTML code before outputting it.
// The function applies correct indentation to HTML/XHTML 1.0 and JavaScript
// And makes the output much more readable.
// You can specify the wanted indentation through the variable $indent





//Function to seperate multiple tags one line

function fix_newlines_for_clean_html($fixthistext)

{

	$fixthistext_array = explode("\n", $fixthistext);

	foreach ($fixthistext_array as $unfixedtextkey => $unfixedtextvalue)

	{

		//Makes sure empty lines are ignores

		if (!preg_match("/^(\s)*$/", $unfixedtextvalue))

		{

			$fixedtextvalue = preg_replace("/>(\s|\t)*\n<", $unfixedtextvalue);

			$fixedtext_array[$unfixedtextkey] = $fixedtextvalue;

		}

	}

	return implode("\n", $fixedtext_array);

}



function clean_html_code($uncleanhtml)

{

	//Set wanted indentation

	$indent = "    ";





	//Uses previous function to seperate tags

	$fixed_uncleanhtml = fix_newlines_for_clean_html($uncleanhtml);

	$uncleanhtml_array = explode("\n", $fixed_uncleanhtml);

	//Sets no indentation

	$indentlevel = 0;

	foreach ($uncleanhtml_array as $uncleanhtml_key => $currentuncleanhtml)

	{

		//Removes all indentation

		$currentuncleanhtml = preg_replace("/\t+/", "", $currentuncleanhtml);

		$currentuncleanhtml = preg_replace("/^\s+/", "", $currentuncleanhtml);

		

		$replaceindent = "";

		

		//Sets the indentation from current indentlevel

		for ($o = 0; $o < $indentlevel; $o++)

		{

			$replaceindent .= $indent;

		}

		

		//If self-closing tag, simply apply indent

		if (preg_match("/<(.+)\/>/", $currentuncleanhtml))

		{ 

			$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;

		}

		//If doctype declaration, simply apply indent

		else if (preg_match("//", $currentuncleanhtml))

		{ 

			$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;

		}

		//If opening AND closing tag on same line, simply apply indent

		else if (preg_match("/<[^\/](.*)>/", $currentuncleanhtml) && preg_match("/<\/(.*)>/", $currentuncleanhtml))

		{ 

			$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;

		}

		//If closing HTML tag or closing JavaScript clams, decrease indentation and then apply the new level

		else if (preg_match("/<\/(.*)>/", $currentuncleanhtml) || preg_match("/^(\s|\t)*\}{1}(\s|\t)*$/", $currentuncleanhtml))

		{

			$indentlevel--;

			$replaceindent = "";

			for ($o = 0; $o < $indentlevel; $o++)

			{

				$replaceindent .= $indent;

			}

			

			$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;

		}

		//If opening HTML tag AND not a stand-alone tag, or opening JavaScript clams, increase indentation and then apply new level

		else if ((preg_match("/<[^\/](.*)>/", $currentuncleanhtml) && !preg_match("/<(link|meta|base|br|img|hr)(.*)>/", $currentuncleanhtml)) || preg_match("/^(\s|\t)*\{{1}(\s|\t)*$/", $currentuncleanhtml))

		{

			$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;

			

			$indentlevel++;

			$replaceindent = "";

			for ($o = 0; $o < $indentlevel; $o++)

			{

				$replaceindent .= $indent;

			}

		}

		else

		//Else, only apply indentation

		{$cleanhtml_array[$uncleanhtml_key] = $replaceindent.$currentuncleanhtml;}

	}

	//Return single string seperated by newline

	return implode("\n", $cleanhtml_array);	

}

?>

indent function

gregg.irwin (Gregg Irwin) — Tue, 10 Jan 2006 05:56:28 GMT



    indent: func [

        "Prepend a leader to all lines in a string."

        string [string!]

        /by

            amount [integer!]

        /with

            leader [string! char!]

        /local

            lines dent

    ] [

        if not by   [amount: 1]

        if not with [leader: " "]

        dent: mk-string amount leader

        lines: parse/all string form newline

        foreach line lines [insert line dent]

        build-dlm-str lines newline

    ]

XMLPrettyPrint: simple xml pretty print in perl

drefty (drefty) — Fri, 02 Dec 2005 06:23:55 GMT



### begin_: file metadata

    ### 

    ### main:

    ###   - name    : XMLPrettyPrint: simple xml pretty print in perl

    ###     desc    : use perl with XML::Twig library to print indented xml

    ###     date    : created="Thu 2005-12-01 11:08:15"

    ###     last    : lastmod="Thu 2005-12-01 11:22:34"

    ###     lang    : perl

    ###     tags    : perl xml indent formatted pretty string cfPrettyPrint

    ### 



### begin_: init perl

    use strict;

    use warnings;

    use XML::Twig;



### begin_: init vars

    my  $sXML  = join "", ();



    ### init params

    my  $params = [qw(none nsgmls nice indented record record_c)];

    my  $sPrettyFormat  = $params->[3] || 'none';



### begin_: process

    my  $twig= new XML::Twig;

    $twig->set_indent(" "x4);

    $twig->parse( $sXML );

    $twig->set_pretty_print( $sPrettyFormat );

    $sXML      = $twig->sprint;



### begin_: output

    print $sXML;



### begin_: sample data

    1;

    __END__


Homer
Simpson

Barney
Rubble

Betty
Rubble