sbbs.el

Diff
Login

Differences From Artifact [fbf9317204]:

To Artifact [75ce247893]:


544
545
546
547
548
549
550
551

552
553
554



555
556

557
558

559

560
561
562
563
564
565
566
544
545
546
547
548
549
550

551
552


553
554
555
556

557
558
559
560

561
562
563
564
565
566
567
568







-
+

-
-
+
+
+

-
+


+
-
+







      (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
  (save-excursion
    (if (region-active-p)
        (progn
          (goto-char (region-beginning))
        (let ((beg (region-beginning))
              (end (region-end)))
          (goto-char end)
          (insert style)
          (goto-char (region-end))
          (goto-char beg)
          (insert style))
      (insert style style)))
  (when (< (point) (mark))
  (forward-char (length style)))
    (forward-char (length style))))

(defun sbbs-compose-format-code ()
  "Insert code syntax markers."
  (interactive)
  (sbbs-compose-format "```\n"))

(defun sbbs-compose-format-bold ()