>> [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)
)
참고사항
다음의 함수 정의를 사용합니다.