Update

Author: bzg

day-3.org

@@ -0,0 +1,52 @@
+* sns mode
+
+- font-lock-defaults ([[info:elisp#Font%20Lock%20Basics][voir manuel]])
+- auto-fill
+- auto-indent (indent-line-function)
+- ad-advice
+- defgroup
+- defcustom
+- defface
+
+* hooks
+
+- add-hook (add-hook 'lisp-interaction-mode-hook 'auto-fill-mode)
+- remove-hook
+- run-hook
+- delay-mode-hooks
+- before-save-hook
+- before-init-hook
+
+(defcustom org-mode-hook nil
+  "Mode hook for Org-mode, run after the mode was turned on."
+  :group 'org
+  :type 'hook)
+
+;;;###autoload
+(defun org-clock-persistence-insinuate ()
+  "Set up hooks for clock persistence."
+  (require 'org-clock)
+  (add-hook 'org-mode-hook 'org-clock-load)
+  (add-hook 'kill-emacs-hook 'org-clock-save))
+
+* org-mode
+
+- export
+- table
+- babel
+
+* code
+
+- flatten
+- read-from-minibuffer
+- read-from-string
+- read-char
+
+* divers
+
+- comment init files
+- magit
+- flycheck
+- completion
+
+* hooks

sns.el

@@ -0,0 +1,85 @@
+;;; sns.el --- sns major mode
+
+;;; Commentary:
+
+;;; Code:
+
+(add-to-list 'auto-mode-alist '("\\.ini\\'" . sns-mode))
+
+(defvar sns-mode-map
+  (let ((map (make-sparse-keymap)))
+    ;; (define-key map [foo] 'sample-do-foo)
+    map)
+  "Keymap for `sample-mode'.")
+
+;; (defvar sample-mode-syntax-table
+;;   (let ((st (make-syntax-table)))
+;;     (modify-syntax-entry ?# "<" st)
+;;     (modify-syntax-entry ?\n ">" st)
+;;     st)
+;;   "Syntax table for `sample-mode'.")
+
+(defvar sns-font-lock-keywords
+  '(("function \\(\\sw+\\)" (1 font-lock-function-name-face)))
+  "Keyword highlighting specification for `sample-mode'.")
+
+;; (defvar sample-imenu-generic-expression
+;;   ...)
+
+(defvar sns-outline-regexp
+  "\\[http:.+\\.global\\]"
+  ""
+  )
+
+(defvar sns-outline-regexp-bol
+  "^\\[http:.+\\.global\\]"
+  ""
+  )
+
+;;;###autoload
+(define-derived-mode sns-mode conf-mode "sns"
+  "A major mode for editing Sample files."
+  ;; :syntax-table sample-mode-syntax-table
+  ;; (setq-local comment-start "# ")
+  ;; (setq-local comment-start-skip "#+\\s-*")
+  ;; (setq-local font-lock-defaults
+  ;; 	      '(conf-font-lock-keywords))
+  ;; (setq-local indent-line-function 'sample-indent-line)
+  ;; (setq-local imenu-generic-expression
+  ;; 	      sample-imenu-generic-expression)
+  ;; (setq-local outline-regexp sample-outline-regexp)
+  ;; (setq-local comment-start "#")
+  ;; (setq-local comment-start-skip "#.*$")
+  (setq-local paragraph-start "\\|[ 	]\\|\\[*$")
+  (setq-local paragraph-separate "[ 	]*$")
+  (setq-local outline-regexp sns-outline-regexp)
+  (setq-local org-outline-regexp sns-outline-regexp)
+  (setq-local org-outline-regexp-bol sns-outline-regexp-bol)
+  )
+
+(font-lock-add-keywords
+ 'sns-mode
+ '(("^\\[\\([^:]+\\):.+\\.global\\]" (1 font-lock-warning-face))
+   ("^\\[.+:.+\\.global\\]" (0 font-lock-function-name-face))))
+
+;;; Indentation
+
+;; (defun sample-indent-line ()
+;;   "Indent current line of Sample code."
+;;   (interactive)
+;;   (let ((savep (> (current-column) (current-indentation)))
+;; 	(indent (condition-case nil (max (sample-calculate-indentation) 0)
+;; 		  (error 0))))
+;;     (if savep
+;; 	(save-excursion (indent-line-to indent))
+;;       (indent-line-to indent))))
+
+;; (defun sample-calculate-indentation ()
+;;   "Return the column to which the current line should be indented."
+;;   ...)
+
+(provide 'sns)
+
+;; (featurep 'org)
+
+;;; sample.el ends here

test.el

@@ -0,0 +1,71 @@
+;; (if (re-search-forward "defun \\(\\(?:\\w\\|\\s_\\)+\\)" nil t)
+
+;; (if (re-search-forward "defun \\([:alpha:]+\\)" nil t)
+;;     (match-string-no-properties 1))
+
+;; (if (re-search-forward "[[:graph:]]+ \\([[:graph:]]+\\)" nil t)
+;;     (match-string-no-properties 1))
+
+;; (if (re-search-forward "[[:graph:]]+ \\<\\([[:graph:]]+\\)\\>" nil t)
+;;     (match-string-no-properties 1))
+
+;; (if (re-search-forward "[[:graph:]]+ \\_<\\([[:graph:]]+\\)\\_>" nil t)
+;;     (match-string-no-properties 1))
+
+(defun my-new-function (name) ;; lskdjflksjdf
+  "Display my name."
+  (interactive "sNom: ")
+  (message "Votre nom est %s" name))
+
+(setq mytest (make-list 5 "abc"))
+(length mytest)
+
+(defun my-find-buffer (buf)
+  "Find a buffer."
+  (interactive "BWhich buffer? ")
+  (switch-to-buffer-other-window buf))
+
+(defun my-numerical-prefix-test (arg)
+  ""
+  (interactive "p")
+  (message "La valeur de l'argument est %s" arg))
+
+;; (my-numerical-prefix-test)
+
+(defun test ()
+  (let ((a "arnold")
+	(b "beatrice")
+	c d e)
+    (message "%s" c)))
+
+(defun my-raw-prefix-test (arg)
+  ""
+  (interactive "P")
+  (cond ((equal arg '(4))
+	 (message "C-u n'a été tapé qu'une fois"))
+	((equal arg '(16))
+	 (message "C-u n'a été tapé que deux fois"))
+	(t (message "La valeur de l'argument est %s" arg))))
+
+(defun my-narrowing (start end)
+  ""
+  (interactive "r")
+  (narrow-to-region start end)
+  (deactivate-mark))
+
+(when (re-search-forward
+       "test" ;; le pattern
+       ;; la position limite (d'habitude nil)
+       (save-excursion
+	 (save-match-data
+;;	   (re-search-forward "raw" nil t)))
+	   (re-search-forward "\\'" nil t)))
+       ;;
+       t)
+
+;; goto-char 
+;; C-u C-M-x : edebug-defun
+;; (my-raw-prefix-test)
+
+
+

test.in

@@ -0,0 +1,31 @@
+[http:client.global]
+revision=1
+flags=a,b,c,d,e
+
+[http:client.1]
+severity=1
+classification=0
+action_fw=block,block,block,block
+level_fw=minor,minor,minor,minor
+1="pcre1"
+2="pcre2"
+
+[http:client.2]
+severity=1
+classification=0
+action_fw=block,block,block,block
+level_fw=minor,minor,minor,minor
+1="pcre1"
+2="pcre2"
+
+[http:server.global]
+revision=1
+flags=a,b,c,d,e
+
+[http:server.1]
+severity=1
+classification=0
+action_fw=block,block,block,block
+level_fw=minor,minor,minor,minor
+1="pcre1"
+2="pcre2"