• [^] # Re: BlueFish web dev studio (0.8)

    Posté par . En réponse à la dépêche BlueFish web dev studio (0.8). Évalué à 8.

    À propos, je me sers de Bluefish pour convertir les accents en entités (é -> é), parce que je n'ai pas trouvé comment le faire dans emacs, quelqu'un aurait ça sous le coude ?

    Plusieurs solutions possibles dont les deux suivantes
    • Utiliser hm--html-mode en prenant soin de mettre la ligne suivante dans ton .emacs (ou init.el ou whatever....) : (setq hm--html-bind-latin-1-char-entities t) . Ensuite, les entités sont insérées automatiquement quand tu tapes un caractères.
    • Faire un fonction dans ton .emacs (et enventuellement celle pour aller dans l'autre sens) que tu peux ensuite appeler avec M-x.

      • (defun htmlify ()
      "This function htmlizes characters in a buffer"
      (interactive)
      (beginning-of-buffer nil)
      (replace-string "é" "é" nil)
      (beginning-of-buffer nil)
      (replace-string "è" "è" nil)
      (beginning-of-buffer nil)
      (replace-string "à" "à" nil)
      (beginning-of-buffer nil)
      (replace-string "ù" "ù" nil)
      (beginning-of-buffer nil)
      (replace-string "â" "â" nil)
      (beginning-of-buffer nil)
      (replace-string "î" "î" nil)
      (beginning-of-buffer nil)
      (replace-string "û" "û" nil)
      (beginning-of-buffer nil)
      (replace-string "ê" "ê" nil)
      (beginning-of-buffer nil)
      (replace-string "ô" "ô" nil)
      (beginning-of-buffer nil)
      (replace-string "ü" "ü" nil)
      (beginning-of-buffer nil)
      (replace-string "ä" "ä" nil)
      (beginning-of-buffer nil)
      (replace-string "ö" "ö" nil)
      )

      (defun dehtmlify ()
      "This function htmlizes characters in a buffer"
      (interactive)
      (beginning-of-buffer nil)
      (replace-string "é" "é" nil)
      (beginning-of-buffer nil)
      (replace-string "è" "è" nil)
      (beginning-of-buffer nil)
      (replace-string "à" "à" nil)
      (beginning-of-buffer nil)
      (replace-string "ù" "ù" nil)
      (beginning-of-buffer nil)
      (replace-string "â" "â" nil)
      (beginning-of-buffer nil)
      (replace-string "î" "î" nil)
      (beginning-of-buffer nil)
      (replace-string "û" "û" nil)
      (beginning-of-buffer nil)
      (replace-string "ê" "ê" nil)
      (beginning-of-buffer nil)
      (replace-string "ô" "ô" nil)
      (beginning-of-buffer nil)
      (replace-string "ü" "ü" nil)
      (beginning-of-buffer nil)
      (replace-string "ä" "ä" nil)
      (beginning-of-buffer nil)
      (replace-string "ö" "ö" nil)
      (beginning-of-buffer nil)
      (replace-string " " " " nil)
      )