> +;;;; Column specifications > + > +(defsubst org-columns--spec-property (spec) > + "Return property name from column specification SPEC." > + (car spec)) > + > +(defsubst org-columns--spec-title (spec) > + "Return column title from column specification SPEC." > + (nth 1 spec)) > + > +(defsubst org-columns--spec-width (spec) > + "Return column width from column specification SPEC." > + (nth 2 spec)) > + > +(defsubst org-columns--spec-operator (spec) > + "Return summary operator from column specification SPEC." > + (nth 3 spec)) > + > +(defsubst org-columns--spec-format-string (spec) > + "Return format string from column specification SPEC." > + (nth 4 spec))
Another way to achieve the same is cl-defstruct. That will automatically generate the accessor functions. You do not have to do it, but defstruct would be even more compact. -- Ihor Radchenko // yantar92, Org mode maintainer, Learn more about Org mode at <https://orgmode.org/>. Support Org development at <https://liberapay.com/org-mode>, or support my work at <https://liberapay.com/yantar92>
