Changeset 7840 in spip-zone


Ignore:
Timestamp:
Dec 9, 2006, 2:40:03 PM (14 years ago)
Author:
pierre.andrews@…
Message:

encore quelque modif pour inserer correctement les nouveaux inclure et plus besoinde creer le php

File:
1 edited

Legend:

Unmodified
Added
Removed
  • _contribs_/_assistants_/spip-mode/spip-mode.el

    r7830 r7840  
    845845
    846846(defvar spip-fichier-php-hist nil
    847   "Historique des fichiers php cherchés.")
     847  "Historique des fond html cherchés.")
    848848
    849849(defun spip-insert-inclure ()
    850   "insère la balise <INCLURE()>"
     850  "insère la balise <INCLURE{fond=...}>"
    851851  (interactive)
    852852  (let
    853853          (
    854            (fichier (spip-completing-read "Fichier" (spip-list-php-file ".*" nil t) nil 'spip-fichier-php-hist))
     854           (fichier (spip-completing-read "Fond" (spip-list-php-file ".*" nil t) nil 'spip-fichier-php-hist))
    855855           (criteres (spip-ask-criteres))
    856856          )
    857         (insert (concat "<INCLURE('" fichier "')" criteres ">"))
     857        (insert (concat "<INCLURE{fond=" (car (split-string fichier "\\.")) "}" criteres ">"))
    858858        )
    859859)
     860
    860861
    861862;; nouveau squelette
     
    868869        (if (not (file-exists-p (spip-construit-chemin fond)))
    869870                (progn
    870                   ;; fichier php
    871                           (find-file (spip-construit-chemin fond))
    872                           (erase-buffer)
    873                           (insert "<?php \n\n")
    874                           (insert " $fond = \"")
    875                           (insert fond)
    876                           (insert "\";\n")
    877                           (insert " $delais = ")
    878                           (insert delais)
    879                           (insert ";\n\n")
    880                           (insert (concat "include('inc-public." spip-extension "');\n"))
    881                           (insert "\n?>\n")
    882                           (save-buffer)
    883                           (kill-buffer nil)
     871                ;;   ;; fichier php
     872;;                        (find-file (spip-construit-chemin fond))
     873;;                        (erase-buffer)
     874;;                        (insert "<?php \n\n")
     875;;                        (insert " $fond = \"")
     876;;                        (insert fond)
     877;;                        (insert "\";\n")
     878;;                        (insert " $delais = ")
     879;;                        (insert delais)
     880;;                        (insert ";\n\n")
     881;;                        (insert (concat "include('inc-public." spip-extension "');\n"))
     882;;                        (insert "\n?>\n")
     883;;                        (save-buffer)
     884;;                        (kill-buffer nil)
    884885                          ;; fichier html
    885886                          (find-file (spip-construit-chemin fond (concat "/" spip-repertoire-squelettes-local) "html"))
     887                          (erase-buffer)
     888                          (insert (concat "#CACHE{" delais "}"))
     889                          (insert "\n")
    886890                          (run-hooks spip-nouveau-squelette-hook)
    887891                          (save-buffer)
Note: See TracChangeset for help on using the changeset viewer.