Elisp Export Package List

(defun export-package-list ()
  (interactive)
  (find-file "~/emacs_packages.txt")
  (delete-region 1 (buffer-end 1))
  (->> package-selected-packages
       copy-seq
       delete-dups
       (mapcar #'symbol-name)
       ((lambda (xs) (sort xs #'string<)))
       (s-join (char-to-string 10))
       insert)
  (save-buffer)
  (kill-buffer))