jordonbiondo

using System.Collections.Generic;
using System.Linq;
using System.Text;
using LumiSoft.Net.IMAP.Client;
using LumiSoft.Net.IMAP;
using LumiSoft.Net;
using LumiSoft.Net.Mail;
using LumiSoft.Net.MIME;
using D.Net.EmailInterfaces;
using System.Threading;

jordonbiondo

#include <stdio.h>
#include <string.h>
#define aSize 1001

// 8 bit data type
typedef char byte;

int thousandDigitFib();

int addTo(byte* , byte*, int, int);

jordonbiondo

(defun yell/message(message &optional foreground background time)
  "Yell MESSAGE at the user. 
Deletes all windows and displays MESSAGE in large text in the entire frame. After TIME
seconds, the window configuration is returned to its previous state.
If FOREGROUND is non-nil it specifies the foreground color of the message, default is red
If BACKGROUND is non-nil it specifies the background color of the message."
  (lexical-let
      ((old-config (current-window-configuration))
       (old-bg (face-background 'default))
       (foreground (if foreground foreground "red"))

jordonbiondo

;;---------------------------------------------------------------------------
;; Tracker Demo
;;---------------------------------------------------------------------------  
(defun add4(x)
  "Returns X + 4."
  (tkr/todo "make sure this adds the right value") ;put a todo call in the function...
  (+ x 3))

(add4 3) ;then, whenever add4 is called...

jordonbiondo

;;---------------------------------------------------------------------------
;; Temp-Lattes:
;; abbrev-mode replacement
;;---------------------------------------------------------------------------

;;---------------------------------------------------------------------------
;; Recipe Examples
;;---------------------------------------------------------------------------
(tl/define-recipe "lm" emacs-lisp-mode
  (backward-delete-char (length tl/key))

jordonbiondo

(defvar foo 2)

(defun return-foo()
  foo)

(defun just-call-return-foo()
  (return-foo)) 

(defadvice return-foo (around change-it activate) 
  "This let block redefines foo in the expansion of ad-do-it"

jordonbiondo

(defun prince (object &optional printcharfun)
  (princ (format "HERE YE HERE YE! %s" object) printcharfun))

jordonbiondo

(defadvice ask-user-about-supersession-threat (around turn-it-off activate)
  t)

(defadvice verify-visited-file-modtime (after turn-it-off activate)
  (setq ad-return-value t))

jordonbiondo

;; Author: Jordon Biondo
;; Created: Tue Jul 23 15:35:07 2013 (-0400)
;; Version: .1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 3, or
;; (at your option) any later version.
;; 

jordonbiondo

;; given the text "abc foo bar baz" I want abc to use the keyword face and following words to use the type face
;; currently abc will be colored correctly but only baz would use the type face

(font-lock-add-keywords 'mode 
  		'(("\\(abc\\)\\( +[a-z]+\\)+"
			   (1 'font-lock-keyword-face)
			   (2 'font-lock-type-face))))