Overview
| Comment: | Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d5347562aa00b38e86aed273255cf011 |
| User & Date: | zge on 2020-06-06 16:28:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-06-06
| ||
| 17:17 | Added sbbs-default-board option check-in: cc71172e18 user: zge tags: master, trunk | |
| 16:28 | Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 check-in: d5347562aa user: zge tags: master, trunk | |
| 16:06 | Only generate "other" board when link matches regexp Fixes [ed8a04be6b] check-in: ae851a4d20 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [676c904eb1] to [4c1b0d2eeb].
| ︙ | ︙ | |||
522 523 524 525 526 527 528 |
(newline))
(setq header-line-format (format "Responding to Thread %d" id)
sbbs--thread-id id
sbbs--board board)
(switch-to-buffer (current-buffer)))))
(defun sbbs-compose-format (style)
| | > | | | | | | | | | 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 |
(newline))
(setq header-line-format (format "Responding to Thread %d" id)
sbbs--thread-id id
sbbs--board board)
(switch-to-buffer (current-buffer)))))
(defun sbbs-compose-format (style)
"Insert string STYLE around region or point."
(save-mark-and-excursion
(if (region-active-p)
(progn
(goto-char (region-beginning))
(insert style)
(goto-char (region-end))
(insert style))
(insert style style)))
(forward-char (length style)))
(defun sbbs-compose-format-code ()
"Insert code syntax markers."
(interactive)
(sbbs-compose-format "```\n"))
(defun sbbs-compose-format-bold ()
|
| ︙ | ︙ |