[Emacs/Lisp] 테이블 태그에 Single Line 스타일 자동추가 스크립트

>> [HTML] 테이블 태그에 Single Line 스타일 추가

• table-st : 샘플1 스타일로 테이블 스타일 추가
• table-st-ts : 샘플2(티스토리) 스타일로 테이블 스타일 추가
• table-st-mw : 샘플3(미디어위키) 스타일로 테이블 스타일 추가

함수 정의

(defun table-st ()
  (interactive)
  (setf table-tag "<table>")
  (setf td-tag "<td>")
  (setf th-tag "<th>")
  (setf table-st-tag "<table style=\"border-collapse:collapse;\" border=\"1\">")
  (setf td-st-tag "<td style=\"padding:5px 5px\">")
  (setf th-st-tag "<th style=\"padding:5px 5px\">")

  (my-rewind)
  (my-replace table-tag table-st-tag nil)
  (my-rewind)
  (my-replace th-tag th-st-tag nil)
  (my-rewind)
  (my-replace td-tag td-st-tag nil)
  )

(defun table-st-ts ()
  (interactive)
  (setf table-tag "<table>")
  (setf td-tag "<td>")
  (setf th-tag "<th>")
  (setf table-st-tag "<table style=\"border-collapse:collapse;border:1px solid #ccc;\">")
  (setf td-st-tag "<td style=\"border:1px solid #ccc;padding:5px 5px\">")
  (setf th-st-tag "<th style=\"border:1px solid #ccc;padding:5px 5px\">")

  (my-rewind)
  (my-replace table-tag table-st-tag nil)
  (my-rewind)
  (my-replace th-tag th-st-tag nil)
  (my-rewind)
  (my-replace td-tag td-st-tag nil)
  )

(defun table-st-mw ()
  (interactive)
  (setf table-tag "<table>")
  (setf td-tag "<td>")
  (setf th-tag "<th>")
  (setf table-st-tag "<table style=\"background-color: #f8f9fa;color: #222;border-collapse:collapse;border: 1px solid #a2a9b1;\">")
  (setf td-st-tag "<td style=\"border: 1px solid #a2a9b1;padding:5px 5px\">")
  (setf th-st-tag "<th style=\"border: 1px solid #a2a9b1;padding:5px 5px\">")

  (my-rewind)
  (my-replace table-tag table-st-tag nil)
  (my-rewind)
  (my-replace th-tag th-st-tag nil)
  (my-rewind)
  (my-replace td-tag td-st-tag nil)
  )

참고사항

다음의 함수 정의를 사용합니다.

• [Emacs/Lisp] 특정 문자열 대체 관련 함수 정의