Function: majutsu-op--parse-commit-summary

majutsu-op--parse-commit-summary is a natively compiled function defined in majutsu-op.el.

Signature

(majutsu-op--parse-commit-summary PLAIN-SUMMARY &optional DISPLAY-SUMMARY)

Documentation

Parse a structured commit PLAIN-SUMMARY and optional DISPLAY-SUMMARY.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-op.el
(defun majutsu-op--parse-commit-summary (plain-summary &optional display-summary)
  "Parse a structured commit PLAIN-SUMMARY and optional DISPLAY-SUMMARY."
  (when-let* ((fields (majutsu-op--split-record plain-summary 8)))
    (pcase-let* ((`(,change-id ,change-id-short ,commit-id ,commit-id-short
                    ,hidden ,conflict ,empty ,_description)
                  fields)
                 (display-fields (or (majutsu-op--split-record
                                      (or display-summary plain-summary) 8)
                                     fields))
                 (`(,_ ,change-id-short-display ,_ ,commit-id-short-display
                    ,_ ,_ ,_ ,description-display)
                  display-fields))
      (list :change-id               change-id
            :change-id-short         change-id-short
            :change-id-short-display change-id-short-display
            :commit-id               commit-id
            :commit-id-short         commit-id-short
            :commit-id-short-display commit-id-short-display
            :hidden                  (majutsu-op--nonempty-field-p hidden)
            :conflict                (majutsu-op--nonempty-field-p conflict)
            :empty                   (majutsu-op--nonempty-field-p empty)
            :description             description-display))))