crux-smart-kill-line ignores visual-line-mode about crux HOT 1 OPEN

(defun alk/crux-smart-kill-line ()
  "Kill to the end of the line and kill whole line on the next call. Takes visual line into account."
  (interactive)
  (let ((orig-point (point)))
    ;; If point at beginning of line, kill line from point to end of visual line
    (beginning-of-visual-line 1)
    (if (= orig-point (point))
        (kill-visual-line)
      ;; If point at end of line, kill line backward to beginning of visual line
      (end-of-visual-line 1)
      (if (= orig-point (point))
          (kill-visual-line 0)
        ;; If point in middle of line, kill line from point to end of visual line
        (goto-char orig-point)
        (kill-visual-line)))))