Droit des sociétés/Sommaire
Emacs/bind-key
bind-key est une extension Emacs permettant la gestion des raccourcis clavier. 
Présentation.
L'utilisateur peut définir ses propres raccourcis clavier que l'on retrouve généralement dans le fichier ".emacs". Leur gestion peut s'avérer délicate lorsque leur nombre est important, sans compter que lesdits raccourcis peuvent être écrasés par des nouvelles versions de l'éditeur GNU Emacs.
Développée et maintenue par John Wiegley, la dernière verion de l'extension "bind-key" est disponible sur la plateforme GNU ELPA.
"bind-key" est un logiciel libre distribué selon les termes de la licence publique générale GNU.
Installation.
Pour installer ce paquet, exécuter dans Emacs :
codice_1
Code source (version initiale).
(defgroup bind-key nil
 "A simple way to manage personal keybindings"
 :group 'emacs)
(defcustom bind-key-segregation-regexp
 "\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)"
 "Regular expression used to divide key sets in the output from
\\[describe-personal-keybindings]."
 :type 'regexp
 :group 'bind-key)
 "override-global-mode keymap")
(define-minor-mode override-global-mode
 "A minor mode so that keymap settings override other modes."
 t "" override-global-map)
(add-hook 'after-init-hook
 (function
 (lambda ()
 (override-global-mode 1))))
 (let ((namevar (make-symbol "name"))
 (keyvar (make-symbol "key"))
 (bindingvar (make-symbol "binding"))
 (entryvar (make-symbol "entry")))
 `(let* ((,namevar ,(eval key-name))
 (,keyvar (read-kbd-macro ,namevar))
 (,bindingvar (lookup-key (or ,keymap global-map)
 ,keyvar)))
 (let ((,entryvar (assoc (cons ,namevar (quote ,keymap))
 personal-keybindings)))
 (if ,entryvar
 (setq personal-keybindings
 (delq ,entryvar personal-keybindings))))
 (setq personal-keybindings
 (cons (list (cons ,namevar (quote ,keymap))
 ,command
 (unless (numberp ,bindingvar) ,bindingvar))
 personal-keybindings))
 (define-key (or ,keymap global-map) ,keyvar ,command))))
 `(bind-key ,key-name nil ,keymap))
 `(progn
 (bind-key ,key-name ,command)
 (define-key override-global-map ,(read-kbd-macro key-name) ,command)))
 (cond
 ((listp elem)
 (cond
 ((eq 'lambda (car elem))
 "#<lambda>")
 ((eq 'closure (car elem))
 "#<closure>")
 ((eq 'keymap (car elem))
 "#<keymap>")
 (t
 elem)))
 ((keymapp elem)
 "#<keymap>")
 ((symbolp elem)
 elem)
 (t
 "#<byte-compiled lambda>")))
 (let* ((regex bind-key-segregation-regexp)
 (lgroup (and (string-match regex (caar l))
 (match-string 0 (caar l))))
 (rgroup (and (string-match regex (caar r))
 (match-string 0 (caar r))))
 (lkeymap (cdar l))
 (rkeymap (cdar r)))
 (cond
 ((and (null lkeymap) rkeymap)
 (cons t t))
 ((and lkeymap (null rkeymap))
 (cons nil t))
 ((and lkeymap rkeymap
 (not (string= (symbol-name lkeymap) (symbol-name rkeymap))))
 (cons (string< (symbol-name lkeymap) (symbol-name rkeymap)) t))
 ((and (null lgroup) rgroup)
 (cons t t))
 ((and lgroup (null rgroup))
 (cons nil t))
 ((and lgroup rgroup)
 (if (string= lgroup rgroup)
 (cons (string< (caar l) (caar r)) nil)
 (cons (string< lgroup rgroup) t)))
 (t
 (cons (string< (caar l) (caar r)) nil)))))
 (interactive)
 (with-current-buffer (get-buffer-create "*Personal Keybindings*")
 (delete-region (point-min) (point-max))
 (insert "Key name Command Comments
")
 (let (last-binding)
 (dolist (binding
 (setq personal-keybindings
 (sort personal-keybindings
 #'(lambda (l r)
 (car (compare-keybindings l r))))))
 (if (not (eq (cdar last-binding) (cdar binding)))
 (insert ?\n (format "\n%s\n%s\n\n"
 (cdar binding)
 (make-string 79 ?-)))
 (if (and last-binding
 (cdr (compare-keybindings last-binding binding)))
 (insert ?\n)))
 (let* ((key-name (caar binding))
 (at-present (lookup-key (or (symbol-value (cdar binding))
 (current-global-map))
 (read-kbd-macro key-name)))
 (command (nth 1 binding))
 (was-command (nth 2 binding))
 (command-desc (get-binding-description command))
 (was-command-desc (and was-command
 (get-binding-description was-command)))
 (at-present-desc (get-binding-description at-present))
 (insert
 (format
 "%-18s%-40s%s\n"
 key-name command-desc
 (if (string= command-desc at-present-desc)
 (if (or (null was-command)
 (string= command-desc was-command-desc))
 (format "(%s)" was-command-desc))
 (format "[now: %s]" at-present)))))
 (setq last-binding binding)))
 (goto-char (point-min))
 (display-buffer (current-buffer))))

Histoire de France/Tableau chronologique

Programmation Emacs
Programmation Emacs/Introduction
Programmation Emacs/L'organisation de l'écran

Programmation Emacs/Org-mode
Programmation Emacs/Touches
GNU
GNU est un système d'exploitation libre lancé en 1984 par Richard Stallman et maintenu par le projet GNU. Son nom est un acronyme récursif qui signifie en anglais « GNU's Not UNIX » (littéralement, « "GNU n'est pas UNIX" »).

GNU/Cppi
Cppi est un utilitaire de maintenance des directives destinées au préprocesseur.
Utilisation.
 cppi [FILE]
ou
 cppi -c [OPTION] [FILE]...
Options.
 -a, --ansi lors du contrôle, échoue si les directives #else or #endif sont suivies de texte
 -c, --check permet simplement de tester l'état de sortie
 -l, --list-files-only ne génère aucun diagnostic d'indentation ;
 affiche en sortie standard uniquement les noms des fichiers
 qui ne sont pas proprement indentés.
 -m, --max-string-length=LONGUEUR
 échoue s'il y a une chaîne de caractères entre guillemets plus grosse
 que LONGUEUR; il n'y a pas de limite
 si LONGUEUR vaut 0 (valeur par défaut)
 --help affiche cette aide en anglais
 --version affiche la version
État de sortie.
Les "états de sortie" possibles sont :
 0 toutes les directives sont proprement indentées
 1 quelques directives destinées au préprocesseur ne sont pas proprement indentées ou
 si du texte suit les directives #else/#endif (option activée avec "--check --ansi"), ou
 s'il est trouvé une chaîne de caractères entre guillemets plus longue que le maximum spécifié
 2 mauvaise adéquation entre #if et #endif, « fin de fichier » ("EOF") en commentaire ou chaîne de caractères
 3 erreur de fichier (p. ex. ouverture/lecture/écriture)

L'éco-construction en Nord-Pas-de-Calais/Partie4

C'est par ici : http://www.apetitspas.net/bloc.php?id=0&id_bloc=1777&lang=1

Photographie/Personnalités/C/Francesco Ciappei

Francesco Ciappei était un photographe italien (1857 - 1887).

Livre de cuisine/Roulade Sévigné
La Roulade Sévigné est un plat gastronomique de Vitré, Haute-Bretagne.
Temps total : 30 à 60 min
Temps de préparation : 15 minutes
Temps de cuisson : 20 minutes
Difficulté : facile
Ingrédients.
Une fermière de 1200g
200g de s de paris
50g de cerneaux de 
100g d'échalotes
100g de blanc de volaille
1 œuf
300g de 
250ml de fond blanc de volaille
5ml de persil haché
20ml d'huile
50g de beurre
250ml de 
sel, poivre
Prévoir également de la ficelle de cuisine.

Photographie/Fabricants/Snap Sights Optics

Photographie/Fabricants/Rony
Photographie/Fabricants/Nikon/Nikon 1 Nikkor VR 30-110 mm f/3,8-5,6