;; Elisp source code header -*- coding: utf-8 -*-
;; Created: [01-27:32 Май 11 2008]
;; Modified: [23-42:05 Май 31 2008]
;; Description:
;; Author: Stanislav M. Ivankin
;; Email: stas@concat.info
;; Tags: elisp, emacs
;; License: 

(defun change-execution-bit(&optional unmake)
  "If file is writable, exists and not executable already,
then add execution bit. If file is executable and unmake is
set to t, then remove execution bit"
  (interactive)
  (let ((buf (buffer-file-name)))
    (unless (or (null buf)
                (not (file-exists-p buf))
                (not (file-writable-p buf)))
      (if (file-executable-p buf)
          (unless (not unmake)
            (message "Execution bit unset")
            (set-file-modes buf (- (file-modes buf) 64)))
        (progn
          (message "Execution bit is set")
          (set-file-modes buf (+ (file-modes buf) 64)))))))

(defun notebook-location (interface)
  "Where am i? ... Who am i? ... Drinking last bottle wasn't a good idea."
  (let ((netconf (shell-command-to-string "/sbin/ifconfig")))
    (let ((interface_pos (string-match (concat interface "\ +") netconf)))
      (if (null interface_pos)
          nil
        (substring netconf
                   (+ (string-match "inet addr:" netconf interface_pos) 10)
                   (- (string-match " Bcast:" netconf interface_pos) 1))))))

(defconst +emacs-build-version+
  (string-to-number 
   (substring emacs-version 
              (string-match "[0-9]+\\.[0-9]+$" emacs-version) 
              (string-match "\\.[0-9]+$" emacs-version)))
  "Emacs minor build version")

(defun insert-date ()
  "Insert date at point"
  (interactive)
  (insert (format-time-string "%H-%M:%S %B %d %Y" (current-time))))

(global-set-key (kbd "s-d") 'insert-date)

(defun find-in-lst (list str)
  "Find string in list"
  (catch 'ret
    (dolist (liststr list)
      (when (string= str liststr)
        (throw 'ret t)))
    (throw 'ret nil)))

(defun make-my-face (face bg fg &optional b i u)
  "Create custom face, face is a font-lock face symbol
bg - background;
fg - foreground;
Optional:
b  - bold
i  - itallic
u  - underline"
  (make-face face)
  (set-face-background face bg)
  (set-face-foreground face fg)
  (set-face-bold-p face b)
  (set-face-italic-p face i)
  (set-face-underline-p face u))

;;(defmacro add-fontlocked-keywords (mode keywords face)
;;  "Make keyword regexp colorfull"
;;  `(font-lock-add-keywords
;;    ,mode '((,(eval keywords) 1 ,face prepend))))

(defmacro add-fontlocked-keywords (mode keywords face)
  `(font-lock-add-keywords
    ,mode '((,(eval (concat (regexp-opt (eval keywords) t) ":"))
             1 ,face prepend))))

;; Found this method on the net
(defun safe-load (library)
  (condition-case err
      (load library)
    (error
     (progn
       (message "Error with %s: %s" library err)
       (sleep-for 3)))))