remove debug message and rename process
[emacs.git] / .emacs.d / elisp / local / ganneff.el
index ea1e307..702446a 100644 (file)
 ;;; checks if the category of the entry is in an exclude list and
 ;;; returns either t or nil to skip or include the entry.
 
-;;;###autoload
-(defun org-mycal-export-limit ()
-  "Limit the export to items that have a date, time and a range. Also exclude certain categories."
-  (setq org-tst-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ... [0-9]\\{2\\}:[0-9]\\{2\\}[^\r\n>]*?\\)>")
-  (setq org-tstr-regexp (concat org-tst-regexp "--?-?" org-tst-regexp))
-  (save-excursion
-    ; get categories
-    (setq mycategory (org-get-category))
-    ; get start and end of tree
-    (org-back-to-heading t)
-    (setq mystart    (point))
-    (org-end-of-subtree)
-    (setq myend      (point))
-    (goto-char mystart)
-    ; search for timerange
-    (setq myresult (re-search-forward org-tstr-regexp myend t))
-    ; search for categories to exclude
-    (setq mycatp (member mycategory org-export-exclude-category))
-    ; return t if ok, nil when not ok
-    (if (and myresult (not mycatp)) t nil)))
-
-;;;###autoload
-(defun mycal-export-limit ()
-  "Limit the export to items that don't match an unwanted category "
-  (setq mycategory (org-get-category))
-  (not (member mycategory org-export-exclude-category)))
-
-;;; activate filter and call export function
-;;;###autoload
-(defun org-mycal-export () 
-  (interactive)
-  (let ((org-icalendar-verify-function 'mycal-export-limit))
-    (org-export-icalendar-combine-agenda-files)))
-
 ;;;###autoload
 (defun revert-all-buffers ()
   "Refreshes all open buffers from their respective files."
@@ -240,6 +206,27 @@ Doesn't mess with special buffers."
 ;(setq org-icalendar-verify-function 'org-mycal-export-limit)
 ;(org-export-icalendar-combine-agenda-files)
 
+
+;;;###autoload
+(defun font-lock-comment-annotations ()
+  "Highlight a bunch of well known comment annotations.
+
+This functions should be added to the hooks of major modes for programming."
+  (font-lock-add-keywords
+   nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\|OPTIMIZE\\|HACK\\|REFACTOR\\):"
+          1 font-lock-warning-face t))))
+
+;;;###autoload
+(defun jj-open-shell ()
+  "Open a shell in the directory of the current buffer file"
+
+  (interactive)
+  (when buffer-file-name
+    (setenv "ZSTARTDIR" (file-truename buffer-file-name)))
+  (when dired-directory
+    (setenv "ZSTARTDIR" (concat (file-truename dired-directory) "/dired")))
+  (start-process "open-shell" nil "/usr/bin/x-terminal-emulator"))
+
 (provide 'ganneff)
 
 ;;; ganneff.el ends here