Function: cider--combined-aliases

cider--combined-aliases is a byte-compiled function defined in cider-jack-in.el.

Signature

(cider--combined-aliases)

Documentation

Create the combined aliases as a string separated by ':'.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-jack-in.el
(defun cider--combined-aliases ()
  "Create the combined aliases as a string separated by ':'."
  (let* ((local-aliases (cider--clojure-cli-aliases))
         (final-cider-clojure-cli-aliases
          (cond ((and cider-clojure-cli-global-aliases local-aliases)
                 ;; both are documented to be of the `:foo:bar' form, so drop a
                 ;; leading colon from the local aliases before joining, lest the
                 ;; junction end up with a `::' (a malformed alias keyword).
                 (concat cider-clojure-cli-global-aliases ":"
                         (string-remove-prefix ":" local-aliases)))
                (cider-clojure-cli-global-aliases cider-clojure-cli-global-aliases)
                (t local-aliases))))
    (if final-cider-clojure-cli-aliases
        ;; remove exec-opts flags -A -M -T or -X from cider-clojure-cli-aliases
        ;; concatenated with :cider/nrepl to ensure :cider/nrepl comes last
        (let ((aliases (format "%s" (replace-regexp-in-string "^-\\(A\\|M\\|T\\|X\\)" "" final-cider-clojure-cli-aliases))))
          (if (string-prefix-p ":" aliases)
              aliases
            (concat ":" aliases)))
      "")))